X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Fhalcyon.git;a=blobdiff_plain;f=src%2FCommandLine.hs;h=cf63b48e696c84bcfddfd74a3df506c49d2af46a;hp=e70aa964c667e3d22aa88afcefb3847da84169ba;hb=fa3bc2f624f7a7bd6b02e7bfb9fc508150074063;hpb=7bb00e04c15781d889f950d00babf3f183047bff

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index e70aa96..cf63b48 100644
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -14,8 +14,8 @@ import System.IO (hPutStrLn, stderr)
 import Paths_twat (version)
 import Data.Version (showVersion)
 
-import OptionalConfiguration
 import ExitCodes
+import OptionalConfiguration
 
 description :: String
 description = "Twat twats tweets so you don't have to twitter."
@@ -124,8 +124,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