[commit: ghc] wip/nfs-locking: Put when trackBuildSystem conditional more precisely. (9f99e24)

git at git.haskell.org git at git.haskell.org
Thu Oct 26 23:39:45 UTC 2017


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

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

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

commit 9f99e240df6f3c5ad8597e2dafd9a73220dd87d3
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Thu Sep 24 23:48:02 2015 +0100

    Put when trackBuildSystem conditional more precisely.


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

9f99e240df6f3c5ad8597e2dafd9a73220dd87d3
 src/Oracles/ArgsHash.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Oracles/ArgsHash.hs b/src/Oracles/ArgsHash.hs
index bc29031..402923b 100644
--- a/src/Oracles/ArgsHash.hs
+++ b/src/Oracles/ArgsHash.hs
@@ -20,12 +20,12 @@ newtype ArgsHashKey = ArgsHashKey Target
 -- to argument lists where appropriate.
 -- TODO: enforce the above assumption via type trickery?
 checkArgsHash :: Target -> Action ()
-checkArgsHash target = do
+checkArgsHash target = when trackBuildSystem $ do
     _ <- askOracle . ArgsHashKey $ target { sources = ["src"] } :: Action Int
     return ()
 
 -- Oracle for storing per-target argument list hashes
 argsHashOracle :: Rules ()
-argsHashOracle = when trackBuildSystem $ do
+argsHashOracle = do
     _ <- addOracle $ \(ArgsHashKey target) -> hash <$> interpret target getArgs
     return ()



More information about the ghc-commits mailing list