Commit fc040dbd authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Need touchy when calling ghc-stageN, N > 0, on Windows.

parent be9a21c6
......@@ -21,6 +21,7 @@ ghcBuilderArgs = stagedBuilder Ghc ? do
output <- getOutput
stage <- getStage
way <- getWay
when (stage > Stage0) . lift $ needTouchy
let buildObj = ("//*." ++ osuf way) ?== output || ("//*." ++ obootsuf way) ?== output
buildHi = ("//*." ++ hisuf way) ?== output || ("//*." ++ hibootsuf way) ?== output
buildProg = not (buildObj || buildHi)
......@@ -44,6 +45,9 @@ ghcBuilderArgs = stagedBuilder Ghc ? do
, buildHi ? append ["-fno-code", "-fwrite-interface"]
, not buildHi ? mconcat [ arg "-o", arg =<< getOutput ] ]
needTouchy :: Action ()
needTouchy = whenM windowsHost $ need [fromJust $ programPath Stage0 touchy ]
splitObjectsArgs :: Args
splitObjectsArgs = splitObjects ? do
lift $ need [ghcSplit]
......
Markdown is supported
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