--- |The CommandLine module handles parsing of the command-line options.
--- It should more or less be a black box, providing Main with only the
--- information it requires.
-module CommandLine
-( help_set,
- help_text,
- from_email_address,
- to_email_address,
- parse_errors,
- parse_usernames
-) where
+module CommandLine (
+ get_args,
+ show_help )
+where
+
+import System.Console.CmdArgs (
+ (&=),
+ args,
+ cmdArgs,
+ def,
+ details,
+ groupname,
+ help,
+ helpArg,
+ program,
+ summary,
+ typ,
+ typFile,
+ versionArg )
+import System.Environment ( withArgs )
+
+-- Get the version from Cabal.
+import Paths_halcyon ( version )
+import Data.Version ( showVersion )
+
+import OptionalConfiguration ( OptionalCfg(..) )
+
+
+-- | The description of the program, displayed as part of the help.
+--
+description :: String
+description =
+ "Monitor a list of Twitter accounts and display or email any new tweets."
+
+
+-- | The name of this program.
+--
+program_name :: String
+program_name = "halcyon"
+
+
+-- | A summary string output as part of the help.
+--
+my_summary :: String
+my_summary = program_name ++ "-" ++ (showVersion version)
+
+
+-- | Help string for the \"access_secret\" option.
+--
+access_secret_help :: String
+access_secret_help = "Your Twitter API access secret"
+
+
+-- | Help string for the \"access_token\" option
+--
+access_token_help :: String
+access_token_help = "Your Twitter API access token"
+
+
+-- | Help string for the \"consumer_key\" option.
+--
+consumer_key_help :: String
+consumer_key_help = "Your Twitter API consumer key"
+