]> gitweb.michael.orlitzky.com - dead/halcyon.git/commitdiff
Bugfix: help wasn't being shown when no usernames were supplied.
authorMichael Orlitzky <michael@orlitzky.com>
Wed, 28 Aug 2013 13:36:45 +0000 (09:36 -0400)
committerMichael Orlitzky <michael@orlitzky.com>
Wed, 28 Aug 2013 13:36:45 +0000 (09:36 -0400)
src/CommandLine.hs

index ef9ff39939a9f9795c26de573aedad318c5e7b5c..cf63b48e696c84bcfddfd74a3df506c49d2af46a 100644 (file)
@@ -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