[code cleanups
John Meacham <john@repetae.net>**20100226020205
 Ignore-this: b17f9b8e3a017d93c919c8ffcc8f8003
] hunk ./src/E/FromHs.hs 449
-                    False -> cFun $ \rs -> (,) id $ (prim False [ EVar t | t <- rs ] rt') 
+                    False -> cFun $ \rs -> (,) id $ (prim False [ EVar t | t <- rs ] rt')
hunk ./src/E/FromHs.hs 1033
-        ar = makeRule ("Specialize.{" ++ show newName) (Module m,ui) RuleSpecialization bvars t as (foldl eAp (EVar ntvr) (map EVar bvars)) 
+        ar = makeRule ("Specialize.{" ++ show newName) (Module m,ui) RuleSpecialization bvars t as (foldl eAp (EVar ntvr) (map EVar bvars))
hunk ./src/Ho/Build.hs 265
---    providesModules CompLinkNone = []
hunk ./src/Ho/Build.hs 281
-
-
hunk ./src/Ho/Build.hs 294
-   -- mapM_ (putErrLn . show) $ [ (x,y) | ((x,_),y) <- foundMods ++ foundMods' ]
-
hunk ./src/Ho/Build.hs 367
---    putStrLn "gr"
- --   mapM_ print [ (snd $ snd v, map (snd . snd) vs) | (v,vs) <- G.fromGraph gr]
hunk ./src/Ho/Build.hs 372
---    return (rhash,cug')
-
hunk ./src/Ho/Build.hs 435
-    --mapM_ print [  (h,hs)| (h,(hs,cu)) <- cug ]
hunk ./src/Main.hs 8
-import IO(hFlush,stderr,stdout)
-import List as L
+import IO(hFlush,stderr)
hunk ./src/Main.hs 11
+import qualified List
hunk ./src/Main.hs 146
-            f rs = L.union  rs [ x | x <- nrules, ruleHead x == combHead comb]
+            f rs = List.union  rs [ x | x <- nrules, ruleHead x == combHead comb]
hunk ./src/Main.hs 233
-            Just rs -> combRules_u (map ruleUpdate . L.union rs) c
+            Just rs -> combRules_u (map ruleUpdate . List.union rs) c