From e7e61fb6cbe5455ded9bb550a64121223c099fc2 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 8 Jul 2015 15:08:02 -0400
Subject: convert all commands to work with optparse-applicative

Still no options though.
---
 Command/EnableRemote.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'Command/EnableRemote.hs')

diff --git a/Command/EnableRemote.hs b/Command/EnableRemote.hs
index ccf6d9aab..1d4c4af5e 100644
--- a/Command/EnableRemote.hs
+++ b/Command/EnableRemote.hs
@@ -16,11 +16,12 @@ import qualified Command.InitRemote as InitRemote
 import qualified Data.Map as M
 
 cmd :: Command
-cmd = command "enableremote"
+cmd = command "enableremote" SectionSetup
+	"enables use of an existing special remote"
 	(paramPair paramName $ paramOptional $ paramRepeating paramKeyValue)
-	seek SectionSetup "enables use of an existing special remote"
+	(withParams seek)
 
-seek :: CommandSeek
+seek :: CmdParams -> CommandSeek
 seek = withWords start
 
 start :: [String] -> CommandStart
-- 
cgit v1.2.3