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

[ghc-hetmet.git] / ghc / compiler / deforest / TreelessForm.lhs

diff --git a/ghc/compiler/deforest/TreelessForm.lhs b/ghc/compiler/deforest/TreelessForm.lhs
index bb01baa..87359e6 100644 (file)
--- a/ghc/compiler/deforest/TreelessForm.lhs
+++ b/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
 >