summaryrefslogtreecommitdiff
path: root/Command/VPop.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/VPop.hs')
-rw-r--r--Command/VPop.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/Command/VPop.hs b/Command/VPop.hs
index 1fb1d7a56..ba6f4ee5c 100644
--- a/Command/VPop.hs
+++ b/Command/VPop.hs
@@ -16,12 +16,12 @@ import Types.View
import Logs.View
import Command.View (checkoutViewBranch)
-cmd :: [Command]
-cmd = [notBareRepo $ notDirect $
- command "vpop" (paramOptional paramNumber) seek SectionMetaData
- "switch back to previous view"]
+cmd :: Command
+cmd = notBareRepo $ notDirect $
+ command "vpop" SectionMetaData "switch back to previous view"
+ paramNumber (withParams seek)
-seek :: CommandSeek
+seek :: CmdParams -> CommandSeek
seek = withWords start
start :: [String] -> CommandStart