context

2024-03-20 15:46:23 -06:00
parent 61aea7b74a
commit dd600a8351
10 changed files with 89 additions and 107 deletions
--- a/src/Rlp/Lex.x
+++ b/src/Rlp/Lex.x
@@ -59,7 +59,7 @@ $asciisym       = [\!\#\$\%\&\*\+\.\/\<\=\>\?\@\\\^\|\-\~\:]

@reservedname = 
    case|data|do|import|in|let|letrec|module|of|where
-    |infixr|infixl|infix
+    |infixr|infixl|infix|forall

@reservedop =
    "=" | \\ | "->" | "|" | ":"
@@ -163,6 +163,7 @@ lexReservedName = \case
    "infix"     -> TokenInfix
    "infixl"    -> TokenInfixL
    "infixr"    -> TokenInfixR
+    "forall"    -> TokenForall
    s           -> error (show s)

 lexReservedOp :: Text -> RlpToken