[Pass full data table to initial optimization passes.
John Meacham <john@repetae.net>**20050426033157] hunk ./DataConstructors.hs 224
-    _ -> fail $ "lookupCType: " ++ show e
+    e' -> fail $ "lookupCType: " ++ show (e,e')
hunk ./DataConstructors.hs 232
-    _ -> fail $ "lookupCType: " ++ show e
+    e' -> fail $ "lookupCType': " ++ show (e,e')
hunk ./Main.hs 141
-            let sopt = mempty { SS.so_exports = inscope, SS.so_boundVars = smap, SS.so_rules = allRules, SS.so_dataTable = dataTable, SS.so_properties = (if fopts FO.InlinePragmas then  hoProps ho else mempty) }
+            let sopt = mempty { SS.so_exports = inscope, SS.so_boundVars = smap, SS.so_rules = allRules, SS.so_dataTable = fullDataTable, SS.so_properties = (if fopts FO.InlinePragmas then  hoProps ho else mempty) }