projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[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 )
> TyVarTemplate
> )
> import Digraph ( dfs )
-> import Id ( idType, toplevelishId, updateIdType,
+> import Id ( idType, updateIdType,
> getIdInfo, replaceIdInfo, eqId, Id
> )
> import IdInfo
> 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'
> 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') ->
> in
> loop ((f,e,val_args,ty_args):ls) e1
> `thenUs` \res@(ls',bs,bls,e') ->