[clean up compile warnings
John Meacham <john@repetae.net>**20120117104532
 Ignore-this: 7ca8b56aba67d4d88580b84bd46b8fb2
] hunk ./src/Cmm/Op.hs 1
+{-# OPTIONS -funbox-strict-fields #-}
hunk ./src/Cmm/Op.hs 150
-data TyBits = Bits {-# UNPACK #-} !Int | BitsArch {-# UNPACK #-} !ArchBits |  BitsExt String
+data TyBits = Bits {-# UNPACK #-} !Int | BitsArch !ArchBits |  BitsExt String
hunk ./src/Cmm/Op.hs 164
-    = TyBits !TyBits {-# UNPACK #-} !TyHint
+    = TyBits !TyBits !TyHint
hunk ./src/Grin/NodeAnalyze.hs 11
-import Control.Monad(forM, forM_, when)
-import Control.Monad.RWS(MonadWriter(..), RWS(..))
hunk ./src/Grin/NodeAnalyze.hs 12
-import Data.Monoid
hunk ./src/Grin/NodeAnalyze.hs 13
-import IO
hunk ./src/Grin/NodeAnalyze.hs 18
-import Grin.Lint
hunk ./src/Grin/NodeAnalyze.hs 19
-import Grin.Whiz
hunk ./src/Support/MapBinaryInstance.hs 5
-import Data.Word
hunk ./src/Util/Inst.hs 8
+import Data.Monoid
+#if __GLASGOW_HASKELL__ <= 610
hunk ./src/Util/Inst.hs 12
-import Data.Monoid
hunk ./src/Util/Inst.hs 14
+#endif
hunk ./src/Util/IntBag.hs 95
---            , toAscList
+            , toAscList
hunk ./src/Util/IntBag.hs 127
-import Data.Int
-import qualified Data.IntSet as IntSet
hunk ./src/Util/IntBag.hs 128
-import Data.Typeable
-import Data.Foldable (Foldable(foldMap))
hunk ./src/Util/IntBag.hs 130
-#if __GLASGOW_HASKELL__
-import Text.Read
-import Data.Generics.Basics
-import Data.Generics.Instances
-#endif
hunk ./src/Util/IntBag.hs 133
-import GHC.Exts ( Word(..), Int(..), shiftRL# )
+import GHC.Exts (  Int(..), shiftRL# )
hunk ./src/Util/IntBag.hs 1148
-nomatch,match :: Key -> Prefix -> Mask -> Bool
+nomatch,_match :: Key -> Prefix -> Mask -> Bool
hunk ./src/Util/IntBag.hs 1152
-match i p m
+_match i p m