diff options
| author | Zubin Duggal <zubin.duggal@gmail.com> | 2022-07-27 16:29:07 +0530 |
|---|---|---|
| committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-10-20 15:01:04 +0200 |
| commit | 0d5123ee8fe41386969e07ddc9694fcfbe17cdfa (patch) | |
| tree | f384ff55ebed3b483505f95097469e3e2e6f5e4f | |
| parent | b17cfc9c4b341e122294c0701803fc8f521fa210 (diff) | |
| download | haskell-wip/fix-stage1-test.tar.gz | |
Pass correct package db when testing stage1.wip/fix-stage1-test
It used to pick the db for stage-2 which obviously didn't work.
| -rw-r--r-- | hadrian/src/Rules/Test.hs | 2 | ||||
| -rw-r--r-- | hadrian/src/Settings/Default.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/hadrian/src/Rules/Test.hs b/hadrian/src/Rules/Test.hs index abe78b79ab..f1fb204c88 100644 --- a/hadrian/src/Rules/Test.hs +++ b/hadrian/src/Rules/Test.hs @@ -120,7 +120,7 @@ testRules = do writeFile' path $ unlines ["#!/bin/sh",unwords ((abs_prog_path : flags) ++ ["${1+\"$@\"}"])] makeExecutable path else if prog == "ghc-pkg" then do - let flags = ["-no-global-package-db", "--no-user-package-db", "--global-package-db", pkgDb] + let flags = ["--no-user-package-db", "--global-package-db", pkgDb] writeFile' path $ unlines ["#!/bin/sh",unwords ((abs_prog_path : flags) ++ ["${1+\"$@\"}"])] makeExecutable path else createFileLink abs_prog_path path diff --git a/hadrian/src/Settings/Default.hs b/hadrian/src/Settings/Default.hs index c6f23b55a7..8e8729544b 100644 --- a/hadrian/src/Settings/Default.hs +++ b/hadrian/src/Settings/Default.hs @@ -100,12 +100,12 @@ stage0Packages = do , text , transformers , unlit + , hp2ps , if winTarget then win32 else unix ] ++ [ terminfo | not windowsHost, not cross ] ++ [ timeout | windowsHost ] ++ [ touchy | windowsHost ] - ++ [ hp2ps | cross ] -- | Packages built in 'Stage1' by default. You can change this in "UserSettings". stage1Packages :: Action [Package] |