[substitute atomic types when creating default methods, remove unused exports from E.FromHs
John Meacham <john@repetae.net>**20060223022602] hunk ./E/FromHs.hs 2
-    altConv,
hunk ./E/FromHs.hs 6
-    getMainFunction,
-    guardConv,
-    matchesConv,
-    theMainName
+    getMainFunction
hunk ./E/FromHs.hs 162
-    v (HsAlt _ p rhs wh) = ([simplifyHsPat p],guardConv rhs,wh)
-
-guardConv x = x
-
---guardConv (HsUnGuardedAlt e) = HsUnGuardedRhs e
---guardConv (HsGuardedAlts gs) = HsGuardedRhss (map (\(HsGuardedAlt s e1 e2) -> HsGuardedRhs s e1 e2) gs)
+    v (HsAlt _ p rhs wh) = ([simplifyHsPat p],rhs,wh)
hunk ./E/FromHs.hs 233
-                | Just (deftvr,defe) <- theDefault = return $ calt $ ELetRec [(tvr,tipe t)] (EAp (EVar deftvr) (EVar tvr))
+                | Just (deftvr,defe) <- theDefault = return $ calt $ eLet tvr (tipe t) (EAp (EVar deftvr) (EVar tvr))