[remove BindType anotations from all variables as they were rarely used
John Meacham <john@repetae.net>**20080219153025] hunk ./E/Annotate.hs 64
-            return (tvrInfo_u (Info.insert LetBound) t { tvrInfo = nfo })
+            return t { tvrInfo = nfo }
hunk ./E/Annotate.hs 78
-        (b',r) <- ntvr [] $ caseBind { tvrInfo = Info.insert CaseDefault (tvrInfo caseBind) }
+        (b',r) <- ntvr [] caseBind
hunk ./E/Annotate.hs 82
-                (as,rs) <- liftM unzip $ mapMntvr (map (tvrInfo_u (Info.insert CasePattern)) vs)
+                (as,rs) <- liftM unzip $ mapMntvr vs
hunk ./E/Annotate.hs 98
-        return $ lam (tvr { tvrIdent =  0, tvrType =  t', tvrInfo =  Info.insert bnd nfo}) e'
+        return $ lam (tvr { tvrIdent =  0, tvrType =  t', tvrInfo =  nfo}) e'
hunk ./Info/Types.hs 20
-    deriving(Typeable,Show,Ord,Eq)
+    deriving(Show,Ord,Eq)