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

vpop N: remove skipped over views

Browse source
This commit is contained in:
Joey Hess 2014-02-18 22:12:42 -04:00
parent 57d7491d1f
commit 587a81e42f
Failed to extract signature
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Command/VPop.hs
View file

@ -30,8 +30,9 @@ start ps = go =<< currentView
go (Just v) = do
showStart "vpop" (show num)
removeView v
vs <- drop (num - 1) . filter (sameparentbranch v)
(oldvs, vs) <- splitAt (num - 1) . filter (sameparentbranch v)
<$> recentViews
mapM_ removeView oldvs
case vs of
(oldv:_) -> next $ next $ do
showOutput