From 00126a89da90ecef405f80644ee6f746f5a94fc3 Mon Sep 17 00:00:00 2001 From: Andrei Borzenkov <andreyborzenkov2002@gmail.com> Date: Thu, 23 May 2024 09:34:46 +0400 Subject: [PATCH] haddock: fix verbosity option parsing --- utils/haddock/haddock-api/src/Haddock/Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/utils/haddock/haddock-api/src/Haddock/Utils.hs b/utils/haddock/haddock-api/src/Haddock/Utils.hs index 94b5138e65ea..5689f8b201ea 100644 --- a/utils/haddock/haddock-api/src/Haddock/Utils.hs +++ b/utils/haddock/haddock-api/src/Haddock/Utils.hs @@ -111,7 +111,7 @@ deafening = Deafening parseVerbosity :: String -> Either String Verbosity parseVerbosity "0" = Right Silent parseVerbosity "1" = Right Normal -parseVerbosity "2" = Right Silent +parseVerbosity "2" = Right Verbose parseVerbosity "3" = Right Deafening parseVerbosity "silent" = return Silent parseVerbosity "normal" = return Normal -- GitLab