diff options
Diffstat (limited to 'compiler/GHC/StgToCmm/InfoTableProv.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm/InfoTableProv.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/compiler/GHC/StgToCmm/InfoTableProv.hs b/compiler/GHC/StgToCmm/InfoTableProv.hs index 20e2056116..4f6a23ef01 100644 --- a/compiler/GHC/StgToCmm/InfoTableProv.hs +++ b/compiler/GHC/StgToCmm/InfoTableProv.hs @@ -5,11 +5,12 @@ import GHC.Platform import GHC.Unit.Module import GHC.Utils.Outputable import GHC.Types.SrcLoc (pprUserRealSpan, srcSpanFile) -import GHC.Data.FastString (fastStringToShortText) +import GHC.Data.FastString (fastStringToShortText, unpackFS, LexicalFastString(..)) import GHC.Cmm.CLabel import GHC.Cmm.Expr import GHC.Cmm.Utils + import GHC.StgToCmm.Config import GHC.StgToCmm.Lit (newByteStringCLit) import GHC.StgToCmm.Monad @@ -67,7 +68,7 @@ toCgIPE platform ctx module_name ipe = do table_name <- lookupStringTable $ ST.pack $ renderWithContext ctx (pprCLabel platform (infoTablePtr ipe)) closure_desc <- lookupStringTable $ ST.pack $ show (infoProvEntClosureType ipe) type_desc <- lookupStringTable $ ST.pack $ infoTableType ipe - let label_str = maybe "" snd (infoTableProv ipe) + let label_str = maybe "" ((\(LexicalFastString s) -> unpackFS s) . snd) (infoTableProv ipe) let (src_loc_file, src_loc_span) = case infoTableProv ipe of Nothing -> (mempty, "") |