[clean up code some
John Meacham <john@repetae.net>**20080229042345] hunk ./E/Rules.hs 5
-    Rules,
+    Rules(..),
hunk ./Main.hs 168
+
hunk ./Main.hs 361
-        mprog <- simplifyProgram sopt "Init-One" (dump FD.CoreMini) mprog
+        mprog <- simplifyProgram sopt "Init-One" coreMini mprog
hunk ./Main.hs 374
-        mprog <- simplifyProgram sopt "Init-Two-FloatOutCleanup" (dump FD.CoreMini) mprog
+        mprog <- simplifyProgram sopt "Init-Two-FloatOutCleanup" coreMini mprog
hunk ./Main.hs 885
-    when (dodump && dump FD.CorePass) $ printProgram prog
+    when (dodump && corePass) $ printProgram prog