summaryrefslogtreecommitdiff
path: root/lib/Language/Elna/Frontend/Parser.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Language/Elna/Frontend/Parser.hs')
-rw-r--r--lib/Language/Elna/Frontend/Parser.hs16
1 files changed, 8 insertions, 8 deletions
diff --git a/lib/Language/Elna/Frontend/Parser.hs b/lib/Language/Elna/Frontend/Parser.hs
index 9dd3206..e85f3b1 100644
--- a/lib/Language/Elna/Frontend/Parser.hs
+++ b/lib/Language/Elna/Frontend/Parser.hs
@@ -105,12 +105,12 @@ conditionP = do
conditionCons lhs <$> expressionP
where
comparisonOperator =
- --, symbol "<" >> pure LessCondition
- --, symbol "<=" >> pure LessOrEqualCondition
- --, symbol ">" >> pure GreaterCondition
- --, symbol ">=" >> pure GreaterOrEqualCondition
- [ symbol "=" >> pure EqualCondition
- --, symbol "#" >> pure NonEqualCondition
+ [ symbol "<=" >> pure LessOrEqualCondition
+ , symbol "<" >> pure LessCondition
+ , symbol ">=" >> pure GreaterOrEqualCondition
+ , symbol ">" >> pure GreaterCondition
+ , symbol "=" >> pure EqualCondition
+ , symbol "#" >> pure NonEqualCondition
]
symbol :: Text -> Parser Text
@@ -183,8 +183,8 @@ statementP :: Parser Statement
statementP
= EmptyStatement <$ semicolonP
<|> ifElseP
- {-<|> CompoundStatement <$> blockP (many statementP)
- <|> try assignmentP
+ <|> CompoundStatement <$> blockP (many statementP)
+ {-<|> try assignmentP
<|> try whileP -}
<|> callP
<?> "statement"