diff options
Diffstat (limited to 'hadrian/src/Settings/Builders/Common.hs')
| -rw-r--r-- | hadrian/src/Settings/Builders/Common.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/hadrian/src/Settings/Builders/Common.hs b/hadrian/src/Settings/Builders/Common.hs index a011cb0dae..e89152be9e 100644 --- a/hadrian/src/Settings/Builders/Common.hs +++ b/hadrian/src/Settings/Builders/Common.hs @@ -53,15 +53,15 @@ cWarnings = mconcat packageDatabaseArgs :: Args packageDatabaseArgs = do - stage <- getStage - dbPath <- expr (packageDbPath stage) + loc <- getPackageDbLoc + dbPath <- expr (packageDbPath loc) expr (need [dbPath -/- packageDbStamp]) prefix <- ifM (builder Ghc) (return "-package-db ") (return "--package-db=") arg $ prefix ++ dbPath bootPackageDatabaseArgs :: Args bootPackageDatabaseArgs = do - stage <- getStage - dbPath <- expr $ packageDbPath stage + loc <- getPackageDbLoc + dbPath <- expr $ packageDbPath loc expr $ need [dbPath -/- packageDbStamp] stage0 ? packageDatabaseArgs |