summaryrefslogtreecommitdiff
path: root/Remotes.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-14 17:37:20 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-14 17:38:13 -0400
commit508a3b65ed675c9322940578614f088ea2c74e7f (patch)
treec3564f59aee2351d8bd7e8ce42ade05f8207e6b8 /Remotes.hs
parentaa2f4bd81049e3bcaad6f5f1334864ce14887527 (diff)
annex.numcopies works
Diffstat (limited to 'Remotes.hs')
-rw-r--r--Remotes.hs10
1 files changed, 1 insertions, 9 deletions
diff --git a/Remotes.hs b/Remotes.hs
index f20d51ab3..2fffcffa7 100644
--- a/Remotes.hs
+++ b/Remotes.hs
@@ -40,15 +40,7 @@ withKey key = do
mayberemotes <- mapM tryGitConfigRead allremotes
let allremotes' = catMaybes mayberemotes
remotes' <- reposByUUID allremotes' uuids
- if (0 == length remotes')
- then err uuids
- else return remotes'
- err uuids =
- error $ "no available git remotes have: " ++
- (keyFile key) ++ (uuidlist uuids)
- uuidlist [] = ""
- uuidlist uuids = "\nIt has been seen before in these repositories:\n" ++
- prettyPrintUUIDs uuids
+ return remotes'
{- Cost Ordered list of remotes. -}
remotesByCost :: Annex [Git.Repo]