X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCommandLine.hs;h=06c072e8715af292cb8a5d83ffa5ed0cd29b2aa4;hb=4f1ecbb17ed0e0a9506187630374468a46179514;hp=ef9ff39939a9f9795c26de573aedad318c5e7b5c;hpb=dd4abc21674b98bc55a3775291a8667dffec2863;p=dead%2Fhalcyon.git

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index ef9ff39..06c072e 100644
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -11,17 +11,18 @@ import System.Exit (ExitCode(..), exitWith)
 import System.IO (hPutStrLn, stderr)
 
 -- Get the version from Cabal.
-import Paths_twat (version)
+import Paths_halcyon (version)
 import Data.Version (showVersion)
 
 import ExitCodes
 import OptionalConfiguration
 
 description :: String
-description = "Twat twats tweets so you don't have to twitter."
+description =
+  "Monitor a list of Twitter accounts and display or email any new tweets."
 
 program_name :: String
-program_name = "twat"
+program_name = "halcyon"
 
 my_summary :: String
 my_summary = program_name ++ "-" ++ (showVersion version)
@@ -124,8 +125,8 @@ arg_spec =
     &= helpArg [groupname "Common flags"]
     &= versionArg [groupname "Common flags"]
 
-show_help :: IO (CmdArgs OptionalCfg)
-show_help = withArgs ["--help"] parse_args
+show_help :: IO OptionalCfg
+show_help = withArgs ["--help"] parse_args >>= cmdArgsApply