summaryrefslogtreecommitdiff
path: root/Command/VPop.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/VPop.hs')
-rw-r--r--Command/VPop.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/Command/VPop.hs b/Command/VPop.hs
index 52c2b7f0c..e62c2414a 100644
--- a/Command/VPop.hs
+++ b/Command/VPop.hs
@@ -28,10 +28,11 @@ start = go =<< currentView
where
go Nothing = error "Not in a view."
go (Just v) = do
- vs <- dropWhile (/= v) . filter (sameparentbranch v)
- <$> recentViews
+ showStart "vpop" ""
+ removeView v
+ vs <- filter (sameparentbranch v) <$> recentViews
case vs of
- (_v:oldv:_) -> next $ next $
+ (oldv:_) -> next $ next $ do
checkoutViewBranch oldv (return . branchView)
_ -> next $ next $
inRepo $ Git.Command.runBool