[switch Rules to use IdMap
John Meacham <john@repetae.net>**20061121014252] hunk ./E/Rules.hs 32
-import qualified Data.Map as Map
-import qualified Data.Set as Set
hunk ./E/Rules.hs 87
-newtype Rules = Rules (Map.Map Id [Rule])
+newtype Rules = Rules (IdMap [Rule])
hunk ./E/Rules.hs 92
-    put_ h (Rules mp) = putNList h (concat $ Map.elems mp)
+    put_ h (Rules mp) = putNList h (concat $ melems mp)
hunk ./E/Rules.hs 109
-ruleAllFreeVars (Rules r) = freeVars (concatMap (map ruleBody) (Map.elems r))
+ruleAllFreeVars (Rules r) = freeVars (concatMap (map ruleBody) (melems r))
hunk ./E/Rules.hs 113
-ruleFreeVars' (Rules r) tvr = case Map.lookup tvr r of
+ruleFreeVars' (Rules r) tvr = case mlookup tvr r of
hunk ./E/Rules.hs 129
-printRules (Rules rules) = mapM_ printRule (concat $ Map.elems rules)
+printRules (Rules rules) = mapM_ printRule (concat $ melems rules)
hunk ./E/Rules.hs 147
-    mappend (Rules x) (Rules y) = Rules $ Map.unionWith (combineRules) x y
+    mappend (Rules x) (Rules y) = Rules $ munionWith (combineRules) x y
hunk ./E/Rules.hs 151
-fromRules rs = Rules $ Map.map snds $ Map.fromList $ sortGroupUnderF fst [ (tvrIdent $ ruleHead r,r) | r <- rs ]
+fromRules rs = Rules $ fmap snds $ fromList $ sortGroupUnderF fst [ (tvrIdent $ ruleHead r,r) | r <- rs ]
hunk ./E/Rules.hs 154
-getARules (Rules mp) tvr = liftM arules (Map.lookup tvr mp)
+getARules (Rules mp) tvr = liftM arules (mlookup tvr mp)