diff options
| author | Sebastian Graf <sgraf1337@gmail.com> | 2019-07-17 10:08:15 +0000 |
|---|---|---|
| committer | Sebastian Graf <sgraf1337@gmail.com> | 2019-07-17 10:08:15 +0000 |
| commit | b24638779bf9b7f8efc7b1e9bf7b344beb45d530 (patch) | |
| tree | 889de57ae210e1c5222bf3f7c7f4776770d7863a | |
| parent | 52f755aa203c55e44dce79c9ac1abc245977b000 (diff) | |
| download | haskell-wip/chmod-ghc-stage1.tar.gz | |
Make generated ghc-stage<n> scripts executablewip/chmod-ghc-stage1
| -rw-r--r-- | hadrian/src/Rules/Generate.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/hadrian/src/Rules/Generate.hs b/hadrian/src/Rules/Generate.hs index 8593810546..7a584130f5 100644 --- a/hadrian/src/Rules/Generate.hs +++ b/hadrian/src/Rules/Generate.hs @@ -172,8 +172,8 @@ generateRules :: Rules () generateRules = do root <- buildRootRules - (root -/- "ghc-stage1") <~ ghcWrapper Stage1 - (root -/- "ghc-stage2") <~ ghcWrapper Stage2 + (root -/- "ghc-stage1") <~+ ghcWrapper Stage1 + (root -/- "ghc-stage2") <~+ ghcWrapper Stage2 priority 2.0 $ (root -/- generatedDir -/- "ghcautoconf.h") <~ generateGhcAutoconfH priority 2.0 $ (root -/- generatedDir -/- "ghcplatform.h") <~ generateGhcPlatformH @@ -188,7 +188,8 @@ generateRules = do withTempDir $ \dir -> build $ target (rtsContext Stage1) DeriveConstants [] [file, dir] where - file <~ gen = file %> \out -> generate out emptyTarget gen + file <~ gen = file %> \out -> generate out emptyTarget gen + file <~+ gen = file %> \out -> generate out emptyTarget gen >> makeExecutable out -- TODO: Use the Types, Luke! (drop partial function) -- We sometimes need to evaluate expressions that do not require knowing all |