diff options
| -rw-r--r-- | hadrian/src/Target.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/hadrian/src/Target.hs b/hadrian/src/Target.hs index 30c8d98d14..f3de9036cd 100644 --- a/hadrian/src/Target.hs +++ b/hadrian/src/Target.hs @@ -20,7 +20,9 @@ type Target = H.Target Context Builder -- 'True' only if the argument needs to be tracked. trackArgument :: Target -> String -> Bool trackArgument target arg = case builder target of - (Make _) -> not $ threadArg arg - _ -> True + Make _ -> not $ threadArg arg + Ghc _ _ -> not $ verbosityArg arg + _ -> True where threadArg s = dropWhileEnd isDigit s `elem` ["-j", "MAKEFLAGS=-j", "THREADS="] + verbosityArg s = dropWhileEnd isDigit s == "-v" |