Fix parser

d8aebc73 · Philipp Meyer · 78815841 · d8aebc73
Commit d8aebc73 authored Aug 08, 2018 by Philipp Meyer
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 0 deletions

src/Parser/PP.hs src/Parser/PP.hs +1 -0

No files found.
--- a/src/Parser/PP.hs
+++ b/src/Parser/PP.hs
@@ -103,6 +103,7 @@ parseOp = (reservedOp "<" *> return Lt) <|>
          (reservedOp "=" *> return Eq) <|>
          (reservedOp "!=" *> return Ne) <|>
          (reservedOp ">" *> return Gt) <|>
+          (reservedOp ">=" *> return Ge) <|>
          (reservedOp "=%" *> (ModEq <$> integer)) <|>
          (reservedOp "!=%" *> (ModNe <$> integer))