Skip to content
Snippets Groups Projects
Commit f1980a1e authored by Sebastian Graf's avatar Sebastian Graf Committed by Marge Bot
Browse files

Make generated ghc-stage<n> scripts executable

parent 69adb253
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
hadrian/src/Rules/Generate.hs
+ 4
− 3
View file @ f1980a1e
...@@ -172,8 +172,8 @@ generateRules :: Rules () ...@@ -172,8 +172,8 @@ generateRules :: Rules ()
generateRules = do generateRules = do
root <- buildRootRules root <- buildRootRules
(root -/- "ghc-stage1") <~ ghcWrapper Stage1 (root -/- "ghc-stage1") <~+ ghcWrapper Stage1
(root -/- "ghc-stage2") <~ ghcWrapper Stage2 (root -/- "ghc-stage2") <~+ ghcWrapper Stage2
priority 2.0 $ (root -/- generatedDir -/- "ghcautoconf.h") <~ generateGhcAutoconfH priority 2.0 $ (root -/- generatedDir -/- "ghcautoconf.h") <~ generateGhcAutoconfH
priority 2.0 $ (root -/- generatedDir -/- "ghcplatform.h") <~ generateGhcPlatformH priority 2.0 $ (root -/- generatedDir -/- "ghcplatform.h") <~ generateGhcPlatformH
...@@ -188,7 +188,8 @@ generateRules = do ...@@ -188,7 +188,8 @@ generateRules = do
withTempDir $ \dir -> build $ withTempDir $ \dir -> build $
target (rtsContext Stage1) DeriveConstants [] [file, dir] target (rtsContext Stage1) DeriveConstants [] [file, dir]
where 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) -- TODO: Use the Types, Luke! (drop partial function)
-- We sometimes need to evaluate expressions that do not require knowing all -- We sometimes need to evaluate expressions that do not require knowing all
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment