[Be less noisy when not in verbose mode.
Lemmih <lemmih@gmail.com>**20080319154404] hunk ./FrontEnd/Tc/Main.hs 826
-        liftIO $ do putChar '.'; hFlush stdout
+        when verbose $ liftIO $ do putChar '.'; hFlush stdout
hunk ./FrontEnd/Tc/Main.hs 835
-        liftIO $ putStrLn "!"
+        when verbose $ liftIO $ putStrLn "!"
hunk ./Ho/Build.hs 299
-                let deps = Set.toList $ Set.fromList (concat $ snds ms) `Set.difference` (Set.fromList (map (fst . fst) ms))
+                let deps = Set.toList $ Set.fromList (concat $ snds ms) `Set.difference` (Set.fromList amods)
hunk ./Ho/Build.hs 308
-        pm (h:hs) els = do catch (hvalid h) (\_ -> pm hs els)
+        pm (h:hs) els = hvalid h `catch` (\_ -> pm hs els)
hunk ./Ho/Build.hs 319
-                        let lib = case reverse fp of
-                                'o':'h':'.':_ -> Nothing
-                                _ -> Just fp
+                        let lib = case ".ho" `isSuffixOf` fp of
+                                    True  -> Nothing
+                                    False -> Just fp
hunk ./Ho/Build.hs 339
-
hunk ./Main.hs 302
-            transformDumpProgress = True
+            transformDumpProgress = verbose
hunk ./Main.hs 365
-    prog <- simplifyProgram' sopt "Init-Big-One" True (IterateMax 4) prog
+    prog <- simplifyProgram' sopt "Init-Big-One" verbose (IterateMax 4) prog
hunk ./Main.hs 563
-    prog <- simplifyProgram mempty "Main-One" True prog
+    prog <- simplifyProgram mempty "Main-One" verbose prog
hunk ./Main.hs 569
-    prog <- transformProgram transTypeAnalyze { transformPass = "Main-AfterSimp", transformDumpProgress = True } prog
+    prog <- transformProgram transTypeAnalyze { transformPass = "Main-AfterSimp", transformDumpProgress = verbose } prog
hunk ./Main.hs 573
-    prog <- simplifyProgram mempty "Main-Two" True prog
+    prog <- simplifyProgram mempty "Main-Two" verbose prog
hunk ./Main.hs 583
-    prog <- simplifyProgram mempty { SS.so_finalPhase = True } "SuperSimplify no rules" True prog
+    prog <- simplifyProgram mempty { SS.so_finalPhase = True } "SuperSimplify no rules" verbose prog
hunk ./Main.hs 602
-    prog <- simplifyProgram mempty { SS.so_finalPhase = True } "SuperSimplify after Boxy WorkWrap" True prog
+    prog <- simplifyProgram mempty { SS.so_finalPhase = True } "SuperSimplify after Boxy WorkWrap" verbose prog
hunk ./Main.hs 676
-    transformDumpProgress = True,
+    transformDumpProgress = verbose,
hunk ./Main.hs 704
-                    transformDumpProgress = True,
+                    transformDumpProgress = verbose,