From 7b682261d199f31f7b09c8e05bccb23a2410d768 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 21 Nov 2013 14:07:20 -0400 Subject: remove warning --- Git/Repair.hs | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'Git/Repair.hs') 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" -- cgit v1.2.3