[make things evaluate a bit more eagerly in Main to catch errors faster
John Meacham <john@repetae.net>**20070306031152] hunk ./Main.hs 162
-        transformOperation =  return . barendregtProgram
+        transformOperation =  evaluate . barendregtProgram
hunk ./Main.hs 246
-    let fullDataTable = (dataTable `mappend` hoDataTable ho)
+        fullDataTable = dataTable `mappend` hoDataTable ho
hunk ./Main.hs 291
-    cho <- return $ reprocessCho rules allProps cho
+    cho <- evaluate $ reprocessCho rules allProps cho
hunk ./Main.hs 458
-programPrune prog = transformProgram transformParms { transformCategory = "PruneUnreachable", transformDumpProgress  = miniCorePass, transformOperation = return . programPruneUnreachable } prog
+programPrune prog = transformProgram transformParms { transformCategory = "PruneUnreachable", transformDumpProgress  = miniCorePass, transformOperation = evaluate . programPruneUnreachable } prog
hunk ./Main.hs 464
-    transformProgram transformParms { transformPass = pass, transformCategory = "EtaExpansion", transformDumpProgress = miniCorePass,  transformOperation = return . f } prog
+    transformProgram transformParms { transformPass = pass, transformCategory = "EtaExpansion", transformDumpProgress = miniCorePass,  transformOperation = evaluate . f } prog
hunk ./Main.hs 521
-    prog <- transformProgram transformParms { transformCategory = "PruneUnreachable", transformOperation = return . programPruneUnreachable } prog
+    prog <- transformProgram transformParms { transformCategory = "PruneUnreachable", transformOperation = evaluate . programPruneUnreachable } prog
hunk ./Main.hs 549
-    prog <- return $ programSetDs ([ (t,e) | (t,e) <- programDs prog, t `notElem` fsts cmethods] ++ cmethods) prog
+    prog <- evaluate $ programSetDs ([ (t,e) | (t,e) <- programDs prog, t `notElem` fsts cmethods] ++ cmethods) prog
hunk ./Main.hs 609
-    prog <- transformProgram transformParms { transformCategory = "Boxy WorkWrap", transformDumpProgress = dump FD.Progress, transformOperation = return . workWrapProgram } prog
+    prog <- transformProgram transformParms { transformCategory = "Boxy WorkWrap", transformDumpProgress = dump FD.Progress, transformOperation = evaluate . workWrapProgram } prog