summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess <joey@kitenet.net>2013-11-21 14:07:20 -0400
committerJoey Hess <joey@kitenet.net>2013-11-21 14:07:20 -0400
commit7b682261d199f31f7b09c8e05bccb23a2410d768 (patch)
tree616061f3eb4c3bcd4b2078381602398bd5c117e2
parentefda9be7c8782936fab05b6059c43d1c30effe1f (diff)
downloadgit-repair-7b682261d199f31f7b09c8e05bccb23a2410d768.tar.gz
remove warning
-rw-r--r--Git/Repair.hs8
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"