diff options
Diffstat (limited to 'compiler/parser/Lexer.x')
| -rw-r--r-- | compiler/parser/Lexer.x | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x index 929a6a6cbb..9eed1e6572 100644 --- a/compiler/parser/Lexer.x +++ b/compiler/parser/Lexer.x @@ -818,9 +818,7 @@ reservedWordsFM = listToUFM $ ( "type", ITtype, 0 ), ( "where", ITwhere, 0 ), - ( "forall", ITforall NormalSyntax, - xbit ExplicitForallBit .|. - xbit InRulePragBit), + ( "forall", ITforall NormalSyntax, 0), ( "mdo", ITmdo, xbit RecursiveDoBit), -- See Note [Lexing type pseudo-keywords] ( "family", ITfamily, 0 ), @@ -2304,7 +2302,7 @@ data ExtBits | ThQuotesBit | IpBit | OverloadedLabelsBit -- #x overloaded labels - | ExplicitForallBit -- the 'forall' keyword and '.' symbol + | ExplicitForallBit -- the 'forall' keyword | BangPatBit -- Tells the parser to understand bang-patterns -- (doesn't affect the lexer) | PatternSynonymsBit -- pattern synonyms |