[disable postlifting optimization pass
John Meacham <john@repetae.net>**20070516060809] hunk ./Main.hs 627
-    prog <- flip programMapBodies prog $ \ e -> do
-        let cm stats e = do
-            let sopt = mempty {  SS.so_dataTable = dataTable }
-            let (stat, e') = SS.simplifyE sopt e
-            Stats.tickStat stats stat
-            return e'
-        doopt (mangle' Nothing dataTable) False finalStats "PostLambdaLift"  cm e
-    wdump FD.Progress $ Stats.print "PostLifting" finalStats
+--    prog <- flip programMapBodies prog $ \ e -> do
+--        let cm stats e = do
+--            let sopt = mempty {  SS.so_dataTable = dataTable }
+--            let (stat, e') = SS.simplifyE sopt e
+--            Stats.tickStat stats stat
+--            return e'
+--        doopt (mangle' Nothing dataTable) False finalStats "PostLambdaLift"  cm e
+--    wdump FD.Progress $ Stats.print "PostLifting" finalStats