diff options
Diffstat (limited to 'compiler/GHC/CoreToStg.hs')
| -rw-r--r-- | compiler/GHC/CoreToStg.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/compiler/GHC/CoreToStg.hs b/compiler/GHC/CoreToStg.hs index 9452015ab4..af8c8ae25b 100644 --- a/compiler/GHC/CoreToStg.hs +++ b/compiler/GHC/CoreToStg.hs @@ -771,8 +771,10 @@ mkStgRhs bndr (PreStgRhs bndrs rhs) -- After this point we know that `bndrs` is empty, -- so this is not a function binding - | isJoinId bndr -- must be a nullary join point - = ASSERT(idJoinArity bndr == 0) + + | isJoinId bndr -- Must be a nullary join point + = -- It might have /type/ arguments (T18328), + -- so its JoinArity might be >0 StgRhsClosure noExtFieldSilent currentCCS ReEntrant -- ignored for LNE |