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

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

diff --git a/ghc/compiler/deforest/Cyclic.lhs b/ghc/compiler/deforest/Cyclic.lhs
index fa1fbcf..f3818df 100644 (file)
--- 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') ->