diff options
Diffstat (limited to 'git-recover-repository.hs')
-rw-r--r-- | git-recover-repository.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/git-recover-repository.hs b/git-recover-repository.hs index 6654057fa..66b1708f8 100644 --- a/git-recover-repository.hs +++ b/git-recover-repository.hs @@ -59,14 +59,14 @@ main = do ] if forced then do - remotebranches <- Git.RecoverRepository.removeTrackingBranches stillmissing g + (remotebranches, goodcommits) <- Git.RecoverRepository.removeTrackingBranches stillmissing Git.RecoverRepository.emptyGoodCommits g unless (null remotebranches) $ putStrLn $ unwords [ "removed" , show (length remotebranches) , "remote tracking branches that referred to missing objects" ] - localbranches <- Git.RecoverRepository.resetLocalBranches stillmissing g + localbranches <- Git.RecoverRepository.resetLocalBranches stillmissing goodcommits g unless (null localbranches) $ do putStrLn "Reset these local branches to old versions before the missing objects were committed:" putStr $ unlines $ map show localbranches |