diff options
author | Joey Hess <joey@kitenet.net> | 2014-02-18 21:02:27 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-02-18 21:09:25 -0400 |
commit | d8cc840cc7fd9d543486b7a86426eb4bc444b5aa (patch) | |
tree | a524b4d7ff9c24e0839beec5546e4a4a40cf7166 /Command/VPop.hs | |
parent | 935f5ed55b1ed9a218955fdd34cb40db3b1c9425 (diff) |
fixed vpop
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 |