Remove NF in multiple passes implementation.
parent
ed49233084
commit
b0c8e3af2a
|
@ -33,3 +33,7 @@ cabal.project.local
|
||||||
cabal.project.local~
|
cabal.project.local~
|
||||||
.HTF/
|
.HTF/
|
||||||
.ghc.environment.*
|
.ghc.environment.*
|
||||||
|
|
||||||
|
# generated
|
||||||
|
input.txt
|
||||||
|
*.ps
|
||||||
|
|
|
@ -176,8 +176,7 @@ mulPassExpr = expr >>= either (fail . unpack) pure
|
||||||
lhs' <- lhs
|
lhs' <- lhs
|
||||||
rhs' <- rhs
|
rhs' <- rhs
|
||||||
(lhs', rhs') <- cast lhs' rhs'
|
(lhs', rhs') <- cast lhs' rhs'
|
||||||
k <- eval $ bin (f lhs') (f rhs')
|
eval $ bin (f lhs') (f rhs')
|
||||||
pure $ k `deepseq` k
|
|
||||||
|
|
||||||
term = parens expr <|>
|
term = parens expr <|>
|
||||||
Right . EInt <$> integer <|>
|
Right . EInt <$> integer <|>
|
||||||
|
|
Loading…
Reference in New Issue