X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2Fdeforest%2FCyclic.lhs;fp=ghc%2Fcompiler%2Fdeforest%2FCyclic.lhs;h=f3818df7c74d6447ad532ac88d15d838046614ec;hb=7a3bd641457666e10d0a47be9f22762e03defbf0;hp=fa1fbcfa076f80c9a89ad1198dab8e753093708d;hpb=f65044d135ef61bee82a6c9767235f6780bdf00e;p=ghc-hetmet.git

diff --git a/ghc/compiler/deforest/Cyclic.lhs b/ghc/compiler/deforest/Cyclic.lhs
index fa1fbcf..f3818df 100644
--- a/ghc/compiler/deforest/Cyclic.lhs
+++ b/ghc/compiler/deforest/Cyclic.lhs
@@ -17,7 +17,7 @@
 >			  TyVarTemplate
 >			)
 > import Digraph	( dfs )
-> import Id		( idType, toplevelishId, updateIdType,
+> import Id		( idType, updateIdType,
 > 			  getIdInfo, replaceIdInfo, eqId, Id
 >			)
 > import IdInfo
@@ -145,7 +145,7 @@ type of the expression itself.
 >		newDefId type_of_f	`thenUs` \f' ->
 >		let
 > 		       f = replaceIdInfo f'
->		       		(addInfo (getIdInfo f') DoDeforest)
+>		       		(addDeforestInfo (getIdInfo f') DoDeforest)
 >		in
 >		loop ((f,e,val_args,ty_args):ls) e1
 >					`thenUs` \res@(ls',bs,bls,e') ->