option nitpicks

diff --git a/Network/AMQP/Utils/Options.hs b/Network/AMQP/Utils/Options.hs
index cc819fdbe64dcf97e6ddc4919c7fdcb38a0be012..bb1cf8fd6f7758fd7e3865d03a864ea3286318f0 100644 (file)
--- a/Network/AMQP/Utils/Options.hs
+++ b/Network/AMQP/Utils/Options.hs
@@ -214,7 +214,7 @@ aOptions =
       ['r']
       ["routingkey"]
       (ReqArg (\s o -> o {rKey = s}) "ROUTINGKEY")
-      ("AMQP routing key (default: " ++ (rKey def) ++ ")")
+      "AMQP routing key"
   , Option
       ['f']
       ["inputfile"]
@@ -304,7 +304,7 @@ aOptions =
       ['m']
       ["magic"]
       (NoArg (\o -> o {magic = not (magic o)}))
-      "Toggle setting content-type and content-encoding from file contents"
+      ("Toggle setting content-type and -encoding from file contents (default: " ++ show (magic def) ++ ")")
   ]
 
 -- | Options for the executables