diff options
Diffstat (limited to 'compiler/GHC/Core/Utils.hs')
| -rw-r--r-- | compiler/GHC/Core/Utils.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Core/Utils.hs b/compiler/GHC/Core/Utils.hs index 2df35f01ea..16cc9a6af8 100644 --- a/compiler/GHC/Core/Utils.hs +++ b/compiler/GHC/Core/Utils.hs @@ -1396,7 +1396,8 @@ isWorkFreeApp fn n_val_args | otherwise = case idDetails fn of DataConWorkId {} -> True - _ -> False + _ -> allTypeOrInvisArgs n_val_args (idType fn) + -- Experimental: see #19569 isCheapApp :: CheapAppFun isCheapApp fn n_val_args |