From c9f48c3e42851c22790c08ec77be7844e5c44e12 Mon Sep 17 00:00:00 2001
From: agl <agl@imperialviolet.org>
Date: Mon, 31 Dec 2007 17:47:09 +0000
Subject: [PATCH] Ticket 176: Fix verbosity error to include the valid -v
 values

Fixed:
http://hackage.haskell.org/trac/hackage/ticket/176
---
 Distribution/Verbosity.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Distribution/Verbosity.hs b/Distribution/Verbosity.hs
index d03d81222a..2455332c6e 100644
--- a/Distribution/Verbosity.hs
+++ b/Distribution/Verbosity.hs
@@ -98,7 +98,8 @@ flagToVerbosity (Just s)
        [(i, "")] ->
            case intToVerbosity i of
                Just v -> v
-               Nothing -> error ("Bad verbosity " ++ show i)
+               Nothing -> error ("Bad verbosity: " ++ show i ++
+                                 ". Valid values are 0..3")
        _ -> error ("Can't parse verbosity " ++ s)
 
 showForCabal, showForGHC :: Verbosity -> String
-- 
GitLab