From: Michael Orlitzky <michael@orlitzky.com>
Date: Wed, 28 Aug 2013 13:36:45 +0000 (-0400)
Subject: Bugfix: help wasn't being shown when no usernames were supplied.
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=fa3bc2f624f7a7bd6b02e7bfb9fc508150074063;p=dead%2Fhalcyon.git

Bugfix: help wasn't being shown when no usernames were supplied.
---

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index ef9ff39..cf63b48 100644
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -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