From a200761e66f01a271c90ce67482105befca6ef09 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 14 Oct 2010 14:14:19 -0400
Subject: implemented basic --drop

---
 Remotes.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'Remotes.hs')

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]
-- 
cgit v1.2.3