From b0c8e3af2a703aa392ab412321719d2f66d7442d Mon Sep 17 00:00:00 2001
From: Joshua Potter <jrpotter2112@gmail.com>
Date: Wed, 22 Dec 2021 08:17:17 -0500
Subject: [PATCH] Remove NF in multiple passes implementation.

---
 .gitignore                     | 4 ++++
 initial-encoding/src/Parser.hs | 3 +--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/.gitignore b/.gitignore
index d4bfdbc..4e34154 100644
--- a/.gitignore
+++ b/.gitignore
@@ -33,3 +33,7 @@ cabal.project.local
 cabal.project.local~
 .HTF/
 .ghc.environment.*
+
+# generated
+input.txt
+*.ps
diff --git a/initial-encoding/src/Parser.hs b/initial-encoding/src/Parser.hs
index 2421a2a..d6a319c 100644
--- a/initial-encoding/src/Parser.hs
+++ b/initial-encoding/src/Parser.hs
@@ -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 <|>