diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-10-14 14:14:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-10-14 14:14:19 -0400 |
| commit | a200761e66f01a271c90ce67482105befca6ef09 (patch) | |
| tree | 5b2d94670d63db3201851785b3c13bf6392b251b /Remotes.hs | |
| parent | f9557d7c5e2aa7ef19a5d589594154a21c7f2caa (diff) | |
implemented basic --drop
Diffstat (limited to 'Remotes.hs')
| -rw-r--r-- | Remotes.hs | 7 |
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] |