@@ -582,7 +582,7 @@ buildOrReplLib forRepl verbosity numJobs pkg_descr lbi lib clbi = do
582
582
(withProfLibDetail lbi),
583
583
ghcOptHiSuffix = toFlag " p_hi" ,
584
584
ghcOptObjSuffix = toFlag " p_o" ,
585
- ghcOptExtra = toNubListR $ hcProfOptions GHC libBi,
585
+ ghcOptExtra = hcProfOptions GHC libBi,
586
586
ghcOptHPCDir = hpcdir Hpc. Prof
587
587
}
588
588
@@ -591,23 +591,20 @@ buildOrReplLib forRepl verbosity numJobs pkg_descr lbi lib clbi = do
591
591
ghcOptFPic = toFlag True ,
592
592
ghcOptHiSuffix = toFlag " dyn_hi" ,
593
593
ghcOptObjSuffix = toFlag " dyn_o" ,
594
- ghcOptExtra = toNubListR $ hcSharedOptions GHC libBi,
594
+ ghcOptExtra = hcSharedOptions GHC libBi,
595
595
ghcOptHPCDir = hpcdir Hpc. Dyn
596
596
}
597
597
linkerOpts = mempty {
598
- ghcOptLinkOptions = toNubListR $ PD. ldOptions libBi,
599
- ghcOptLinkLibs = toNubListR $ extraLibs libBi,
598
+ ghcOptLinkOptions = PD. ldOptions libBi,
599
+ ghcOptLinkLibs = extraLibs libBi,
600
600
ghcOptLinkLibPath = toNubListR $ extraLibDirs libBi,
601
- ghcOptLinkFrameworks = toNubListR $
602
- PD. frameworks libBi,
603
- ghcOptLinkFrameworkDirs = toNubListR $
604
- PD. extraFrameworkDirs libBi,
601
+ ghcOptLinkFrameworks = toNubListR $ PD. frameworks libBi,
602
+ ghcOptLinkFrameworkDirs = toNubListR $ PD. extraFrameworkDirs libBi,
605
603
ghcOptInputFiles = toNubListR
606
604
[libTargetDir </> x | x <- cObjs]
607
605
}
608
606
replOpts = vanillaOpts {
609
- ghcOptExtra = overNubListR
610
- Internal. filterGhciFlags $
607
+ ghcOptExtra = Internal. filterGhciFlags $
611
608
ghcOptExtra vanillaOpts,
612
609
ghcOptNumJobs = mempty
613
610
}
@@ -794,8 +791,7 @@ buildOrReplLib forRepl verbosity numJobs pkg_descr lbi lib clbi = do
794
791
ghcOptDynLinkMode = toFlag GhcDynamicOnly ,
795
792
ghcOptInputFiles = toNubListR dynamicObjectFiles,
796
793
ghcOptOutputFile = toFlag sharedLibFilePath,
797
- ghcOptExtra = toNubListR $
798
- hcSharedOptions GHC libBi,
794
+ ghcOptExtra = hcSharedOptions GHC libBi,
799
795
-- For dynamic libs, Mac OS/X needs to know the install location
800
796
-- at build time. This only applies to GHC < 7.8 - see the
801
797
-- discussion in #1660.
@@ -822,7 +818,7 @@ buildOrReplLib forRepl verbosity numJobs pkg_descr lbi lib clbi = do
822
818
_ -> [] ,
823
819
ghcOptPackages = toNubListR $
824
820
Internal. mkGhcOptPackages clbi ,
825
- ghcOptLinkLibs = toNubListR $ extraLibs libBi,
821
+ ghcOptLinkLibs = extraLibs libBi,
826
822
ghcOptLinkLibPath = toNubListR $ extraLibDirs libBi,
827
823
ghcOptLinkFrameworks = toNubListR $ PD. frameworks libBi,
828
824
ghcOptLinkFrameworkDirs =
@@ -834,8 +830,7 @@ buildOrReplLib forRepl verbosity numJobs pkg_descr lbi lib clbi = do
834
830
ghcOptStaticLib = toFlag True ,
835
831
ghcOptInputFiles = toNubListR staticObjectFiles,
836
832
ghcOptOutputFile = toFlag staticLibFilePath,
837
- ghcOptExtra = toNubListR $
838
- hcStaticOptions GHC libBi,
833
+ ghcOptExtra = hcStaticOptions GHC libBi,
839
834
ghcOptHideAllPackages = toFlag True ,
840
835
ghcOptNoAutoLinkPackages = toFlag True ,
841
836
ghcOptPackageDBs = withPackageDB lbi,
@@ -855,7 +850,7 @@ buildOrReplLib forRepl verbosity numJobs pkg_descr lbi lib clbi = do
855
850
_ -> [] ,
856
851
ghcOptPackages = toNubListR $
857
852
Internal. mkGhcOptPackages clbi ,
858
- ghcOptLinkLibs = toNubListR $ extraLibs libBi,
853
+ ghcOptLinkLibs = extraLibs libBi,
859
854
ghcOptLinkLibPath = toNubListR $ extraLibDirs libBi
860
855
}
861
856
@@ -1242,8 +1237,7 @@ gbuild verbosity numJobs pkg_descr lbi bm clbi = do
1242
1237
(withProfExeDetail lbi),
1243
1238
ghcOptHiSuffix = toFlag " p_hi" ,
1244
1239
ghcOptObjSuffix = toFlag " p_o" ,
1245
- ghcOptExtra = toNubListR
1246
- (hcProfOptions GHC bnfo),
1240
+ ghcOptExtra = (hcProfOptions GHC bnfo),
1247
1241
ghcOptHPCDir = hpcdir Hpc. Prof
1248
1242
}
1249
1243
dynOpts = baseOpts `mappend` mempty {
@@ -1252,8 +1246,7 @@ gbuild verbosity numJobs pkg_descr lbi bm clbi = do
1252
1246
ghcOptFPic = toFlag True ,
1253
1247
ghcOptHiSuffix = toFlag " dyn_hi" ,
1254
1248
ghcOptObjSuffix = toFlag " dyn_o" ,
1255
- ghcOptExtra = toNubListR $
1256
- hcSharedOptions GHC bnfo,
1249
+ ghcOptExtra = hcSharedOptions GHC bnfo,
1257
1250
ghcOptHPCDir = hpcdir Hpc. Dyn
1258
1251
}
1259
1252
dynTooOpts = staticOpts `mappend` mempty {
@@ -1263,8 +1256,8 @@ gbuild verbosity numJobs pkg_descr lbi bm clbi = do
1263
1256
ghcOptHPCDir = hpcdir Hpc. Dyn
1264
1257
}
1265
1258
linkerOpts = mempty {
1266
- ghcOptLinkOptions = toNubListR $ PD. ldOptions bnfo,
1267
- ghcOptLinkLibs = toNubListR $ extraLibs bnfo,
1259
+ ghcOptLinkOptions = PD. ldOptions bnfo,
1260
+ ghcOptLinkLibs = extraLibs bnfo,
1268
1261
ghcOptLinkLibPath = toNubListR $ extraLibDirs bnfo,
1269
1262
ghcOptLinkFrameworks = toNubListR $
1270
1263
PD. frameworks bnfo,
@@ -1277,8 +1270,7 @@ gbuild verbosity numJobs pkg_descr lbi bm clbi = do
1277
1270
ghcOptRPaths = rpaths
1278
1271
}
1279
1272
replOpts = baseOpts {
1280
- ghcOptExtra = overNubListR
1281
- Internal. filterGhciFlags
1273
+ ghcOptExtra = Internal. filterGhciFlags
1282
1274
(ghcOptExtra baseOpts)
1283
1275
}
1284
1276
-- For a normal compile we do separate invocations of ghc for
@@ -1423,19 +1415,18 @@ gbuild verbosity numJobs pkg_descr lbi bm clbi = do
1423
1415
`mappend` mempty {
1424
1416
ghcOptLinkNoHsMain = toFlag True ,
1425
1417
ghcOptShared = toFlag True ,
1426
- ghcOptLinkLibs = toNubListR [
1427
- if needDynamic
1428
- then rtsDynamicLib rtsInfo
1429
- else rtsStaticLib rtsInfo
1430
- ],
1418
+ ghcOptLinkLibs = [ if needDynamic
1419
+ then rtsDynamicLib rtsInfo
1420
+ else rtsStaticLib rtsInfo
1421
+ ],
1431
1422
ghcOptLinkLibPath = toNubListR $ rtsLibPaths rtsInfo,
1432
1423
ghcOptFPic = toFlag True ,
1433
1424
ghcOptLinkModDefFiles = toNubListR $ gbuildModDefFiles bm
1434
1425
}
1435
1426
-- See Note [RPATH]
1436
1427
`mappend` ifNeedsRPathWorkaround lbi mempty {
1437
- ghcOptLinkOptions = toNubListR [" -Wl,--no-as-needed" ]
1438
- , ghcOptLinkLibs = toNubListR [" ffi" ]
1428
+ ghcOptLinkOptions = [" -Wl,--no-as-needed" ]
1429
+ , ghcOptLinkLibs = [" ffi" ]
1439
1430
}
1440
1431
ForeignLibNativeStatic ->
1441
1432
-- this should be caught by buildFLib
@@ -1663,15 +1654,15 @@ libAbiHash verbosity _pkg_descr lbi lib clbi = do
1663
1654
ghcOptFPic = toFlag True ,
1664
1655
ghcOptHiSuffix = toFlag " dyn_hi" ,
1665
1656
ghcOptObjSuffix = toFlag " dyn_o" ,
1666
- ghcOptExtra = toNubListR $ hcSharedOptions GHC libBi
1657
+ ghcOptExtra = hcSharedOptions GHC libBi
1667
1658
}
1668
1659
profArgs = vanillaArgs `mappend` mempty {
1669
1660
ghcOptProfilingMode = toFlag True ,
1670
1661
ghcOptProfilingAuto = Internal. profDetailLevelFlag True
1671
1662
(withProfLibDetail lbi),
1672
1663
ghcOptHiSuffix = toFlag " p_hi" ,
1673
1664
ghcOptObjSuffix = toFlag " p_o" ,
1674
- ghcOptExtra = toNubListR $ hcProfOptions GHC libBi
1665
+ ghcOptExtra = hcProfOptions GHC libBi
1675
1666
}
1676
1667
ghcArgs
1677
1668
| withVanillaLib lbi = vanillaArgs
0 commit comments