Merge branch 'dev' of https://github.com/evancz/Elm into dev
commit60de9158242fbc9f8c16a9c4c7ec0af08093e570
authorEvan Czaplicki <evan@Evans-MacBook-Air.local>
dateMon 1 Jul 2013, 20:02 (13 years ago)
parentd700acff32390c
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`