summaryrefslogtreecommitdiff
path: root/Remotes.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Remotes.hs')
-rw-r--r--Remotes.hs7
1 files changed, 4 insertions, 3 deletions
diff --git a/Remotes.hs b/Remotes.hs
index 4f4e5a26c..f20d51ab3 100644
--- a/Remotes.hs
+++ b/Remotes.hs
@@ -45,9 +45,10 @@ withKey key = do
else return remotes'
err uuids =
error $ "no available git remotes have: " ++
- (keyFile key) ++ "\n" ++
- "It has been seen before in these repositories:\n" ++
- prettyPrintUUIDs uuids
+ (keyFile key) ++ (uuidlist uuids)
+ uuidlist [] = ""
+ uuidlist uuids = "\nIt has been seen before in these repositories:\n" ++
+ prettyPrintUUIDs uuids
{- Cost Ordered list of remotes. -}
remotesByCost :: Annex [Git.Repo]