[make cheap-eagerness transformation annotate the creaed case statement with the correct type.
John Meacham <john@repetae.net>**20061010072556] hunk ./E/SSimplify.hs 522
-                return $ ec { eCaseDefault = Just $ ELetRec [(t,def)] e' }
+                return $ ec { eCaseDefault = Just $ ELetRec [(t,def)] e', eCaseType = getType e' }
hunk ./E/SSimplify.hs 525
-                return $ ec { eCaseAlts = [Alt c (ELetRec [(t,def)] e')] }
+                return $ ec { eCaseAlts = [Alt c (ELetRec [(t,def)] e')], eCaseType = getType e' }