[use IdMap for performing Ho fixups
John Meacham <john@repetae.net>**20060409075544] hunk ./Ho/Build.hs 58
+import Name.Id
+import Util.SetLike
hunk ./Ho/Build.hs 192
-    when (not $ null (hohDepends hoh)) $ putStrLn $ "Dependencies:" <+>  pprint (sortUnder (show . fileName) $ hohDepends hoh)
-    when (not $ null (hohDepends hoh)) $ putStrLn $ "ModDependencies:" <+>  pprint (sortUnder fst $ hohModDepends hoh)
+    when (not $ Prelude.null (hohDepends hoh)) $ putStrLn $ "Dependencies:" <+>  pprint (sortUnder (show . fileName) $ hohDepends hoh)
+    when (not $ Prelude.null (hohDepends hoh)) $ putStrLn $ "ModDependencies:" <+>  pprint (sortUnder fst $ hohModDepends hoh)
hunk ./Ho/Build.hs 399
-getFixups :: Ho -> Map.Map Int E
-getFixups ho = Map.fromList [ (tvrIdent x,EVar x) | (x,_) <- Map.elems (hoEs ho)]
+getFixups :: Ho -> IdMap E
+getFixups ho = fromList [ (tvrIdent x,EVar x) | (x,_) <- Map.elems (hoEs ho)]
hunk ./Ho/Build.hs 402
-applyFixups :: Map.Map Int E -> Ho -> Ho
+applyFixups :: IdMap E -> Ho -> Ho
hunk ./Ho/Build.hs 410
-
-
-
hunk ./Ho/Build.hs 416
-
hunk ./Ho/Build.hs 427
-
-