[make eta expansion use transformProgram routine
John Meacham <john@repetae.net>**20060323022217] hunk ./Main.hs 330
-
-    prog <- Stats.runStatIO stats (etaExpandProgram prog)
+    prog <- etaExpandProg prog
hunk ./Main.hs 447
+etaExpandProg :: Program -> IO Program
+etaExpandProg prog = do
+    let (prog',stats) = Stats.runStatM $  etaExpandProgram prog
+    transformProgram "eta expansion" (dump FD.Pass) (const $ return prog' { progStats = progStats prog' `mappend` stats }) prog
+
hunk ./Main.hs 522
-    prog <- Stats.runStatIO st (etaExpandProgram prog)
-    Stats.print "eta" st
+    prog <- etaExpandProg prog