diff options
Diffstat (limited to 'compiler/GHC/Stg/Lift')
| -rw-r--r-- | compiler/GHC/Stg/Lift/Monad.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Stg/Lift/Monad.hs b/compiler/GHC/Stg/Lift/Monad.hs index a07c89b513..8e16dd922c 100644 --- a/compiler/GHC/Stg/Lift/Monad.hs +++ b/compiler/GHC/Stg/Lift/Monad.hs @@ -276,13 +276,13 @@ withSubstBndrs = runContT . traverse (ContT . withSubstBndr) withLiftedBndr :: DIdSet -> Id -> (Id -> LiftM a) -> LiftM a withLiftedBndr abs_ids bndr inner = do uniq <- getUniqueM - let str = "$l" ++ occNameString (getOccName bndr) + let str = fsLit "$l" `appendFS` occNameFS (getOccName bndr) let ty = mkLamTypes (dVarSetElems abs_ids) (idType bndr) let bndr' -- See Note [transferPolyIdInfo] in GHC.Types.Id. We need to do this at least -- for arity information. = transferPolyIdInfo bndr (dVarSetElems abs_ids) - . mkSysLocal (mkFastString str) uniq Many + . mkSysLocal str uniq Many $ ty LiftM $ RWS.local (\e -> e |