diff options
author | Alfredo Di Napoli <alfredo@well-typed.com> | 2020-12-02 10:28:08 +0100 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-12-18 05:52:25 -0500 |
commit | d66b4bcd383867368172c82fc92fa150a4988b23 (patch) | |
tree | 2544348f2cb95c23f2059b55749c3aa9d618c4cf /compiler/GHC/Cmm/Lexer.x | |
parent | 52498cfaf2d130552b8a8c6b01f7a8114152aee0 (diff) | |
download | haskell-d66b4bcd383867368172c82fc92fa150a4988b23.tar.gz |
Rename parser Error and Warning types
This commit renames parser's Error and Warning types (and their
constructors) to have a 'Ps' prefix, so that this would play nicely
when more errors and warnings for other phases of the pipeline will
be added. This will make more explicit which is the particular type
of error and warning we are dealing with, and will be more informative
for users to see in the generated Haddock.
Diffstat (limited to 'compiler/GHC/Cmm/Lexer.x')
-rw-r--r-- | compiler/GHC/Cmm/Lexer.x | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/Lexer.x b/compiler/GHC/Cmm/Lexer.x index 3828685645..85b06ea624 100644 --- a/compiler/GHC/Cmm/Lexer.x +++ b/compiler/GHC/Cmm/Lexer.x @@ -326,7 +326,7 @@ lexToken = do AlexEOF -> do let span = mkPsSpan loc1 loc1 liftP (setLastToken span 0) return (L span CmmT_EOF) - AlexError (loc2,_) -> liftP $ failLocMsgP (psRealLoc loc1) (psRealLoc loc2) (Error ErrCmmLexer []) + AlexError (loc2,_) -> liftP $ failLocMsgP (psRealLoc loc1) (psRealLoc loc2) (PsError PsErrCmmLexer []) AlexSkip inp2 _ -> do setInput inp2 lexToken |