remove default untrusted hack for bittorrent

This is better handled by checkPresent always failing.
This commit is contained in:
Joey Hess 2014-12-17 15:37:13 -04:00
parent e08fa65131
commit e2214f6ac8
2 changed files with 1 additions and 10 deletions

View file

@ -72,8 +72,7 @@ gen r _ c gc =
}
downloadKey :: Key -> AssociatedFile -> FilePath -> MeterUpdate -> Annex Bool
downloadKey key _file dest p = do
defaultUnTrusted
downloadKey key _file dest p =
get . map (torrentUrlNum . fst . getDownloader) =<< getBitTorrentUrls key
where
get [] = do
@ -109,11 +108,6 @@ dropKey k = do
checkKey :: Key -> Annex Bool
checkKey key = error "cannot reliably check torrent status"
-- Makes this remote UnTrusted, unless it already has a trust set.
defaultUnTrusted :: Annex ()
defaultUnTrusted = whenM (isNothing . M.lookup bitTorrentUUID <$> trustMapRaw) $
trustSet bitTorrentUUID UnTrusted
getBitTorrentUrls :: Key -> Annex [URLString]
getBitTorrentUrls key = filter supported <$> getUrls key
where