@@ -110,8 +110,9 @@ testAgreement builder inputs = do
110 tracePerf "---------" $ return ()
110 tracePerf "---------" $ return ()
111 let resultsAgree = identityResult == spiderResult
111 let resultsAgree = identityResult == spiderResult
112 if resultsAgree
112 if resultsAgree
113− then do putStrLn "Success:"
113+ then do --putStrLn "Success:"
114− print identityResult
114+ --print identityResult
115 else do putStrLn "Failure:"
116 else do putStrLn "Failure:"
116 putStrLn $ "Pure result: " <> show identityResult
117 putStrLn $ "Pure result: " <> show identityResult
117 putStrLn $ "Spider result: " <> show spiderResult
118 putStrLn $ "Spider result: " <> show spiderResult