[clean up some warnings
John Meacham <john@repetae.net>**20090709120605
 Ignore-this: 5072ee18aefa07639e5d108c923118a8
] hunk ./src/CharIO.hs 25
-flushOut = Control.Exception.catch  (IO.hFlush IO.stdout) (\(e::SomeException) -> return ())
+flushOut = Control.Exception.catch  (IO.hFlush IO.stdout) (\(e::SomeException') -> return ())
hunk ./src/CharIO.hs 41
-                   , Handler $ \ (e::SomeException) -> putErrDie $ show e ]
+                   , Handler $ \ (e::SomeException') -> putErrDie $ show e ]
hunk ./src/Cmm/OpEval.hs 40
+x `tyEq` y = (x `tyLte` y) && (y `tyLte` x)
hunk ./src/Cmm/OpEval.hs 42
+{-
hunk ./src/Cmm/OpEval.hs 46
-x `tyEq` y = (x `tyLte` y) && (y `tyLte` x)
+-}
hunk ./src/E/TypeAnalysis.hs 29
-import Info.Info(infoMapM,infoMap)
hunk ./src/FrontEnd/Rename.hs 27
-import qualified FlagOpts as FO
hunk ./src/FrontEnd/Rename.hs 280
-            let nt = if null ns' then t else HsTyForall bs (HsQualType [] t)
+            let _nt = if null ns' then t else HsTyForall bs (HsQualType [] t)
hunk ./src/Grin/Grin.hs 228
-    | Demote Val              -- ^ explicitly cast a node into an inode
hunk ./src/Grin/Lint.hs 196
-        putErrLn (show (e::SomeException))
+        putErrLn (show (e::SomeException'))
hunk ./src/Grin/Lint.hs 284
-    f (BaseOp PeekVal [v]) = do
-        TyPtr t <- tcVal v
-        return [t]
hunk ./src/Info/Info.hs 63
-instance Data Info where
-    toConstr = undefined
-    dataTypeOf = undefined
+--instance Data Info where
+--    toConstr = undefined
+--    dataTypeOf = undefined
hunk ./src/Main.hs 13
-import qualified Data.List as L
+import List as L
hunk ./src/PackedString.hs 52
-import Data.Array.IO
hunk ./src/PackedString.hs 60
-import Data.Array.Base
hunk ./src/PackedString.hs 62
-import Foreign.C.Types
hunk ./src/PackedString.hs 346
+{-
hunk ./src/PackedString.hs 359
+-}
hunk ./src/PackedString.hs 395
+{-
hunk ./src/PackedString.hs 443
+-}
hunk ./src/Support/Compat.hs 13
-type SomeException = Exception
+type SomeException' = Exception
+#else
+type SomeException' = SomeException
hunk ./src/Support/IniParse.hs 134
-            (be,[]) -> f xs (Seq.foldl res cm (Map.findWithDefault Seq.empty be pini))
+            ~(be,[]) -> f xs (Seq.foldl res cm (Map.findWithDefault Seq.empty be pini))
hunk ./src/Util/Interact.hs 120
-        expand s = fsts (args s) ++ filter (isPrefixOf s) (interactSettables act)
+--        expand s = fsts (args s) ++ filter (isPrefixOf s) (interactSettables act)
hunk ./src/Util/UnionSolve.hs 10
-import Control.Monad(when)
hunk ./src/Util/UnionSolve.hs 166
-        nem Nothing Nothing = False
-        nem (Just x) (Just y) = not (x `eq` y)
-        nem _ _ = True
-        getBounds Lower (Ri _ lb _ _) = lb
-        getBounds Upper (Ri _ _ _ ub) = ub
-        getBounds _ _ = Set.empty
+                _ -> error "Util.UnionSolve: invalid Ri"
hunk ./src/Util/UnionSolve.hs 245
+                _ -> error "Util.UnionSolve: equality, can't happen."