[Reduce verbosity even more.
Lemmih <lemmih@gmail.com>**20081202044339
 Ignore-this: db890342f4984f45c4e3f9470da1d113
] hunk ./E/LambdaLift.hs 33
+import Options (verbose)
hunk ./E/LambdaLift.hs 150
-    calcFixpoint "Liftees" fixer
+    findFixpoint Nothing {-"Liftees"-} fixer
hunk ./E/LambdaLift.hs 153
-    printf "%d lambdas not lifted\n" (size nlset)
+    when verbose $ printf "%d lambdas not lifted\n" (size nlset)
hunk ./Grin/DeadCode.hs 44
-    calcFixpoint "Dead Code" fixer
+    findFixpoint Nothing {-"Dead Code"-} fixer
hunk ./Grin/Devolve.hs 14
+import Options (verbose)
hunk ./Grin/Devolve.hs 17
-    transformDumpProgress = True,
+    transformDumpProgress = verbose,
hunk ./Grin/FromE.hs 205
-        ep x = do putStrLn ("EP FOR "++show x)
+        ep x = do when verbose $ putStrLn ("EP FOR "++show x)
hunk ./Grin/NodeAnalyze.hs 121
-    putStrLn "-- NodeAnayze"
+    -- putStrLn "-- NodeAnalyze"
hunk ./Grin/Optimize.hs 17
-
+import Options (verbose)
hunk ./Grin/Optimize.hs 172
-    putStrLn "Speculatable:"
-    mapM_ Prelude.print ss
+    when verbose $ putStrLn "Speculatable:"
+    when verbose $ mapM_ Prelude.print ss
hunk ./Grin/Optimize.hs 175
-    Stats.printStat "Speculate" stats
+    when verbose $ Stats.printStat "Speculate" stats
hunk ./Grin/Simplify.hs 31
+import Options (verbose)
hunk ./Main.hs 534
-    putStrLn "Type analyzed methods"
-    flip mapM_ (programDs prog) $ \ (t,e) -> do
-        let (_,ts) = fromLam e
-            ts' = takeWhile (sortKindLike . getType) ts
-        when (not (null ts')) $ putStrLn $ (pprint t) ++ " \\" ++ concat [ "(" ++ show  (Info.fetch (tvrInfo t) :: Typ) ++ ")" | t <- ts' ]
+    when (verbose) $ do putStrLn "Type analyzed methods"
+                        flip mapM_ (programDs prog) $ \ (t,e) -> do
+                        let (_,ts) = fromLam e
+                            ts' = takeWhile (sortKindLike . getType) ts
+                        when (not (null ts')) $ putStrLn $ (pprint t) ++ " \\" ++ concat [ "(" ++ show  (Info.fetch (tvrInfo t) :: Typ) ++ ")" | t <- ts' ]
hunk ./Main.hs 566
-    prog <- transformProgram transTypeAnalyze { transformPass = "Main-AfterMethod", transformDumpProgress = True } prog
+    prog <- transformProgram transTypeAnalyze { transformPass = "Main-AfterMethod", transformDumpProgress = verbose } prog
hunk ./Main.hs 697
-    Stats.print "Grin" Stats.theStats
+    when verbose $ Stats.print "Grin" Stats.theStats