1
Fork 0

Remove NF in multiple passes implementation.

jrpotter/final
Joshua Potter 2021-12-22 08:17:17 -05:00
parent ed49233084
commit b0c8e3af2a
2 changed files with 5 additions and 2 deletions

4
.gitignore vendored
View File

@ -33,3 +33,7 @@ cabal.project.local
cabal.project.local~
.HTF/
.ghc.environment.*
# generated
input.txt
*.ps

View File

@ -176,8 +176,7 @@ mulPassExpr = expr >>= either (fail . unpack) pure
lhs' <- lhs
rhs' <- rhs
(lhs', rhs') <- cast lhs' rhs'
k <- eval $ bin (f lhs') (f rhs')
pure $ k `deepseq` k
eval $ bin (f lhs') (f rhs')
term = parens expr <|>
Right . EInt <$> integer <|>