diff options
Diffstat (limited to 'compiler/parser/Lexer.x')
| -rw-r--r-- | compiler/parser/Lexer.x | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index 5e7270be01..98c422bd4d 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -1450,9 +1450,9 @@ varsym_prefix :: Action varsym_prefix = sym $ \exts s -> if | TypeApplicationsBit `xtest` exts, s == fsLit "@" -> return ITtypeApp - | ThBit `xtest` exts, s == fsLit "$" + | ThQuotesBit `xtest` exts, s == fsLit "$" -> return ITdollar - | ThBit `xtest` exts, s == fsLit "$$" + | ThQuotesBit `xtest` exts, s == fsLit "$$" -> return ITdollardollar | s == fsLit "!" -> return ITbang | s == fsLit "~" -> return ITtilde @@ -2786,7 +2786,7 @@ srcParseErr options buf len last100 = decodePrevNChars 100 buf doInLast100 = "do" `isInfixOf` last100 mdoInLast100 = "mdo" `isInfixOf` last100 - th_enabled = ThBit `xtest` pExtsBitmap options + th_enabled = ThQuotesBit `xtest` pExtsBitmap options ps_enabled = PatternSynonymsBit `xtest` pExtsBitmap options -- Report a parse failure, giving the span of the previous token as |