[clean up warnings
John Meacham <john@repetae.net>**20070606041845] hunk ./E/Demand.hs 13
-import Control.Monad
hunk ./E/Demand.hs 28
-import E.Inline
hunk ./E/Demand.hs 90
+    showsPrec _ (DemandEnv m demand) = showString "{" . shows demand . showString " - " . foldr (.) id (intersperse (showString ",") [ showString (pprint t) . showString " -> " . shows v | (t,v) <- Map.toList m]) . showString "}"
hunk ./E/Demand.hs 101
-lazyType = (DemandEnv mempty lazy) :=> []
-lazySig = DemandSignature 0 lazyType
+--lazyType = (DemandEnv mempty lazy) :=> []
+--lazySig = DemandSignature 0 lazyType
hunk ./E/Demand.hs 364
-analyzeCase ec@ECase {} s = do
+analyzeCase ec s = do
hunk ./Info/Types.hs 7
-import List hiding(insert,delete)
-import qualified Data.Set as Set
hunk ./Info/Types.hs 8
-import Atom
hunk ./Stats.hs 30
-    mtickStat,
hunk ./Stats.hs 36
-import Control.Exception
-import Control.Monad.Fix
hunk ./Stats.hs 261
-getStat :: Stats -> IO Stat
-getStat stats = do
-    ll <- toList stats
-    return (Stat $ IB.fromList [ (unsafeAtomToInt x,y) | (x,y) <- ll])