summaryrefslogtreecommitdiff
path: root/Command/VCycle.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-02-18 20:57:14 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-02-18 20:57:14 -0400
commit935f5ed55b1ed9a218955fdd34cb40db3b1c9425 (patch)
tree0409ba3b6decae4764b39b0b4b827d093f081039 /Command/VCycle.hs
parent59d66243ab57890cbbe7fdc0a7c7c78c24702b95 (diff)
fix view changing when in subdir
Failed reading some files with relative paths. This is a quick and dirty fix.
Diffstat (limited to 'Command/VCycle.hs')
-rw-r--r--Command/VCycle.hs7
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