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:
parent
9b51d43318
commit
72c118152f
5 changed files with 18 additions and 23 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue