Turn off debug code that printed all constraints during unify.
This debug code is very noisy and makes it hard to test the dev
branch because you can't see warnings buried in all the debug
output.
commit1b4aca9685aa47749b06fbd944a6358d3e65f708
authorAndrew Miller <ak.miller@auckland.ac.nz>
dateMon 1 Jul 2013, 08:43 (13 years ago)
parenta2e9bef
compiler/Types/Unify.hs+1−1
@@ -19,7 +19,7 @@ unify hints modul@(Module _ _ _ stmts) = run $ do
1919 case result of
2020 Left err -> return (Left err)
2121 Right (schemes, constraints) ->
22− do subs <- unsafePerformIO (mapM print constraints) `seq`
22+ do subs <- {- unsafePerformIO (mapM print constraints) `seq` -}
2323 Solver.solver (Alias.get stmts) Map.empty constraints
2424 let ss = either (const []) Map.toList subs
2525 -- unsafePerformIO (mapM print . map (second (Subst.subst ss)) $ concatMap Map.toList schemes) `seq`