From 5e91ef32c6d2d9903285668e48957d585914e606 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Feb 2014 22:12:42 -0400 Subject: vpop N: remove skipped over views --- Command/VPop.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Command/VPop.hs') diff --git a/Command/VPop.hs b/Command/VPop.hs index fe6d35a32..c95701580 100644 --- a/Command/VPop.hs +++ b/Command/VPop.hs @@ -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 -- cgit v1.2.3