diff options
Diffstat (limited to 'ghc/compiler/simplStg/UpdAnal.lhs')
| -rw-r--r-- | ghc/compiler/simplStg/UpdAnal.lhs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/ghc/compiler/simplStg/UpdAnal.lhs b/ghc/compiler/simplStg/UpdAnal.lhs index 103b633e20..5a98a3e8d7 100644 --- a/ghc/compiler/simplStg/UpdAnal.lhs +++ b/ghc/compiler/simplStg/UpdAnal.lhs @@ -22,11 +22,10 @@ > > {- LATER: to end of file: > --import Type ( splitFunTy, splitSigmaTy, Class, TyVarTemplate, -> -- TauType(..) +> -- SYN_IE(TauType) > -- ) > --import Id > --import IdInfo -> --import Outputable ( isExported ) > --import Pretty > --import SrcLoc ( mkUnknownSrcLoc ) > --import StgSyn @@ -507,7 +506,7 @@ suffice for now. > StgRec bs -> StgRec [ (attachOne v, rhs) | (v, rhs) <- bs ] > > where attachOne v -> | isExported v +> | externallyVisibleId v > = let c = lookup v p in > addIdUpdateInfo v > (mkUpdateInfo (mkUpdateSpec v c)) |