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

(limited to 'Command/VFilter.hs')

diff --git a/Command/VFilter.hs b/Command/VFilter.hs
index 78f2d9d5c..259d36068 100644
--- a/Command/VFilter.hs
+++ b/Command/VFilter.hs
@@ -14,9 +14,10 @@ import Command.View (paramView, checkoutViewBranch)
 
 cmd :: Command
 cmd = notBareRepo $ notDirect $
-	command "vfilter" paramView seek SectionMetaData "filter current view"
+	command "vfilter" SectionMetaData "filter current view"
+		paramView (withParams seek)
 
-seek :: CommandSeek
+seek :: CmdParams -> CommandSeek
 seek = withWords start
 
 start :: [String] -> CommandStart
-- 
cgit v1.2.3