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
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 go (Just v) = do
showStart "vpop" (show num) showStart "vpop" (show num)
removeView v removeView v
vs <- drop (num - 1) . filter (sameparentbranch v) (oldvs, vs) <- splitAt (num - 1) . filter (sameparentbranch v)
<$> recentViews <$> recentViews
mapM_ removeView oldvs
case vs of case vs of
(oldv:_) -> next $ next $ do (oldv:_) -> next $ next $ do
showOutput showOutput