15 lines
642 B
Text
15 lines
642 B
Text
Collected c41c478eb9003eaa9fc8081a0039652448124f5d out of ghc
|
|
repository to be removed in ghc 9.4 era.
|
|
|
|
Index: utils/deriveConstants/Main.hs
|
|
--- utils/deriveConstants/Main.hs.orig
|
|
+++ utils/deriveConstants/Main.hs
|
|
@@ -795,7 +795,7 @@ getWanted verbose os tmpdir gccProgram gccFlags nmProg
|
|
, Just sym <- stripPrefix prefix sym0 = Just (sym, read n)
|
|
| otherwise = Nothing
|
|
where
|
|
- [sym0, _] = take 2 (reverse $ words l1)
|
|
+ sym0 = head $ reverse $ words l1
|
|
|
|
-- If an Int value is larger than 2^28 or smaller
|
|
-- than -2^28, then fail.
|