@@ -110,8 +110,9 @@ testAgreement builder inputs = do
110110 tracePerf "---------" $ return ()
111111 let resultsAgree = identityResult == spiderResult
112112 if resultsAgree
113− then do putStrLn "Success:"
114− print identityResult
113+ then do --putStrLn "Success:"
114+ --print identityResult
115+ return ()
115116 else do putStrLn "Failure:"
116117 putStrLn $ "Pure result: " <> show identityResult
117118 putStrLn $ "Spider result: " <> show spiderResult