Drop support for -this-package-key
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Sun, 10 Sep 2017 22:45:34 +0000 (23:45 +0100)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Sun, 10 Sep 2017 22:45:34 +0000 (23:45 +0100)
src/Oracles/Flag.hs
src/Settings/Builders/Ghc.hs

index 20aca1f..510b9d2 100644 (file)
@@ -17,7 +17,6 @@ data Flag = ArSupportsAtFile
           | LeadingUnderscore
           | SolarisBrokenShld
           | SplitObjectsBroken
-          | SupportsThisUnitId
           | WithLibdw
           | UseSystemFfi
 
@@ -35,12 +34,11 @@ flag f = do
             LeadingUnderscore  -> "leading-underscore"
             SolarisBrokenShld  -> "solaris-broken-shld"
             SplitObjectsBroken -> "split-objects-broken"
-            SupportsThisUnitId -> "supports-this-unit-id"
             WithLibdw          -> "with-libdw"
             UseSystemFfi       -> "use-system-ffi"
     value <- lookupValueOrError configFile key
     when (value `notElem` ["YES", "NO", ""]) . error $ "Configuration flag "
-        ++ quote (key ++ " = " ++ value) ++ "cannot be parsed."
+        ++ quote (key ++ " = " ++ value) ++ " cannot be parsed."
     return $ value == "YES"
 
 platformSupportsSharedLibs :: Action Bool
index a186e08..7f942f6 100644 (file)
@@ -115,18 +115,13 @@ wayGhcArgs = do
             , (way == debug || way == debugDynamic) ?
               pure ["-ticky", "-DTICKY_TICKY"] ]
 
--- FIXME: Get rid of to-be-deprecated -this-package-key.
 packageGhcArgs :: Args
 packageGhcArgs = withHsPackage $ \cabalFile -> do
-    pkgId   <- expr $ pkgIdentifier cabalFile
-    thisArg <- do
-        not0 <- notStage0
-        unit <- expr $ flag SupportsThisUnitId
-        return $ if not0 || unit then "-this-unit-id " else "-this-package-key "
+    pkgId <- expr $ pkgIdentifier cabalFile
     mconcat [ arg "-hide-all-packages"
             , arg "-no-user-package-db"
             , bootPackageDatabaseArgs
-            , libraryPackage ? arg (thisArg ++ pkgId)
+            , libraryPackage ? arg ("-this-unit-id " ++ pkgId)
             , map ("-package-id " ++) <$> getPkgDataList DepIds ]
 
 includeGhcArgs :: Args