diff options
| author | Wander Hillen <wjw.hillen@gmail.com> | 2020-09-25 11:41:06 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-10-13 00:12:47 -0400 |
| commit | 7fdcce6d4d13a10a1b2336c1d40482c64dba664d (patch) | |
| tree | 66dfd350e5abef849793060d745d1a1df64e47df /compiler/GHC/Driver/CodeOutput.hs | |
| parent | 9bbc84d20d0f50901351246cbe97c45234ca7d95 (diff) | |
| download | haskell-7fdcce6d4d13a10a1b2336c1d40482c64dba664d.tar.gz | |
Initial ShortText code and conversion of package db code
Metric Decrease:
Naperian
T10421
T10421a
T10547
T12150
T12234
T12425
T13035
T18140
T18304
T5837
T6048
T13253-spj
T18282
T18223
T3064
T9961
Metric Increase
T13701
HFSKJH
Diffstat (limited to 'compiler/GHC/Driver/CodeOutput.hs')
| -rw-r--r-- | compiler/GHC/Driver/CodeOutput.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Driver/CodeOutput.hs b/compiler/GHC/Driver/CodeOutput.hs index 0e43b64c77..cee81b900e 100644 --- a/compiler/GHC/Driver/CodeOutput.hs +++ b/compiler/GHC/Driver/CodeOutput.hs @@ -32,6 +32,7 @@ import GHC.Cmm.CLabel import GHC.Driver.Types import GHC.Driver.Session import GHC.Driver.Ppr +import qualified GHC.Data.ShortText as ST import GHC.Data.Stream ( Stream ) import qualified GHC.Data.Stream as Stream import GHC.SysTools.FileCleanup @@ -211,7 +212,7 @@ outputForeignStubs dflags mod location stubs let rts_includes = let rts_pkg = unsafeLookupUnitId (unitState dflags) rtsUnitId in concatMap mk_include (unitIncludes rts_pkg) - mk_include i = "#include \"" ++ i ++ "\"\n" + mk_include i = "#include \"" ++ ST.unpack i ++ "\"\n" -- wrapper code mentions the ffi_arg type, which comes from ffi.h ffi_includes |