diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-09-24 12:04:23 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-09-24 12:04:23 +0000 |
| commit | a3a88e4d58f7b3d8df8304052e603b274f90671d (patch) | |
| tree | 46ba0a7fa5b38db4f2abe5e88c8695b1945b72ac /compiler | |
| parent | fb11ede04563625454ab7eb1cd6407901f5f4018 (diff) | |
| download | haskell-a3a88e4d58f7b3d8df8304052e603b274f90671d.tar.gz | |
Change "OPTIONS" to "OPTIONS_GHC" in error messages; fixes #4327
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/main/HeaderInfo.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/main/HeaderInfo.hs b/compiler/main/HeaderInfo.hs index 0f0798b70f..508f855f48 100644 --- 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 $ - (text "unknown flag in {-# OPTIONS #-} pragma:" <+> + (text "unknown flag in {-# OPTIONS_GHC #-} pragma:" <+> 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 $ - text "unknown flag in {-# OPTIONS #-} pragma:" <+> text flag + text "unknown flag in {-# OPTIONS_GHC #-} pragma:" <+> text flag |