From b2252febf1355e62a00fb735831d3b2a1aed2566 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 8 Jul 2015 15:39:05 -0400
Subject: support cmdnorepo actions, also using getopt-applicative there

---
 Command/Help.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'Command/Help.hs')

diff --git a/Command/Help.hs b/Command/Help.hs
index 08873e2bb..17ed8cd0b 100644
--- a/Command/Help.hs
+++ b/Command/Help.hs
@@ -22,9 +22,12 @@ import qualified Command.Fsck
 import System.Console.GetOpt
 
 cmd :: Command
-cmd = noCommit $ noRepo startNoRepo $ dontCheck repoExists $
-	command "help" SectionCommon "display help"
-		"COMMAND" (withParams seek)
+cmd = noCommit $ dontCheck repoExists $
+	noRepo (parseparams startNoRepo) $ 
+		command "help" SectionCommon "display help"
+			"COMMAND" (parseparams seek)
+  where
+	parseparams = withParams
 
 seek :: CmdParams -> CommandSeek
 seek = withWords start
-- 
cgit v1.2.3