[fix imports for new Stats, change transformations to just check if stats are empty, rather than counting them
John Meacham <john@repetae.net>**20070523035104] hunk ./E/LambdaLift.hs 27
-import Stats
+import Stats(mtick,runStatM,runStatT)
hunk ./E/SSimplify.hs 47
-import Stats hiding(new,print,Stats,singleton)
+import Stats hiding(null,new,print,Stats,singleton)
hunk ./E/TypeAnalysis.hs 37
-import Stats
hunk ./E/TypeAnalysis.hs 41
+import qualified Stats
hunk ./E/TypeAnalysis.hs 85
-    let (prog',stats) = runStatM $ specializeProgram doSpecialize (Set.fromList unusedRules) (Set.fromList unusedValues) prog
+    let (prog',stats) = Stats.runStatM $ specializeProgram doSpecialize (Set.fromList unusedRules) (Set.fromList unusedValues) prog
hunk ./E/TypeAnalysis.hs 273
-specializeProgram :: (MonadStats m) =>
+specializeProgram :: (Stats.MonadStats m) =>
hunk ./E/TypeAnalysis.hs 297
-        sequence_ [ mtick ("Specialize.body.{" ++ pprint tvr ++ "}.{" ++ pprint t ++ "}.{" ++ pprint v) | (t,Just v) <- sts ]
+        sequence_ [ Stats.mtick ("Specialize.body.{" ++ pprint tvr ++ "}.{" ++ pprint t ++ "}.{" ++ pprint v) | (t,Just v) <- sts ]
hunk ./E/TypeAnalysis.hs 343
-specAlt :: MonadStats m => SpecEnv -> Alt E -> m (Alt E)
+specAlt :: Stats.MonadStats m => SpecEnv -> Alt E -> m (Alt E)
hunk ./E/TypeAnalysis.hs 350
-            mtick $ "Specialize.alt.{" ++ pprint (show nt,tt) ++ "}"
+            Stats.mtick $ "Specialize.alt.{" ++ pprint (show nt,tt) ++ "}"
hunk ./E/TypeAnalysis.hs 359
-specBody :: MonadStats m => Bool -> SpecEnv -> E -> m E
+specBody :: Stats.MonadStats m => Bool -> SpecEnv -> E -> m E
hunk ./E/TypeAnalysis.hs 361
-    mtick $ "Specialize.delete.{" ++ pprint h ++ "}"
+    Stats.mtick $ "Specialize.delete.{" ++ pprint h ++ "}"
hunk ./E/TypeAnalysis.hs 364
-    mtick $ "Specialize.use.{" ++ pprint h ++ "}"
+    Stats.mtick $ "Specialize.use.{" ++ pprint h ++ "}"
hunk ./E/WorkerWrapper.hs 22
-import Stats
+import Stats hiding(null)
hunk ./Grin/Optimize.hs 14
-import Stats
+import Stats hiding(null)
hunk ./Main.hs 701
-            t' <- Stats.getTicks stats'
+            t' <- Stats.isEmpty stats'
hunk ./Main.hs 706
-                0 -> return x
-                _ -> opt s x
+                True -> return x
+                False -> opt s x
hunk ./Main.hs 723
-            t' <- Stats.getTicks stats'
+            t' <- Stats.isEmpty stats'
hunk ./Main.hs 727
-                0 -> return grin
-                _ -> opt s grin
+                True -> return grin
+                False -> opt s grin
hunk ./Main.hs 864
-    when (dodump && dump FD.CoreSteps && estat /= mempty) $ Stats.printLStat (optStatLevel options) name estat
+    when (dodump && dump FD.CoreSteps && (not $ Stats.null estat)) $ Stats.printLStat (optStatLevel options) name estat
hunk ./Main.hs 870
-    if doIterate iterate (estat /= mempty) then transformProgram tp { transformIterate = iterateStep iterate } prog' { progStats = istat `mappend` estat } else
+    if doIterate iterate (not $ Stats.null estat) then transformProgram tp { transformIterate = iterateStep iterate } prog' { progStats = istat `mappend` estat } else
hunk ./Main.hs 880
-    t' <- Stats.getTicks stats'
+    t' <- Stats.isEmpty stats'
hunk ./Main.hs 882
-        0 -> return lc
-        _ -> do
+        False -> return lc
+        True -> do