diff --git a/src/Pact/Eval.hs b/src/Pact/Eval.hs index 2ef602302..de5be844d 100644 --- 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 index 65eebd51f..5c231d05e 100644 --- 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)