X-Git-Url: http://gitweb.michael.orlitzky.com/?p=mailbox-count.git;a=blobdiff_plain;f=src%2FCommandLine.hs;h=6c8833c9f53390f15ec58d61a05d2fd5fb76a56e;hp=8a2a8116ce607b8db7732061455cfad3615973ae;hb=bc4c3efd191f3cc5b7b9f046775bff706c491a7d;hpb=7a6ba612bdec5ba940dc6f74143ca64a9163fff2 diff --git a/src/CommandLine.hs b/src/CommandLine.hs index 8a2a811..6c8833c 100644 --- a/src/CommandLine.hs +++ b/src/CommandLine.hs @@ -30,10 +30,6 @@ program_name = "mailbox-count" my_summary :: String my_summary = program_name ++ "-" ++ (showVersion version) -both_help :: String -both_help = - "Produce both summary and detailed reports" - database_help :: String database_help = "The name of the database to which we should connect" @@ -60,8 +56,7 @@ username_help = arg_spec :: OptionalConfiguration arg_spec = OptionalConfiguration - { both = def &= help both_help, - database = def &= help database_help, + { database = def &= help database_help, detail = def &= help detail_help, host = def &= help host_help, password = def &= help password_help,