remove unrelated eval change

kadena-io · Mar 27, 2024 · 4245018 · 4245018
1 parent 484e365
commit 4245018
Showing 1 changed file with 1 addition and 3 deletions.
diff --git 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))