[fix some warnings
John Meacham <john@repetae.net>**20100801083507
 Ignore-this: fd350fd02d0ad5a611ee1811de28bce5
] hunk ./src/E/FromHs.hs 13
-import Data.Monoid
hunk ./src/E/FromHs.hs 291
-                let ur = show $ unRename $ nameName (toUnqualified $ runIdentity $ fromId (tvrIdent tvr))
+                let ur = show $ unRename (toUnqualified $ runIdentity $ fromId (tvrIdent tvr))
hunk ./src/E/FromHs.hs 305
-    [(_,_,e)] <- convertDecls tiData mempty classHierarchy assumps dataTable [HsPatBind srcLoc (HsPVar sillyName') (HsUnGuardedRhs exp) []]
+    [(_,_,e)] <- convertDecls tiData mempty classHierarchy assumps dataTable [HsPatBind srcLoc (HsPVar v_silly) (HsUnGuardedRhs exp) []]
hunk ./src/E/FromHs.hs 309
-sillyName' = nameName v_silly
hunk ./src/E/FromHs.hs 581
-    cDecl (HsPatBind sl (HsPVar n) (HsUnGuardedRhs exp) []) | n == sillyName' = do
+    cDecl (HsPatBind sl (HsPVar n) (HsUnGuardedRhs exp) []) | n == v_silly = do
hunk ./src/E/FromHs.hs 887
-        match  [] ps err = return $ foldr f err ps where f ([],fe) err = fe err
+        match  [] ps err = return $ foldr f err ps where f (~[],fe) err = fe err
hunk ./src/E/FromHs.hs 891
-            (b',mf) <- if isEVar b   then return (b,id) else do
+            (b',mf) <- if isEVar b then return (b,id) else do