summaryrefslogtreecommitdiff
path: root/Command/LookupKey.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/LookupKey.hs')
-rw-r--r--Command/LookupKey.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/Command/LookupKey.hs b/Command/LookupKey.hs
index 9b7dd3a9b..021dc963b 100644
--- a/Command/LookupKey.hs
+++ b/Command/LookupKey.hs
@@ -15,10 +15,11 @@ import Types.Key
cmd :: Command
cmd = withOptions [batchOption] $ notBareRepo $ noCommit $ noMessages $
- command "lookupkey" (paramRepeating paramFile) seek
- SectionPlumbing "looks up key used for file"
+ command "lookupkey" SectionPlumbing
+ "looks up key used for file"
+ (paramRepeating paramFile) (withParams seek)
-seek :: CommandSeek
+seek :: CmdParams -> CommandSeek
seek = batchable withStrings start
start :: Batchable String