This commit is contained in:
Joey Hess 2011-09-15 16:57:02 -04:00
parent 35145202d2
commit 5ff04bf2af
7 changed files with 18 additions and 12 deletions

View file

@ -59,7 +59,7 @@ download url file = do
ok <- Url.download url tmp
if ok
then do
[(_, backend)] <- Backend.chooseBackends [file]
[(backend, _)] <- Backend.chooseBackends [file]
k <- Backend.genKey tmp backend
case k of
Nothing -> stop