diff options
Diffstat (limited to 'compiler/GHC/HsToCore')
| -rw-r--r-- | compiler/GHC/HsToCore/Coverage.hs | 2 | ||||
| -rw-r--r-- | compiler/GHC/HsToCore/Foreign/Decl.hs | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/compiler/GHC/HsToCore/Coverage.hs b/compiler/GHC/HsToCore/Coverage.hs index 9e2619db65..146a1a2125 100644 --- a/compiler/GHC/HsToCore/Coverage.hs +++ b/compiler/GHC/HsToCore/Coverage.hs @@ -116,7 +116,7 @@ hpcInitCode _ _ (NoHpcInfo {}) = mempty hpcInitCode platform this_mod (HpcInfo tickCount hashNo) = initializerCStub platform fn_name decls body where - fn_name = mkInitializerStubLabel this_mod "hpc" + fn_name = mkInitializerStubLabel this_mod (fsLit "hpc") decls = text "extern StgWord64 " <> tickboxes <> text "[]" <> semi body = text "hs_hpc_module" <> parens (hcat (punctuate comma [ diff --git a/compiler/GHC/HsToCore/Foreign/Decl.hs b/compiler/GHC/HsToCore/Foreign/Decl.hs index 60212b0d23..8257fea3bb 100644 --- a/compiler/GHC/HsToCore/Foreign/Decl.hs +++ b/compiler/GHC/HsToCore/Foreign/Decl.hs @@ -16,6 +16,7 @@ module GHC.HsToCore.Foreign.Decl where import GHC.Prelude +import GHC.Data.FastString import GHC.Tc.Utils.Monad -- temp @@ -184,7 +185,7 @@ foreignExportsInitialiser platform mod hs_fns = -- See Note [Tracking foreign exports] in rts/ForeignExports.c initializerCStub platform fn_nm list_decl fn_body where - fn_nm = mkInitializerStubLabel mod "fexports" + fn_nm = mkInitializerStubLabel mod (fsLit "fexports") mod_str = pprModuleName (moduleName mod) fn_body = text "registerForeignExports" <> parens (char '&' <> list_symbol) <> semi list_symbol = text "stg_exports_" <> mod_str |