[fix type error in declaration of theMain
John Meacham <john@repetae.net>**20051024084333] hunk ./E/FromHs.hs 135
-            ans' = eStrictLet (tvr { tvrIdent = 0, tvrType = (infertype dataTable be)}) be vUnit
+            -- ans' = eStrictLet (tvr { tvrIdent = 0, tvrType = (infertype dataTable be)}) be vUnit
hunk ./E/FromHs.hs 138
-            theMainTvr =  tVr (nameToInt theMainName) (getType be)
+            theMainTvr =  tVr (nameToInt theMainName) (infertype dataTable be)
hunk ./Main.hs 393
+
hunk ./Main.hs 395
+
hunk ./Main.hs 398
+
+    stats <- Stats.new