[commit: ghc] wip/nfs-locking: Need touchy when calling ghc-stageN, N > 0, on Windows. (fc040db)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/fc040dbd72081339e3eff5083dcb13d145f69ded/ghc

>---------------------------------------------------------------

commit fc040dbd72081339e3eff5083dcb13d145f69ded
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Tue Feb 2 22:06:22 2016 +0000

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


>---------------------------------------------------------------

fc040dbd72081339e3eff5083dcb13d145f69ded
 src/Settings/Builders/Ghc.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/Settings/Builders/Ghc.hs b/src/Settings/Builders/Ghc.hs
index c79fc50..74381eb 100644
--- a/src/Settings/Builders/Ghc.hs
+++ b/src/Settings/Builders/Ghc.hs
@@ -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]