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

(limited to 'Command/Unlock.hs')

diff --git a/Command/Unlock.hs b/Command/Unlock.hs
index 98117f5b5..36b0023d8 100644
--- a/Command/Unlock.hs
+++ b/Command/Unlock.hs
@@ -20,10 +20,10 @@ editcmd :: Command
 editcmd = mkcmd "edit" "same as unlock"
 
 mkcmd :: String -> String -> Command
-mkcmd n = notDirect . withOptions annexedMatchingOptions 
-	. command n paramPaths seek SectionCommon
+mkcmd n d = notDirect $ withOptions annexedMatchingOptions $
+	command n SectionCommon d paramPaths (withParams seek)
 
-seek :: CommandSeek
+seek :: CmdParams -> CommandSeek
 seek = withFilesInGit $ whenAnnexed start
 
 {- The unlock subcommand replaces the symlink with a copy of the file's
-- 
cgit v1.2.3