diff options
Diffstat (limited to 'ghc/compiler/simplStg/SRT.lhs')
| -rw-r--r-- | ghc/compiler/simplStg/SRT.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ghc/compiler/simplStg/SRT.lhs b/ghc/compiler/simplStg/SRT.lhs index 770af19db9..c699fd3ab6 100644 --- a/ghc/compiler/simplStg/SRT.lhs +++ b/ghc/compiler/simplStg/SRT.lhs @@ -10,7 +10,7 @@ bindings have no CAF references, and record the fact in their IdInfo. module SRT where import Id ( Id, setIdCafInfo, getIdCafInfo, externallyVisibleId, - isBottomingId ) + idAppIsBottom ) import IdInfo ( CafInfo(..) ) import StgSyn @@ -396,8 +396,8 @@ mk_caf_info (StgRhsCon cc con args) srt | otherwise = MayHaveCafRefs -- otherwise, treat as a CAF isBottomingExpr (StgLet bind expr) = isBottomingExpr expr -isBottomingExpr (StgApp f args) = isBottomingId f -isBottomingExpr _ = False +isBottomingExpr (StgApp f args) = idAppIsBottom f (length args) +isBottomingExpr _ = False \end{code} ----------------------------------------------------------------------------- |