mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fixed vpop

Browse source
This commit is contained in:
Joey Hess 2014-02-18 21:02:27 -04:00
parent 72c118152f
commit 2bf338f443
3 changed files with 15 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Command/VCycle.hs
View file

@ -27,6 +27,7 @@ start = go =<< currentView
where
go Nothing = error "Not in a view."
go (Just v) = do
showStart "vcycle" ""
let v' = v { viewComponents = vcycle [] (viewComponents v) }
if v == v'
then do