From 4002495be56f66175b4a0b50ea017ebbfb01f5ff Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 26 May 1997 04:45:22 +0000
Subject: [PATCH] [project @ 1997-05-26 04:45:22 by sof] Updated to use new
 addIdDeforesInfo interface

---
 ghc/compiler/deforest/TreelessForm.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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