fix view changing when in subdir

Failed reading some files with relative paths. This is a quick and dirty
fix.
This commit is contained in:
Joey Hess 2014-02-18 20:57:14 -04:00
parent 9b51d43318
commit 72c118152f
5 changed files with 18 additions and 23 deletions

View file

@ -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