[project @ 1996-12-19 09:10:02 by simonpj]

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

diff --git a/ghc/compiler/deforest/TreelessForm.lhs b/ghc/compiler/deforest/TreelessForm.lhs
index c690fe2..bb01baa 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 (addInfo (getIdInfo v) DoDeforest)
+>      mkDeforestable v = replaceIdInfo v (addDeforestInfo (getIdInfo v) DoDeforest)
 
 > convAtom :: DefAtom -> UniqSM DefAtom
 >