diff options
Diffstat (limited to 'compiler/GHC/Parser/Lexer.x')
| -rw-r--r-- | compiler/GHC/Parser/Lexer.x | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/compiler/GHC/Parser/Lexer.x b/compiler/GHC/Parser/Lexer.x index 6778d5aa3f..2df6400a19 100644 --- a/compiler/GHC/Parser/Lexer.x +++ b/compiler/GHC/Parser/Lexer.x @@ -762,6 +762,7 @@ data Token | ITvbar | ITlarrow IsUnicodeSyntax | ITrarrow IsUnicodeSyntax + | ITlolly IsUnicodeSyntax | ITdarrow IsUnicodeSyntax | ITminus | ITbang -- Prefix (!) only, e.g. f !x = rhs @@ -984,6 +985,9 @@ reservedSymsFM = listToUFM $ ,("→", ITrarrow UnicodeSyntax, UnicodeSyntax, 0 ) ,("←", ITlarrow UnicodeSyntax, UnicodeSyntax, 0 ) + ,("#->", ITlolly NormalSyntax, NormalSyntax, 0) + ,("⊸", ITlolly UnicodeSyntax, UnicodeSyntax, 0) + ,("⤙", ITlarrowtail UnicodeSyntax, UnicodeSyntax, xbit ArrowsBit) ,("⤚", ITrarrowtail UnicodeSyntax, UnicodeSyntax, xbit ArrowsBit) ,("⤛", ITLarrowtail UnicodeSyntax, UnicodeSyntax, xbit ArrowsBit) @@ -2475,6 +2479,7 @@ data ExtBits | MultiWayIfBit | GadtSyntaxBit | ImportQualifiedPostBit + | LinearTypesBit -- Flags that are updated once parsing starts | InRulePragBit @@ -2561,6 +2566,7 @@ mkParserFlags' warningFlags extensionFlags homeUnitId .|. MultiWayIfBit `xoptBit` LangExt.MultiWayIf .|. GadtSyntaxBit `xoptBit` LangExt.GADTSyntax .|. ImportQualifiedPostBit `xoptBit` LangExt.ImportQualifiedPost + .|. LinearTypesBit `xoptBit` LangExt.LinearTypes optBits = HaddockBit `setBitIf` isHaddock .|. RawTokenStreamBit `setBitIf` rawTokStream |