From adf83be711a9fee2fd3efb9bfc0fc458814e36c1 Mon Sep 17 00:00:00 2001 From: Zubin Duggal Date: Thu, 14 Oct 2021 17:15:20 +0530 Subject: Don't print Shake Diagnostic messages (#20484) --- hadrian/src/Main.hs | 5 +++++ 1 file changed, 5 insertions(+) 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 () -- cgit v1.2.1