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/SysTools/ExtraObj.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/SysTools/ExtraObj.hs')
| -rw-r--r-- | compiler/GHC/SysTools/ExtraObj.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/SysTools/ExtraObj.hs b/compiler/GHC/SysTools/ExtraObj.hs index 94443824e3..9208c3870d 100644 --- a/compiler/GHC/SysTools/ExtraObj.hs +++ b/compiler/GHC/SysTools/ExtraObj.hs @@ -25,6 +25,7 @@ import GHC.Unit import GHC.SysTools.Elf import GHC.Utils.Misc import GHC.Prelude +import qualified GHC.Data.ShortText as ST import Control.Monad import Data.Maybe @@ -57,7 +58,7 @@ mkExtraObj dflags extn xs -- we're compiling C or assembler. When compiling C, we pass the usual -- set of include directories and PIC flags. cOpts = map Option (picCCOpts dflags) - ++ map (FileOption "-I") + ++ map (FileOption "-I" . ST.unpack) (unitIncludeDirs $ unsafeLookupUnit pkgs rtsUnit) -- When compiling assembler code, we drop the usual C options, and if the |