diff options
Diffstat (limited to 'Git/Repair.hs')
| -rw-r--r-- | Git/Repair.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/Git/Repair.hs b/Git/Repair.hs index 3fb79df..474184b 100644 --- a/Git/Repair.hs +++ b/Git/Repair.hs @@ -172,13 +172,7 @@ retrieveMissingObjects missing referencerepo r Just s -> do stillmissing <- findMissing (S.toList s) r pullremotes tmpr rmts fetchrefs (Just stillmissing) - , do - putStrLn $ unwords - [ "failed to fetch from remote" - , repoDescribe rmt - , "(will continue without it, but making this remote available may improve recovery)" - ] - pullremotes tmpr rmts fetchrefs ms + , pullremotes tmpr rmts fetchrefs ms ) fetchfrom fetchurl ps = runBool $ [ Param "fetch" |