me/really-bad-compiler-in-haskell
Archived
1
0
Fork 0
Code Issues 20 Pull requests Projects 3 Releases 3 Activity

feature/comparisons #29

Merged
me merged 8 commits from feature/comparisons into main 2023-10-23 17:31:28 +00:00
Conversation 0 Commits 8 Files changed 8 +2 -2
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files
Showing only changes of commit 1fbacda21b - Show all commits

4
src/Main/Parser/Megaparsec.hs
View file

@ -110,10 +110,10 @@ boolExprTerm :: ParsecT Void Text Data.Functor.Identity.Identity M.Bool
boolExprTerm =
choice
[ try (uncurry3 M.IntOrdCmp <$> intOrdCmpExpr),
parens boolExpr,
uncurry3 M.IntEq <$> intEqExpr,
M.Bool True <$ string "true" <* C.space,
M.Bool False <$ string "false" <* C.space,
parens boolExpr
M.Bool False <$ string "false" <* C.space
]
boolExpr :: ParsecT Void Text Data.Functor.Identity.Identity M.Bool