diff options
Diffstat (limited to 'Command/VCycle.hs')
| -rw-r--r-- | Command/VCycle.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Command/VCycle.hs b/Command/VCycle.hs index bf253adc1..a3c61d859 100644 --- a/Command/VCycle.hs +++ b/Command/VCycle.hs @@ -14,12 +14,13 @@ import Types.View import Logs.View import Command.View (checkoutViewBranch) -cmd :: [Command] -cmd = [notBareRepo $ notDirect $ - command "vcycle" paramNothing seek SectionMetaData - "switch view to next layout"] +cmd :: Command +cmd = notBareRepo $ notDirect $ + command "vcycle" SectionMetaData + "switch view to next layout" + paramNothing (withParams seek) -seek :: CommandSeek +seek :: CmdParams -> CommandSeek seek = withNothing start start ::CommandStart |