[eta expand case bodies as well as let definitions
John Meacham <john@repetae.net>**20060209054402] hunk ./E/Eta.hs 49
+    f ec@ECase {} = do
+        ec' <- caseBodiesMapM ee ec
+        emapE' f ec'
hunk ./E/Eta.hs 54
-    ee (ELam t e) = do
-        e' <- ee e
+    ee e = ee' e
+    ee' (ELam t e) = do
+        e' <- ee' e
hunk ./E/Eta.hs 58
-    ee e | (EVar t,as) <- fromAp e , Just (Arity n) <- Info.lookup (tvrInfo t), n > length as = do
+    ee' e | (EVar t,as) <- fromAp e , Just (Arity n) <- Info.lookup (tvrInfo t), n > length as = do
hunk ./E/Eta.hs 66
-    ee e = return e
+    ee' e = return e