From 4245018417d3b938992c86ceb65339dcbbbe023f Mon Sep 17 00:00:00 2001
From: jmcardon <cardona.josem@gmail.com>
Date: Wed, 27 Mar 2024 12:54:54 -0400
Subject: [PATCH] remove unrelated eval change

---
 src/Pact/Eval.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/Pact/Eval.hs b/src/Pact/Eval.hs
index e1de20bd9..08ce3271a 100644
--- a/src/Pact/Eval.hs
+++ b/src/Pact/Eval.hs
@@ -329,9 +329,7 @@ eval' (TModule _tm@(MDModule m) bod i) =
     govM <- loadModule mangledM bod i
     szVer <- getSizeOfVersion
     _ <- computeGas (Left (i,"module")) (GPreWrite (WriteModule (_mName m) (_mCode m)) szVer)
-    pdm <- traverse (traverse toPersistDirect') govM
-    liftIO $ print $ J.encode pdm
-    writeRow i Write Modules (_mName mangledM) pdm
+    writeRow i Write Modules (_mName mangledM) =<< traverse (traverse toPersistDirect') govM
     endAdvice govM
     return (msg $ "Loaded module " <> pretty (_mName mangledM) <> ", hash " <> pretty (_mHash mangledM))