diff options
Diffstat (limited to 'compiler/stgSyn/CoreToStg.hs')
| -rw-r--r-- | compiler/stgSyn/CoreToStg.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/stgSyn/CoreToStg.hs b/compiler/stgSyn/CoreToStg.hs index 54d20b3d05..7cef1b93d3 100644 --- a/compiler/stgSyn/CoreToStg.hs +++ b/compiler/stgSyn/CoreToStg.hs @@ -41,7 +41,7 @@ import FastString import Util import DynFlags import ForeignCall -import Demand ( isSingleUsed ) +import Demand ( isUsedOnce ) import PrimOp ( PrimCall(..) ) import Data.Maybe (isJust) @@ -833,8 +833,8 @@ mkStgRhs' con_updateable rhs_fvs srt bndr binder_info rhs (_, unticked_rhs) = stripStgTicksTop (not . tickishIsCode) rhs - upd_flag | isSingleUsed (idDemandInfo bndr) = SingleEntry - | otherwise = Updatable + upd_flag | isUsedOnce (idDemandInfo bndr) = SingleEntry + | otherwise = Updatable {- SDM: disabled. Eval/Apply can't handle functions with arity zero very |