[fix warnings
John Meacham <john@repetae.net>**20090222001105
 Ignore-this: 63103d398c85e874362c608a7cead6d0
] hunk ./E/Subst.hs 41
-import Data.Monoid
hunk ./E/Subst.hs 47
-import Name.Names (tc_Arrow)
-import {-# SOURCE #-} E.Show
hunk ./E/Subst.hs 54
-eLetRec :: [(TVr,E)] -> E -> E
-eLetRec ds e = f (filter ((/= emptyId) . tvrIdent . fst) ds) where
-    f [] = e
-    f ds = ELetRec ds e
+--eLetRec :: [(TVr,E)] -> E -> E
+--eLetRec ds e = f (filter ((/= emptyId) . tvrIdent . fst) ds) where
+--    f [] = e
+--    f ds = ELetRec ds e
hunk ./E/Subst.hs 206
-substType t e e' = typeSubst (freeVars e `union` freeVars e') (msingleton t e) e'
+--substType t e e' = typeSubst (freeVars e `union` freeVars e') (msingleton t e) e'