diff options
| author | Zubin Duggal <zubin.duggal@gmail.com> | 2021-10-14 17:15:20 +0530 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-10-19 13:37:12 -0400 |
| commit | 79c9c816ac1866881f90ea7e6d5c182b54780a97 (patch) | |
| tree | f96de938f6dde1467bc1b3900f6e80fff07a6829 | |
| parent | 12d74ef77c1ded52b247cf21ff1012adf0408d70 (diff) | |
| download | haskell-79c9c816ac1866881f90ea7e6d5c182b54780a97.tar.gz | |
Don't print Shake Diagnostic messages (#20484)
| -rw-r--r-- | hadrian/src/Main.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/hadrian/src/Main.hs b/hadrian/src/Main.hs index 7fc15e245b..d2e0ace795 100644 --- a/hadrian/src/Main.hs +++ b/hadrian/src/Main.hs @@ -83,6 +83,11 @@ main = do -- Ignore in-tree GMP objects , buildRoot -/- "**/gmp/objs/**" ] + , shakeOutput = \v -> case v of + -- We don't want to print internal shake diagnostic messages as + -- they are too verbose to be of any use. See #20484. + Diagnostic -> const (pure ()) + _ -> shakeOutput shakeOptions v } rules :: Rules () |