diff --git a/frontends/LexRain.x b/frontends/LexRain.x index 8cae9de..5fe9d09 100644 --- a/frontends/LexRain.x +++ b/frontends/LexRain.x @@ -31,7 +31,7 @@ $decimalDigit = [0-9] $hexDigit = [0-9 a-f A-F] @reserved = "[" | "]" | "(" | ")" | "{" | "}" - | ":" | "==" | "," | ";" + | ":" | "==" | "<>" | "," | ";" | "?" | "!" | "=" | "+=" | "-=" | "*=" | "/=" | "%=" | "+" | "-" | "*" | "/" | "%" | ">=" | "<=" diff --git a/frontends/ParseRain.hs b/frontends/ParseRain.hs index 0e87595..692dea4 100644 --- a/frontends/ParseRain.hs +++ b/frontends/ParseRain.hs @@ -102,6 +102,7 @@ dyadicCompOp <|> do {m <- reserved "<=" ; return (m,A.LessEq) } <|> do {m <- reserved ">=" ; return (m,A.MoreEq) } <|> do {m <- reserved "==" ; return (m,A.Eq) } + <|> do {m <- reserved "<>" ; return (m,A.NotEq) } monadicArithOp :: RainParser (Meta,A.MonadicOp) monadicArithOp