diff options
Diffstat (limited to 'hadrian/src/Rules/Test.hs')
| -rw-r--r-- | hadrian/src/Rules/Test.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/hadrian/src/Rules/Test.hs b/hadrian/src/Rules/Test.hs index fea8a8f7b6..fe0aba04cc 100644 --- a/hadrian/src/Rules/Test.hs +++ b/hadrian/src/Rules/Test.hs @@ -153,7 +153,9 @@ testRules = do let testGhc = testCompiler args ghcPath <- getCompilerPath testGhc whenJust (stageOf testGhc) $ \stg -> - need . (:[]) =<< programPath (Context stg ghc vanilla) + need . (:[]) =<< programPath (Context stg ghc vanilla) + cwd <- liftIO $ IO.getCurrentDirectory + need [makeRelative cwd ghcPath] need [root -/- ghcConfigProgPath] cmd [FileStdout $ root -/- ghcConfigPath] (root -/- ghcConfigProgPath) [ghcPath] |