[add finalPhase option to simplify opts, get rid of unused options
John Meacham <john@repetae.net>**20060413024017] hunk ./E/SSimplify.hs 251
-    so_superInline :: Bool,                -- ^ whether to do superinlining
+    so_finalPhase :: Bool,                 -- ^ no rules and don't inhibit inlining
hunk ./E/SSimplify.hs 253
-    so_rules :: Rules,
hunk ./E/SSimplify.hs 362
-    collocc dsIn = do return dsIn
hunk ./E/SSimplify.hs 369
-        dsIn <- sequence [etaExpandDef' (so_dataTable sopts) t e | (t,e) <- dsIn ]
-        ds' <- collocc dsIn
+        ds' <- sequence [etaExpandDef' (so_dataTable sopts) t e | (t,e) <- dsIn ]
hunk ./E/SSimplify.hs 371
-                e' <- if forceInline t then
+                e' <- if not (so_finalPhase sopts) && forceInline t  then
hunk ./Main.hs 327
-            let sopt = mempty { SS.so_exports = inscope, SS.so_boundVars = smap, SS.so_rules = allRules, SS.so_dataTable = fullDataTable }
+            let sopt = mempty { SS.so_exports = inscope, SS.so_boundVars = smap, SS.so_dataTable = fullDataTable }
hunk ./Main.hs 563
-    prog <- simplifyProgram mempty "SuperSimplify no rules" True prog
+    prog <- simplifyProgram mempty { SS.so_finalPhase = True } "SuperSimplify no rules" True prog