diff options
Diffstat (limited to 'compiler/GHC/Core/Opt/FloatIn.hs')
| -rw-r--r-- | compiler/GHC/Core/Opt/FloatIn.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Core/Opt/FloatIn.hs b/compiler/GHC/Core/Opt/FloatIn.hs index ff63540ed1..03a84b872c 100644 --- a/compiler/GHC/Core/Opt/FloatIn.hs +++ b/compiler/GHC/Core/Opt/FloatIn.hs @@ -38,6 +38,7 @@ import GHC.Driver.Session import GHC.Utils.Outputable -- import Data.List ( mapAccumL ) import GHC.Types.Basic ( RecFlag(..), isRec ) +import GHC.Core.Multiplicity {- Top-level interface function, @floatInwards@. Note that we do not @@ -201,7 +202,7 @@ fiExpr platform to_drop ann_expr@(_,AnnApp {}) = (piResultTy fun_ty ty, extra_fvs) add_arg (fun_ty, extra_fvs) (arg_fvs, arg) - | noFloatIntoArg arg arg_ty + | noFloatIntoArg arg (irrelevantMult arg_ty) = (res_ty, extra_fvs `unionDVarSet` arg_fvs) | otherwise = (res_ty, extra_fvs) |