[project @ 1997-05-26 04:45:22 by sof]

Updated to use new addIdDeforesInfo interface

ghc/compiler/deforest/TreelessForm.lhs

@@ -136,7 +136,7 @@ dictionary deconstruction.
 >	(vs,es) = unzip bs
 >	vs'  = map mkDeforestable vs
 >	s = zip vs (map (Var . DefArgVar) vs')
->	mkDeforestable v = replaceIdInfo v (addDeforestInfo (getIdInfo v) DoDeforest)
+>	mkDeforestable v = addIdDeforestInfo v DoDeforest
 
 > convAtom :: DefAtom -> UniqSM DefAtom
 >