Commit 9f99e240 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Put when trackBuildSystem conditional more precisely.

parent 6a0c30ff
......@@ -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 ()
Supports Markdown
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