[annotate HsCase expressions with their type.
John Meacham <john@repetae.net>**20060222151353] hunk ./E/FromHs.hs 426
-    cExpr hs@(HsCase e alts) = z where
-        z = cMatchs [cExpr e] (altConv alts) (EError ("No Match in Case expression at " ++ show (srcLoc hs))  (getType z))
+    cExpr (HsAsPat n hs@(HsCase e alts)) = ans where
+        ans = cMatchs [cExpr e] (altConv alts) (EError ("No Match in Case expression at " ++ show (srcLoc hs))  ty)
+        ty = cType n
hunk ./FrontEnd/Rename.hs 758
-    return (HsCase hsExp' hsAlts')
+    wrapInAsPat (HsCase hsExp' hsAlts')