diff options
| author | Alfredo Di Napoli <alfredo@well-typed.com> | 2021-01-18 16:12:28 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-02-01 14:06:11 -0500 |
| commit | b1a17507229b00820b9552a423342f8c354267d4 (patch) | |
| tree | fbd5d3a8cb6bab8b275ac0dfc85817e0f840d227 /compiler/GHC/Parser/Header.hs | |
| parent | ddc2a7595a28b6098b6aab61bc830f2296affcdc (diff) | |
| download | haskell-b1a17507229b00820b9552a423342f8c354267d4.tar.gz | |
Rename ErrMsg into MsgEnvelope
Updates Haddock submodule
Diffstat (limited to 'compiler/GHC/Parser/Header.hs')
| -rw-r--r-- | compiler/GHC/Parser/Header.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Parser/Header.hs b/compiler/GHC/Parser/Header.hs index e4af48a15a..0af7a555d5 100644 --- a/compiler/GHC/Parser/Header.hs +++ b/compiler/GHC/Parser/Header.hs @@ -313,7 +313,7 @@ checkProcessArgsResult flags = when (notNull flags) $ liftIO $ throwIO $ mkSrcErr $ listToBag $ map mkMsg flags where mkMsg (L loc flag) - = mkPlainErrMsg loc $ + = mkPlainMsgEnvelope loc $ (text "unknown flag in {-# OPTIONS_GHC #-} pragma:" <+> text flag) @@ -357,7 +357,7 @@ optionsErrorMsgs unhandled_flags flags_lines _filename , L l f' <- flags_lines , f == f' ] mkMsg (L flagSpan flag) = - mkPlainErrMsg flagSpan $ + mkPlainMsgEnvelope flagSpan $ text "unknown flag in {-# OPTIONS_GHC #-} pragma:" <+> text flag optionsParseError :: String -> SrcSpan -> a -- #15053 @@ -370,4 +370,4 @@ optionsParseError str loc = throwErr :: SrcSpan -> SDoc -> a -- #15053 throwErr loc doc = - throw $ mkSrcErr $ unitBag $ mkPlainErrMsg loc doc + throw $ mkSrcErr $ unitBag $ mkPlainMsgEnvelope loc doc |