diff --git a/utils/haddock/haddock-api/src/Haddock/Utils.hs b/utils/haddock/haddock-api/src/Haddock/Utils.hs index 94b5138e65ea83f4559996f9e95d8ba5c1dbf7f4..5689f8b201ea5fa193df73cf05983eeee3e72af2 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