mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

more robust fallback when a file is available from multiple torrents and some torrent files cannot be downloaded

Browse source
This commit is contained in:
Joey Hess 2014-12-17 14:38:04 -04:00
parent 96721c3e4a
commit 2192c54877
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Remote/BitTorrent.hs
View file

@ -77,16 +77,17 @@ downloadKey key _file dest p = do
get . map (torrentUrlNum . fst . getDownloader) =<< getBitTorrentUrls key
where
get [] = do
warning "no known torrent url"
warning "could not download torrent"
return False
get urls = do
showOutput -- make way for download progress bar
untilTrue urls $ \(u, filenum) -> do
registerTorrentCleanup u
checkDependencies
unlessM (downloadTorrentFile u) $
error "could not download torrent file"
downloadTorrentContent key u dest filenum p
ifM (downloadTorrentFile u)
( downloadTorrentContent key u dest filenum p
, return False
)
downloadKeyCheap :: Key -> FilePath -> Annex Bool
downloadKeyCheap _ _ = return False