diff options
| author | Shayne Fletcher <shayne@shaynefletcher.org> | 2021-07-29 22:02:47 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-08-02 04:18:35 -0400 |
| commit | e15381842d41a79a40a64d34ae0798aff8e6a989 (patch) | |
| tree | c8d32535cf43a6ff3ee506e708c751664ea71d90 /compiler | |
| parent | 13af2feeca20e10d7dda675ad0634689a1931f17 (diff) | |
| download | haskell-e15381842d41a79a40a64d34ae0798aff8e6a989.tar.gz | |
Supply missing case for '.' in
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/GHC/Parser/Lexer.x | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/GHC/Parser/Lexer.x b/compiler/GHC/Parser/Lexer.x index 95fc574cb2..b63ce55669 100644 --- a/compiler/GHC/Parser/Lexer.x +++ b/compiler/GHC/Parser/Lexer.x @@ -1664,6 +1664,7 @@ varsym_prefix = sym $ \span exts s -> varsym_suffix :: Action varsym_suffix = sym $ \span _ s -> if | s == fsLit "@" -> failMsgP (\srcLoc -> mkPlainErrorMsgEnvelope srcLoc $ PsErrSuffixAT) + | s == fsLit "." -> return ITdot | otherwise -> do { addPsMessage (mkSrcSpanPs span) |