summaryrefslogtreecommitdiff
path: root/Command/VFilter.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/VFilter.hs')
-rw-r--r--Command/VFilter.hs9
1 files changed, 5 insertions, 4 deletions
diff --git a/Command/VFilter.hs b/Command/VFilter.hs
index fd5ec9630..259d36068 100644
--- a/Command/VFilter.hs
+++ b/Command/VFilter.hs
@@ -12,11 +12,12 @@ import Command
import Annex.View
import Command.View (paramView, checkoutViewBranch)
-cmd :: [Command]
-cmd = [notBareRepo $ notDirect $
- command "vfilter" paramView seek SectionMetaData "filter current view"]
+cmd :: Command
+cmd = notBareRepo $ notDirect $
+ command "vfilter" SectionMetaData "filter current view"
+ paramView (withParams seek)
-seek :: CommandSeek
+seek :: CmdParams -> CommandSeek
seek = withWords start
start :: [String] -> CommandStart