✨

2024-10-06 16:45:13 +02:00
parent 067f70622f
commit 13dd49ee75
3 changed files with 65 additions and 3 deletions
--- a/a4/src/APL/InterpPure.hs
+++ b/a4/src/APL/InterpPure.hs
@ -24,7 +24,7 @@ runEval = runEval' envEmpty stateInitial
    runEval' r s (Free (KvPutOp key val m)) =
      runEval' r ((key,val):s) m
    runEval' r s (Free (TransactionOp l m)) =
-      let (p, resl) = runEval (do l >> getState)
+      let (p, resl) = runEval' r s (do l >> getState)
      in case resl of
        Right s' ->
          let (ps, resm) = runEval' r s' m