[Fix a lot of compiler warnings, clean up dependencies.
John Meacham <john@repetae.net>**20101204035931
 Ignore-this: 7524be06d3ca6cd957316e50451b7208
] hunk ./src/C/Generate.hs 75
-import Control.Monad
hunk ./src/C/Generate.hs 77
-import Data.Monoid
hunk ./src/Cmm/OpEval.hs 11
-import Cmm.Number
-import Cmm.Op
-import Control.Monad
hunk ./src/Cmm/OpEval.hs 14
+import Cmm.Number
+import Cmm.Op
+
hunk ./src/DerivingDrift/Drift.hs 5
-import Control.Monad.Identity
+import qualified Data.Map as Map
hunk ./src/DerivingDrift/Drift.hs 10
-import FrontEnd.ParseMonad
hunk ./src/DerivingDrift/Drift.hs 11
+import FrontEnd.ParseMonad
hunk ./src/DerivingDrift/Drift.hs 16
-import qualified Data.Map as Map
-import qualified FlagDump as FD
hunk ./src/DerivingDrift/Drift.hs 17
+import qualified FlagDump as FD
hunk ./src/DerivingDrift/StandardRules.hs 4
-import List
hunk ./src/Doc/Pretty.hs 1
-{-# OPTIONS -fno-monomorphism-restriction #-}
+{-# LANGUAGE NoMonomorphismRestriction #-}
hunk ./src/E/Binary.hs 5
-import Monad
hunk ./src/E/E.hs 13
-import qualified Data.Traversable as T
-import List
hunk ./src/E/E.hs 14
+import qualified Data.Traversable as T
hunk ./src/E/E.hs 16
-import E.FreeVars
-import C.Prims
hunk ./src/E/E.hs 17
+import C.Prims
+import E.FreeVars
hunk ./src/E/Eta.hs 17
-import Data.Monoid
hunk ./src/E/Eta.hs 18
-import Maybe
hunk ./src/E/Eta.hs 80
-lamann _ nfo = return nfo
hunk ./src/E/Eta.hs 158
-    fvs = foldr insert (freeVars (b,map getType rs,(tvrType t,e))) (map tvrIdent rs) `mappend` collectIds e
-    (b,rs) = fromLam e
+    --fvs = foldr insert (freeVars (b,map getType rs,(tvrType t,e))) (map tvrIdent rs) `mappend` collectIds e
+    --(b,rs) = fromLam e
hunk ./src/E/Eval.hs 12
-import E.FreeVars
hunk ./src/E/PrimOpt.hs 7
-import List
-import Monad
hunk ./src/E/PrimOpt.hs 10
-import StringTable.Atom
hunk ./src/E/PrimOpt.hs 11
+import Cmm.Op(stringToOpTy)
hunk ./src/E/PrimOpt.hs 13
-import DataConstructors
hunk ./src/E/PrimOpt.hs 14
+import DataConstructors
hunk ./src/E/PrimOpt.hs 20
-import Name.Id
hunk ./src/E/PrimOpt.hs 21
+import StringTable.Atom
hunk ./src/E/PrimOpt.hs 25
-import Cmm.Op(stringToOpTy)
hunk ./src/E/SSimplify.hs 15
-import Control.Monad.Reader
hunk ./src/E/SSimplify.hs 16
-import Data.Monoid
hunk ./src/E/SSimplify.hs 57
-import System.Random
-
hunk ./src/E/Subst.hs 42
-import List hiding(union,insert,delete)
+import qualified Data.Set as Set
hunk ./src/E/Subst.hs 44
-import Name.Names
hunk ./src/E/Subst.hs 46
+import GenUtil
hunk ./src/E/Subst.hs 48
+import Name.Names
hunk ./src/E/Subst.hs 50
-import GenUtil
-import Util.SetLike as S
hunk ./src/E/Subst.hs 51
-
-import qualified Data.Set as Set
+import Util.SetLike as S
hunk ./src/E/Traverse.hs 20
-import E.FreeVars(caseUpdate)
-import E.Type
hunk ./src/E/Type.hs 5
-import Maybe
-import Control.Monad.Identity
-import Data.Traversable
hunk ./src/E/Type.hs 6
-import Control.Applicative
+import Data.Traversable
hunk ./src/E/Type.hs 9
-import StringTable.Atom
+import Cmm.Number
hunk ./src/E/Type.hs 12
+import Info.Types
hunk ./src/E/Type.hs 14
-import Util.Gen
hunk ./src/E/Type.hs 16
-import Cmm.Number
-import Info.Types
+import StringTable.Atom
+import Util.Gen
hunk ./src/E/Values.hs 3
-import Char
hunk ./src/E/WorkerWrapper.hs 4
-import Data.Monoid hiding(Product(..))
hunk ./src/E/WorkerWrapper.hs 5
-import Monad
hunk ./src/E/WorkerWrapper.hs 9
-import E.FreeVars
hunk ./src/FrontEnd/FrontEnd.hs 7
-import Data.Monoid
hunk ./src/FrontEnd/FrontEnd.hs 9
-import Name.Name
hunk ./src/FrontEnd/FrontEnd.hs 11
+import FrontEnd.HsSyn
hunk ./src/FrontEnd/FrontEnd.hs 14
-import GenUtil
-import Ho.Collected
+import FrontEnd.Warning
hunk ./src/FrontEnd/FrontEnd.hs 16
-import FrontEnd.HsSyn
+import Name.Name
hunk ./src/FrontEnd/FrontEnd.hs 18
-import FrontEnd.Warning
hunk ./src/FrontEnd/FrontEnd.hs 34
--}
hunk ./src/FrontEnd/FrontEnd.hs 46
+-}
hunk ./src/FrontEnd/KindInfer.hs 20
-import Control.Monad.Reader
-import Data.List
-import qualified Data.Traversable as T
-import Util.Inst()
-import Data.Maybe
hunk ./src/FrontEnd/KindInfer.hs 21
+import Control.Monad.Reader
hunk ./src/FrontEnd/KindInfer.hs 25
-import Data.Monoid
-import qualified Data.Map as Map
+import Data.List
+import Data.Binary
hunk ./src/FrontEnd/KindInfer.hs 28
+import Util.Inst()
+import qualified Data.Map as Map
+import qualified Data.Traversable as T
hunk ./src/FrontEnd/KindInfer.hs 32
-import Data.Binary
hunk ./src/FrontEnd/KindInfer.hs 34
-import FrontEnd.Tc.Type
+import FrontEnd.HsSyn
hunk ./src/FrontEnd/KindInfer.hs 36
+import FrontEnd.Tc.Type
hunk ./src/FrontEnd/KindInfer.hs 38
-import GenUtil
-import Support.FreeVars
-import FrontEnd.HsSyn
-import Support.MapBinaryInstance
hunk ./src/FrontEnd/KindInfer.hs 39
-import qualified Util.Seq as Seq
-import qualified FlagDump as FD
hunk ./src/FrontEnd/KindInfer.hs 40
+import Support.FreeVars
+import Support.MapBinaryInstance
hunk ./src/FrontEnd/KindInfer.hs 43
+import Util.Gen
hunk ./src/FrontEnd/KindInfer.hs 45
+import qualified FlagDump as FD
+import qualified Util.Seq as Seq
hunk ./src/FrontEnd/Rename.hs 21
-import Util.GMap
hunk ./src/FrontEnd/Rename.hs 58
-    envSubTable    :: Map.Map HsName HsName,
-    errorTable     :: Map.Map HsName String,
hunk ./src/FrontEnd/Rename.hs 77
-        f r z@(getModule -> Nothing) = let nn = qualifyName mod z in (z,nn):(nn,nn):r
+        f r z = let nn = qualifyName mod z in (z,nn):(nn,nn):r
hunk ./src/FrontEnd/Rename.hs 81
-    let cn k (Right x) (Right y) | x /= y = Left $ ambig k [x,y]
-        cn _ _ x@Left {} = x
-        cn _ x _ = x
+--    let cn k (Right x) (Right y) | x /= y = Left $ ambig k [x,y]
+--        cn _ _ x@Left {} = x
+--        cn _ x _ = x
hunk ./src/FrontEnd/Representation.hs 41
-import Text.PrettyPrint.HughesPJ(Doc)
hunk ./src/FrontEnd/Representation.hs 45
-import FrontEnd.HsSyn
hunk ./src/FrontEnd/Representation.hs 49
-import qualified Doc.DocLike as D
hunk ./src/FrontEnd/SrcLoc.hs 5
-import Control.Monad
hunk ./src/FrontEnd/SrcLoc.hs 9
-import Data.Monoid
hunk ./src/FrontEnd/Tc/Main.hs 3
+import Control.Monad.Reader
hunk ./src/FrontEnd/Tc/Main.hs 6
-import IO(hFlush,stdout)
-import List
+import System.IO(hPutStr,stderr)
hunk ./src/FrontEnd/Tc/Main.hs 10
-import System.IO(hPutStr,stderr)
hunk ./src/FrontEnd/Tc/Main.hs 11
-import Doc.PPrint
-import Control.Monad.Reader
-import FrontEnd.DeclsDepends(getDeclDeps)
-import FrontEnd.Diagnostic
hunk ./src/FrontEnd/Tc/Main.hs 13
-import FrontEnd.Desugar(doToExp)
+import FrontEnd.DeclsDepends(getDeclDeps)
+import FrontEnd.Diagnostic
+import FrontEnd.HsPretty
+import FrontEnd.HsSyn
hunk ./src/FrontEnd/Tc/Main.hs 20
+import FrontEnd.Tc.Kind
hunk ./src/FrontEnd/Tc/Main.hs 23
-import FrontEnd.Tc.Kind
hunk ./src/FrontEnd/Tc/Main.hs 26
-import FrontEnd.HsPretty
-import FrontEnd.HsSyn
hunk ./src/FrontEnd/Tc/Main.hs 31
+import Util.Progress
hunk ./src/FrontEnd/Tc/Main.hs 34
-import Util.Progress
hunk ./src/FrontEnd/TypeSynonyms.hs 14
-import Data.Monoid
hunk ./src/Grin/DeadCode.hs 7
-import qualified Data.Map as Map
hunk ./src/Grin/DeadCode.hs 8
-import StringTable.Atom
hunk ./src/Grin/DeadCode.hs 14
+import StringTable.Atom
hunk ./src/Grin/DeadCode.hs 17
-import Util.SetLike hiding(Value)
hunk ./src/Grin/DeadCode.hs 18
+import Util.SetLike hiding(Value)
hunk ./src/Grin/Devolve.hs 11
-import Util.Gen
-import Util.SetLike
-import Support.Transform
-import Support.CanType
hunk ./src/Grin/Devolve.hs 13
-import Support.FreeVars
hunk ./src/Grin/Devolve.hs 14
+import Support.FreeVars
+import Support.Transform
+import Util.Gen
+import Util.SetLike
hunk ./src/Grin/EvalInline.hs 7
-import qualified Data.Map as Map
hunk ./src/Grin/Grin.hs 61
-import qualified Data.Map as Map
hunk ./src/Grin/Lint.hs 156
-    app n as | Just (0,fn) <- tagUnfunction n = do
-        hPrintf h "lazyfunc(%s).\n" (dshow fn)
-        forM_ (zip naturals as) $ \ (i,a) -> do
-            assign "assign" (Left $ funArg fn i) a
-    app _ _ = return ()
+    --app n as | Just (0,fn) <- tagUnfunction n = do
+    --    hPrintf h "lazyfunc(%s).\n" (dshow fn)
+    --    forM_ (zip naturals as) $ \ (i,a) -> do
+    --        assign "assign" (Left $ funArg fn i) a
+    --app _ _ = return ()
hunk ./src/Grin/Noodle.hs 9
-import Data.Functor
hunk ./src/Grin/Optimize.hs 77
-        let (reachable',graph) = newGraphReachable xs pexpUniq pexpDeps
+        let (reachable',_graph) = newGraphReachable xs pexpUniq pexpDeps
hunk ./src/Grin/SSimplify.hs 3
-import qualified Data.IntSet as IS
+import Control.Monad.Identity
+import Control.Monad.Reader
+import Control.Monad.Writer
+import Control.Monad.State
+import Data.Maybe
hunk ./src/Grin/SSimplify.hs 9
+import qualified Data.IntSet as IS
hunk ./src/Grin/SSimplify.hs 12
-import Control.Monad.Identity
-import Data.Maybe
hunk ./src/Grin/SSimplify.hs 13
-import Support.Tickle
-import StringTable.Atom
hunk ./src/Grin/SSimplify.hs 15
+import Stats(mtick)
+import StringTable.Atom
+import Support.CanType
+import Support.FreeVars
+import Support.Tickle
+import Util.GMap
hunk ./src/Grin/SSimplify.hs 22
+import Util.HasSize
hunk ./src/Grin/SSimplify.hs 24
-import Util.GMap
hunk ./src/Grin/SSimplify.hs 25
-import Util.HasSize
-import Support.CanType
-import Support.FreeVars
hunk ./src/Grin/SSimplify.hs 26
-import Stats(mtick)
hunk ./src/Grin/Show.hs 14
-import Monad
hunk ./src/Grin/StorageAnalysis.hs 4
-import Control.Monad
hunk ./src/Grin/StorageAnalysis.hs 11
-import Grin.Lint
hunk ./src/Grin/StorageAnalysis.hs 14
-import Support.CanType
hunk ./src/Ho/Build.hs 25
-import Version.Config(version)
hunk ./src/Ho/Build.hs 57
-import Options
hunk ./src/Info/Info.hs 23
-import Data.Generics
hunk ./src/Info/Info.hs 24
-import Monad
hunk ./src/Interactive.hs 6
-import Control.Monad.Trans
hunk ./src/Interactive.hs 10
-import Monad
hunk ./src/Interactive.hs 13
-import qualified Text.PrettyPrint.HughesPJ as P
hunk ./src/Interactive.hs 30
-import Ho.Collected
hunk ./src/Main.hs 99
-
-
-
-
-
-
-
-
hunk ./src/Name/Id.hs 39
-import Data.Foldable
hunk ./src/Name/Id.hs 42
-import Data.Traversable
-import Data.Typeable
-import System.Random
hunk ./src/Name/Id.hs 54
-import Util.GMap
hunk ./src/PackedString.hs 53
-import Data.Char
hunk ./src/PackedString.hs 60
-import GHC.Exts
-import Word
hunk ./src/Support/CFF.hs 2
+{-# LANGUAGE BangPatterns #-}
hunk ./src/Support/CFF.hs 17
+    readCFFInfo,
hunk ./src/Support/CFF.hs 27
-import Control.Concurrent.MVar
hunk ./src/Support/CFF.hs 30
-import Data.List
hunk ./src/Support/CFF.hs 31
-import System
hunk ./src/Support/CFF.hs 32
-import System.IO.Unsafe
hunk ./src/Support/CFF.hs 34
-import qualified Data.Map as Map
hunk ./src/Support/CFF.hs 175
-    let readChunk fo | fo `seq` True = do
+    let readChunk !fo = do
hunk ./src/Support/IniParse.hs 12
-import Control.Monad
hunk ./src/Support/MD5.hs 4
-import qualified Data.ByteString as BS
-import qualified Data.ByteString.Lazy as LBS
-import Data.Binary
hunk ./src/Support/MD5.hs 5
-import qualified Data.ByteString.Unsafe as BS
+import Data.Binary
+import Data.Char
hunk ./src/Support/MD5.hs 9
-import Data.Bits
-import Data.Word
-import Data.Char
hunk ./src/Support/MD5.hs 10
+import qualified Data.ByteString as BS
+import qualified Data.ByteString.Lazy as LBS
+import qualified Data.ByteString.Unsafe as BS
hunk ./src/Util/ContextMonad.hs 4
-import Control.Monad
hunk ./src/Util/FilterInput.hs 3
-import Data.List
hunk ./src/Util/FilterInput.hs 4
+import Data.List
hunk ./src/Util/FilterInput.hs 8
-import qualified Data.ByteString.Lazy as LBS
-import qualified Data.ByteString.Lazy.UTF8 as LBSU
-import qualified Data.ByteString as BS
hunk ./src/Util/FilterInput.hs 10
+import qualified Data.ByteString as BS
+import qualified Data.ByteString.Lazy as LBS
hunk ./src/Util/GMap.hs 4
+import Util.HasSize
hunk ./src/Util/GMap.hs 9
-import Util.HasSize
-import Data.Foldable hiding(toList)
-import Data.Traversable
hunk ./src/Util/Gen.hs 6
-import Control.Monad.Identity
-import Data.Monoid
hunk ./src/Util/Gen.hs 7
-import Directory
-import System.IO
hunk ./src/Util/Gen.hs 8
+import Directory
hunk ./src/Util/NameMonad.hs 8
-import Control.Monad.Trans
hunk ./src/Util/Progress.hs 71
-toPercent d = (/ 100) . fromIntegral $ round (d * 10000)
+toPercent d = (/ 100) . fromInteger $ round (d * 10000)
hunk ./src/Util/UnionSolve.hs 69
+    showsPrec _ (CLAnnotate s w) = showString s . showChar '@' . shows w
hunk ./src/Util/UniqueMonad.hs 8
-import Control.Monad.Writer