diff options
Diffstat (limited to 'compiler/GHC/StgToJS/Expr.hs')
| -rw-r--r-- | compiler/GHC/StgToJS/Expr.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/GHC/StgToJS/Expr.hs b/compiler/GHC/StgToJS/Expr.hs index fd6d09585f..b398cdf501 100644 --- a/compiler/GHC/StgToJS/Expr.hs +++ b/compiler/GHC/StgToJS/Expr.hs @@ -51,7 +51,6 @@ import GHC.StgToJS.Utils import GHC.StgToJS.Stack import GHC.StgToJS.Ids -import GHC.Types.Basic import GHC.Types.CostCentre import GHC.Types.Tickish import GHC.Types.Var.Set @@ -484,7 +483,7 @@ genStaticRefs lv | otherwise = do unfloated <- State.gets gsUnfloated let xs = filter (\x -> not (elemUFM x unfloated || - typeLevity_maybe (idType x) == Just Unlifted)) + definitelyUnliftedType (idType x))) (dVarSetElems sv) CIStaticRefs . catMaybes <$> mapM getStaticRef xs where |