diff options
| author | Sebastian Graf <sgraf1337@gmail.com> | 2019-07-17 10:08:15 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-07-19 18:08:15 -0400 |
| commit | f1980a1e8a05eca244bbc018c0d590e535112f35 (patch) | |
| tree | 8b4269b86e1dcd1ea0ee7905d65f837c560fb541 /hadrian/src/Rules | |
| parent | 69adb25329257b38d465c8c7896377918449fdd0 (diff) | |
| download | haskell-f1980a1e8a05eca244bbc018c0d590e535112f35.tar.gz | |
Make generated ghc-stage<n> scripts executable
Diffstat (limited to 'hadrian/src/Rules')
| -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 |