[remove overlapping BuildSet instance for IdSet
John Meacham <john@repetae.net>**20060409060147] hunk ./E/E.hs 332
-
-instance BuildSet IdSet (TVr' e) where
-    fromList xs = fromList (map tvrIdent xs)
-    fromDistinctAscList xs = fromDistinctAscList (map tvrIdent xs)
-    member x s = member (tvrIdent x) s
-    insert x s = S.insert (tvrIdent x) s
-    delete x s = S.delete (tvrIdent x) s
-    singleton x = singleton (tvrIdent x)
-
hunk ./E/LambdaLift.hs 52
-    let wp =  fromList [ x | (x,_,_) <- cs ]
+    let wp =  fromList [ tvrIdent x | (x,_,_) <- cs ]
hunk ./E/SSimplify.hs 100
-            cycNodes = (fromList $ [ v | (v,_) <- cyclicNodes gr'] :: IdSet)
+            cycNodes = (fromList $ [ tvrIdent v | (v,_) <- cyclicNodes gr'] :: IdSet)
hunk ./E/SSimplify.hs 102
-                | t `member` cycNodes = setProperty prop_CYCLIC
+                | tvrIdent t `member` cycNodes = setProperty prop_CYCLIC