more cleanup

kadena-io · Jun 30, 2023 · ab3ac97 · ab3ac97
1 parent d2043e1
commit ab3ac97
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/Pact/Eval.hs b/src/Pact/Eval.hs
@@ -52,8 +52,6 @@ module Pact.Eval
     ,getSizeOfVersion
     ) where
 
-import Debug.Trace (trace)
-
 import Bound
 import Control.Lens hiding (DefName)
 import Control.DeepSeq
@@ -1134,7 +1132,7 @@ reduceAppWithMemoTable app = do
   fcResult <- catchesPactError (termFunctionCall reduce app)
   case fcResult of
     Right fc -> case memoLookup fc memoTable of
-      Just res -> trace ("Cache hit: " ++ show res) $ return (fromPactValue res)
+      Just res -> return (fromPactValue res)
       Nothing -> reduceApp app
     Left _ -> reduceApp app
 

diff --git a/tests/pact/memoize.repl b/tests/pact/memoize.repl
@@ -1,6 +1,8 @@
 (env-gasmodel "table")
 (env-gaslimit 1000000)
 
+(env-clear-memotable)
+
 ; Define an expensive function, which we will use to test memoization.
 (module m g
   (defcap g () true)