[Make progress displays while compiling grin more sane.
John Meacham <john@repetae.net>**20110202221522
 Ignore-this: 981c425ac55256592d6ce98383fbec34
] hunk ./src/E/Main.hs 418
-      transformProgram transformParms { transformCategory = "typeAnalyzeMethods",
+      transformProgram transformParms { transformCategory = "TypeAnalyzeMethods",
hunk ./src/E/Main.hs 501
-    wdump FD.Progress $ printEStats (programE prog)
+--    wdump FD.Progress $ printEStats (programE prog)
hunk ./src/Grin/FromE.hs 168
-        putErrLn $ "Found" <+> tshow (length cc) <+> "CAFs to convert to constants," <+> tshow (length reqcc) <+> "of which are recursive."
+        putErrLn $ "Updatable CAFS:" <+> tshow (length rcafs)
+        putErrLn $ "Constant CAFS: " <+> tshow (length cc)
+        putErrLn $ "Recursive CAFS:" <+> tshow (length reqcc)
+--        putErrLn $ "Found" <+> tshow (length cc) <+> "CAFs to convert to constants," <+> tshow (length reqcc) <+> "of which are recursive."
+    when verbose $ do
hunk ./src/Grin/Main.hs 43
+    putProgressLn "-- Dead Code Analysis"
hunk ./src/Grin/Main.hs 49
+    putProgressLn "-- Speculative Execution Optimization"
hunk ./src/Grin/Main.hs 59
+    putProgressLn "-- Node Usage Analysis"
hunk ./src/Grin/Main.hs 69
+    putProgressLn "-- Grin Devolution"
hunk ./src/Grin/NodeAnalyze.hs 21
-import Util.UniqueMonad
-import Util.SetLike
hunk ./src/Grin/NodeAnalyze.hs 25
+import Options
hunk ./src/Grin/NodeAnalyze.hs 28
-import Support.Tickle
hunk ./src/Grin/NodeAnalyze.hs 29
+import Support.Tickle
hunk ./src/Grin/NodeAnalyze.hs 31
+import Util.SetLike
hunk ./src/Grin/NodeAnalyze.hs 33
+import Util.UniqueMonad
hunk ./src/Grin/NodeAnalyze.hs 386
-    pstuff x arg n@(N w t) = liftIO $ printf "-- %s %s %s\n" x (show arg) (show n)
+    pstuff x arg n@(N w t) = liftIO $ when verbose (printf "-- %s %s %s\n" x (show arg) (show n))