[fix more warnings, clean up code
John Meacham <john@repetae.net>**20120117112322
 Ignore-this: c6a9bfd3ddeddfd3c10ba71333aaa06e
] hunk ./src/C/FromGrin2.hs 6
-import System.IO.Unsafe
hunk ./src/C/FromGrin2.hs 11
-import Text.Printf
hunk ./src/C/FromGrin2.hs 28
-import RawFiles
hunk ./src/C/FromGrin2.hs 35
-import Util.GMap
hunk ./src/C/FromGrin2.hs 39
-import qualified Data.ByteString as BS
hunk ./src/DataConstructors.hs 144
-    conAlias     :: {-# UNPACK #-} !AliasType, -- whether this is a simple alias and has no tag of its own.
+    conAlias     :: !AliasType,   -- whether this is a simple alias and has no tag of its own.
hunk ./src/DataConstructors.hs 305
-    f _ = []
-
-
hunk ./src/DataConstructors.hs 341
-
hunk ./src/DataConstructors.hs 373
-
-
-
hunk ./src/DataConstructors.hs 507
+{-
hunk ./src/DataConstructors.hs 513
-create_uintegralCast_toInt c1 t1 e = create_integralCast Op.U2U c1 t1 dc_Int tIntzh e tInt
hunk ./src/DataConstructors.hs 516
+-}
+create_uintegralCast_toInt c1 t1 e = create_integralCast Op.U2U c1 t1 dc_Int tIntzh e tInt
hunk ./src/E/PrimOpt.hs 26
-
hunk ./src/E/PrimOpt.hs 87
-
-
hunk ./src/E/PrimOpt.hs 93
-
-
hunk ./src/E/PrimOpt.hs 105
-
hunk ./src/E/PrimOpt.hs 113
-
hunk ./src/E/PrimOpt.hs 146
-
hunk ./src/E/PrimOpt.hs 155
-        (pa,(ta,sta)) <- extractPrimitive dataTable a
-        (pb,(tb,stb)) <- extractPrimitive dataTable b
+        (pa,(ta,_sta)) <- extractPrimitive dataTable a
+        (pb,(tb,_stb)) <- extractPrimitive dataTable b
hunk ./src/E/PrimOpt.hs 161
-        (pa,(ta,sta)) <- extractPrimitive dataTable a
+        (pa,(ta,_sta)) <- extractPrimitive dataTable a
hunk ./src/E/PrimOpt.hs 166
-        (pa,(ta,sta)) <- extractPrimitive dataTable a
+        (pa,(ta,_sta)) <- extractPrimitive dataTable a
hunk ./src/E/PrimOpt.hs 203
-        (res,(ta,sta)) <- boxPrimitive dataTable (ELit (LitInt (realToFrac (pi :: Double)) sta)) t; return res
+        (res,(_ta,sta)) <- boxPrimitive dataTable (ELit (LitInt (realToFrac (pi :: Double)) sta)) t; return res
hunk ./src/E/PrimOpt.hs 209
-
-
-
hunk ./src/FrontEnd/Tc/Monad.hs 54
-import qualified Control.Applicative as T
-import qualified Data.Traversable as T
-import qualified Data.Foldable as T
-import qualified Data.Sequence as Seq
-
-
hunk ./src/FrontEnd/Tc/Monad.hs 57
-import Maybe
-import qualified Data.Map as Map
-import qualified Data.Set as Set
hunk ./src/FrontEnd/Tc/Monad.hs 59
+import qualified Data.Foldable as T
+import qualified Data.Map as Map
+import qualified Data.Sequence as Seq
+import qualified Data.Set as Set
+import qualified Data.Traversable as T
hunk ./src/FrontEnd/Tc/Monad.hs 65
-
-import FrontEnd.Diagnostic
hunk ./src/FrontEnd/Tc/Monad.hs 68
+import FrontEnd.Diagnostic
hunk ./src/FrontEnd/Tc/Monad.hs 71
-import FrontEnd.Tc.Type
hunk ./src/FrontEnd/Tc/Monad.hs 72
+import FrontEnd.Tc.Type
+import FrontEnd.Warning
hunk ./src/FrontEnd/Tc/Monad.hs 81
-import Util.Inst
-import Util.SetLike
-import FrontEnd.Warning
hunk ./src/FrontEnd/Tc/Monad.hs 82
-import {-# SOURCE #-} FrontEnd.Tc.Class(ClassHierarchy,simplify)
-
+import {-# SOURCE #-} FrontEnd.Tc.Class(simplify)
hunk ./src/FrontEnd/Tc/Monad.hs 126
-
-
hunk ./src/FrontEnd/Tc/Monad.hs 162
-
hunk ./src/FrontEnd/Tc/Monad.hs 230
-
-
hunk ./src/FrontEnd/Tc/Monad.hs 235
-
-
hunk ./src/FrontEnd/Tc/Monad.hs 244
-
hunk ./src/FrontEnd/Tc/Monad.hs 257
-
hunk ./src/FrontEnd/Tc/Monad.hs 264
-
hunk ./src/FrontEnd/Tc/Monad.hs 281
-
hunk ./src/FrontEnd/Tc/Monad.hs 290
-
hunk ./src/FrontEnd/Tc/Monad.hs 375
-
-
-
hunk ./src/FrontEnd/Tc/Monad.hs 496
-
-
hunk ./src/FrontEnd/Tc/Monad.hs 542
-
hunk ./src/FrontEnd/Tc/Monad.hs 553
-
hunk ./src/Options.hs 40
+import qualified Data.ByteString.UTF8 as BS
hunk ./src/Options.hs 43
-import qualified Data.ByteString.UTF8 as BS
hunk ./src/Options.hs 46
+import Util.ExitCodes
hunk ./src/Options.hs 49
-import Util.ExitCodes
hunk ./src/Options.hs 51
-import qualified Version.Config as VC
hunk ./src/Options.hs 53
-
+import qualified Version.Config as VC
hunk ./src/Options.hs 156
-
hunk ./src/Options.hs 190
-
hunk ./src/Options.hs 277
-
hunk ./src/Options.hs 281
-
hunk ./src/Stats.hs 46
-import StringTable.Atom
hunk ./src/Stats.hs 47
+import StringTable.Atom
hunk ./src/Stats.hs 64
-
hunk ./src/Stats.hs 116
-
hunk ./src/Stats.hs 221
-
hunk ./src/Stats.hs 230
-