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"
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,