diff options
Diffstat (limited to 'Command/VCycle.hs')
| -rw-r--r-- | Command/VCycle.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/Command/VCycle.hs b/Command/VCycle.hs index c32ce2eb1..c1bee30b6 100644 --- a/Command/VCycle.hs +++ b/Command/VCycle.hs @@ -32,14 +32,9 @@ start = go =<< currentView then do showNote "unchanged" next $ next $ return True - else next $ perform v' + else next $ next $ checkoutViewBranch v' narrowView vcycle rest (c:cs) | multiValue (viewFilter c) = rest ++ cs ++ [c] | otherwise = vcycle (c:rest) cs vcycle rest c = rest ++ c - -perform :: View -> CommandPerform -perform view = do - branch <- narrowView view - next $ checkoutViewBranch view branch |