diff options
Diffstat (limited to 'Command/VPop.hs')
| -rw-r--r-- | Command/VPop.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |