From 6a451b6cad18a5b4ba60b6017dbfaa4ab707db8a Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Fri, 22 Sep 2023 00:39:53 +0200
Subject: Minor improvements

Sorry, don't exactly know and don't care. Just some things I apparently
didn't commit
---
 src/Eval.hs | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'src/Eval.hs')

diff --git a/src/Eval.hs b/src/Eval.hs
index d887a62..6af1959 100644
--- a/src/Eval.hs
+++ b/src/Eval.hs
@@ -285,10 +285,23 @@ evalCommand inp s@(EnvState env@(Environment envDefs) conf cache) = \case
     case res of
       Left  err -> print err
       Right e'  -> do
-        red <- reduce e'
         putStrLn $ toBinary e'
+        red <- reduce e'
         putStrLn $ toBinary red
     pure s
+  Jot str -> do
+    let e = fromJot str
+    let (res, _) = evalExp e (Environment M.empty) `runState` env
+    case res of
+      Left  err -> print err
+      Right e'  -> do
+        print e
+        print e'
+        print $ length $ toBinary e'
+        red <- reduce e'
+        print red
+        print $ length $ toBinary red
+    pure s
   Time e -> do
     start <- getTime Monotonic
     let (res, _) = evalExp e (Environment M.empty) `runState` env
-- 
cgit v1.2.3