diff options
| author | Vladislav Zavialov <vlad.z.4096@gmail.com> | 2019-02-14 00:36:00 +0300 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-02-15 07:29:05 -0500 |
| commit | 887454d8889ca5dbba70425de41d97939cb9ac60 (patch) | |
| tree | 6d7d57ee977f58fcceed0d59a95bcfdf057551dc /compiler/parser/Lexer.x | |
| parent | b31df5caaebb1c4f72a3c70a9cdb7893af4c3309 (diff) | |
| download | haskell-887454d8889ca5dbba70425de41d97939cb9ac60.tar.gz | |
'forall' always a keyword, plus the dot type operator
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 |