--- /dev/null
+{-# LANGUAGE DeriveDataTypeable #-}
+
+module CommandLine (
+ get_args )
+where
+
+import System.Console.CmdArgs (
+ (&=),
+ cmdArgs,
+ def,
+ details,
+ help,
+ program,
+ summary )
+
+
+-- Get the version from Cabal.
+import Paths_mailbox_count ( version )
+import Data.Version ( showVersion )
+
+import OptionalConfiguration ( OptionalConfiguration(..) )
+
+
+description :: String
+description = "Count mailboxes in a SQL database."
+
+program_name :: String
+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"
+
+detail_help :: String
+detail_help =
+ "Produce a detailed report listing all mailboxes by domain"
+
+host_help :: String
+host_help =
+ "Hostname where the database is located"
+
+password_help :: String
+password_help =
+ "Password used to connect to the database"
+
+port_help :: String
+port_help =
+ "Port number used to connect to the database"
+
+username_help :: String
+username_help =
+ "Username used to connect to the database"
+
+arg_spec :: OptionalConfiguration
+arg_spec = OptionalConfiguration
+ { both = def &= help both_help,
+ database = def &= help database_help,
+ detail = def &= help detail_help,
+ host = def &= help host_help,
+ password = def &= help password_help,
+ port = def &= help port_help,
+ username = def &= help username_help }
+ &= program program_name
+ &= summary my_summary
+ &= details [description]
+
+get_args :: IO OptionalConfiguration
+get_args = cmdArgs arg_spec