diff options
Diffstat (limited to 'compiler/cmm/SMRep.lhs')
| -rw-r--r-- | compiler/cmm/SMRep.lhs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/compiler/cmm/SMRep.lhs b/compiler/cmm/SMRep.lhs index bc502a30a3..44b40a3a8a 100644 --- a/compiler/cmm/SMRep.lhs +++ b/compiler/cmm/SMRep.lhs @@ -25,7 +25,7 @@ module SMRep ( mkHeapRep, blackHoleRep, mkStackRep, mkRTSRep, -- ** Predicates - isStaticRep, isConRep, isThunkRep, isStaticNoCafCon, + isStaticRep, isConRep, isThunkRep, isFunRep, isStaticNoCafCon, -- ** Size-related things heapClosureSize, @@ -196,6 +196,10 @@ isThunkRep (HeapRep _ _ _ ThunkSelector{}) = True isThunkRep (HeapRep _ _ _ BlackHole{}) = True isThunkRep _ = False +isFunRep :: SMRep -> Bool +isFunRep (HeapRep _ _ _ Fun{}) = True +isFunRep _ = False + isStaticNoCafCon :: SMRep -> Bool -- This should line up exactly with CONSTR_NOCAF_STATIC above -- See Note [Static NoCaf constructors] |