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/NumCopies.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'Command/NumCopies.hs')

diff --git a/Command/NumCopies.hs b/Command/NumCopies.hs
index 33db1bbc9..1a3dd3dad 100644
--- a/Command/NumCopies.hs
+++ b/Command/NumCopies.hs
@@ -14,10 +14,11 @@ import Annex.NumCopies
 import Types.Messages
 
 cmd :: Command
-cmd = command "numcopies" paramNumber seek
-	SectionSetup "configure desired number of copies"
+cmd = command "numcopies" SectionSetup 
+	"configure desired number of copies"
+	paramNumber (withParams seek)
 
-seek :: CommandSeek
+seek :: CmdParams -> CommandSeek
 seek = withWords start
 
 start :: [String] -> CommandStart
-- 
cgit v1.2.3