summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2022-02-07 12:29:29 +0000
committerMarge Bot <ben+marge-bot@smart-cactus.org>2022-02-09 03:56:22 -0500
commit03c2de0f4344d013522be3bc5a57b57312075957 (patch)
tree1c6b989a9f6e5e8720a5f6655d58c4a008f68900
parentbd493ed6a63e41855f90c210f6cf1bace9199cf0 (diff)
downloadhaskell-03c2de0f4344d013522be3bc5a57b57312075957.tar.gz
testsuite: Use absolute paths for config.libdir
Fixes #21052
-rw-r--r--hadrian/src/Settings/Builders/RunTest.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/hadrian/src/Settings/Builders/RunTest.hs b/hadrian/src/Settings/Builders/RunTest.hs
index 86bd6c7b6f..6a49334a70 100644
--- a/hadrian/src/Settings/Builders/RunTest.hs
+++ b/hadrian/src/Settings/Builders/RunTest.hs
@@ -106,8 +106,10 @@ inTreeCompilerArgs stg = expr $ do
llc_cmd <- settingsFileSetting SettingsFileSetting_LlcCommand
have_llvm <- liftIO (isJust <$> findExecutable llc_cmd)
- pkgConfCacheFile <- packageDbPath stg <&> (-/- "package.cache")
- libdir <- stageLibPath stg
+ top <- topDirectory
+
+ pkgConfCacheFile <- (top -/-) <$> (packageDbPath stg <&> (-/- "package.cache"))
+ libdir <- (top -/-) <$> stageLibPath stg
rtsLinker <- (== "YES") <$> setting TargetHasRtsLinker