do printfs work through chainweb?

kadena-io · Aug 2, 2023 · f94b9a6 · f94b9a6
1 parent 5fc7fc6
commit f94b9a6
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src-ghc/Pact/Interpreter.hs b/src-ghc/Pact/Interpreter.hs
@@ -163,9 +163,12 @@ evalContinuation :: Interpreter e -> EvalEnv e -> ContMsg -> IO EvalResult
 evalContinuation runner ee cm = case (_cmProof cm) of
   Nothing ->
     interpret runner (setStep Nothing) (Left Nothing)
-  Just _ -> do
-    etpe :: Either Text PactExec <- error "ERROR EVALCONTINUATION" -- (_spvVerifyContinuation . _eeSPVSupport $ ee) p
+  Just p -> do
+    putStrLn "TESTING1"
+    etpe <- (_spvVerifyContinuation . _eeSPVSupport $ ee) p
+    putStrLn "TESTING2"
     pe <- either contError return etpe
+    putStrLn "TESTING3"
     interpret runner (setStep (_peYield pe)) (Left $ Just pe)
   where
     contError spvErr =