diff options
Diffstat (limited to 'Command/VPop.hs')
-rw-r--r-- | Command/VPop.hs | 7 |
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 |