tweak
This commit is contained in:
parent
35145202d2
commit
5ff04bf2af
7 changed files with 18 additions and 12 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue