From fa3bc2f624f7a7bd6b02e7bfb9fc508150074063 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Wed, 28 Aug 2013 09:36:45 -0400 Subject: [PATCH] Bugfix: help wasn't being shown when no usernames were supplied. --- src/CommandLine.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.44.2