projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fb11ede
)
Change "OPTIONS" to "OPTIONS_GHC" in error messages; fixes #4327
author
Ian Lynagh
<igloo@earth.li>
Fri, 24 Sep 2010 12:04:23 +0000
(12:04 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Fri, 24 Sep 2010 12:04:23 +0000
(12:04 +0000)
compiler/main/HeaderInfo.hs
patch
|
blob
|
history
diff --git
a/compiler/main/HeaderInfo.hs
b/compiler/main/HeaderInfo.hs
index
0f0798b
..
508f855
100644
(file)
--- a/
compiler/main/HeaderInfo.hs
+++ b/
compiler/main/HeaderInfo.hs
@@
-256,7
+256,7
@@
checkProcessArgsResult flags
liftIO $ throwIO $ mkSrcErr $ listToBag $ map mkMsg flags
where mkMsg (L loc flag)
= mkPlainErrMsg loc $
liftIO $ throwIO $ mkSrcErr $ listToBag $ map mkMsg flags
where mkMsg (L loc flag)
= mkPlainErrMsg loc $
- (text "unknown flag in {-# OPTIONS #-} pragma:" <+>
+ (text "unknown flag in {-# OPTIONS_GHC #-} pragma:" <+>
text flag)
-----------------------------------------------------------------------------
text flag)
-----------------------------------------------------------------------------
@@
-295,5
+295,5
@@
optionsErrorMsgs unhandled_flags flags_lines _filename
L l f' <- flags_lines, f == f' ]
mkMsg (L flagSpan flag) =
ErrUtils.mkPlainErrMsg flagSpan $
L l f' <- flags_lines, f == f' ]
mkMsg (L flagSpan flag) =
ErrUtils.mkPlainErrMsg flagSpan $
- text "unknown flag in {-# OPTIONS #-} pragma:" <+> text flag
+ text "unknown flag in {-# OPTIONS_GHC #-} pragma:" <+> text flag