diff options
| author | Zubin Duggal <zubin.duggal@gmail.com> | 2021-10-04 15:58:39 +0530 |
|---|---|---|
| committer | Zubin Duggal <zubin.duggal@gmail.com> | 2021-10-13 13:51:03 +0530 |
| commit | 8c224b6d43e220930ef0a60e50636e4910d15229 (patch) | |
| tree | 99459405e1e362bc04b9710917320e72724624f1 /hadrian/src/Builder.hs | |
| parent | 337a31db4a6985e70ea1d852f4eb7e5d3f929c9b (diff) | |
| download | haskell-8c224b6d43e220930ef0a60e50636e4910d15229.tar.gz | |
ci: test in-tree compiler in hadrian
Diffstat (limited to 'hadrian/src/Builder.hs')
| -rw-r--r-- | hadrian/src/Builder.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/hadrian/src/Builder.hs b/hadrian/src/Builder.hs index bd8cd95040..975d33cbff 100644 --- a/hadrian/src/Builder.hs +++ b/hadrian/src/Builder.hs @@ -253,11 +253,10 @@ instance H.Builder Builder where return stdout Testsuite GetExtraDeps -> do path <- builderPath builder - withResources buildResources $ do - -- The testsuite driver reports the dependencies on stderr - -- buildArgs should include --only-report-hadrian-deps at this point - Stderr stderr <- cmd' [path] buildArgs - return stderr + withResources buildResources $ + withTempFile $ \temp -> do + () <- cmd' [path] (buildArgs ++ ["--only-report-hadrian-deps", temp]) + readFile' temp _ -> error $ "Builder " ++ show builder ++ " can not be asked!" runBuilderWith :: Builder -> BuildInfo -> Action () |