let url claims optionally include a suggested filename
This commit is contained in:
parent
7c9149a44f
commit
85df9c30e9
11 changed files with 67 additions and 26 deletions
|
@ -14,6 +14,7 @@ import Command
|
|||
import Remote
|
||||
import Logs.Trust
|
||||
import Logs.Web
|
||||
import Annex.URLClaim
|
||||
|
||||
cmd :: [Command]
|
||||
cmd = [noCommit $ withOptions (jsonOption : keyOptions) $
|
||||
|
@ -71,4 +72,4 @@ performRemote key remote = do
|
|||
. filter (\(_, d) -> d == OtherDownloader)
|
||||
. map getDownloader
|
||||
<$> getUrls key
|
||||
filterM (\u -> (==) <$> pure remote <*> claimingUrl u) us
|
||||
filterM (\u -> (==) <$> pure remote <*> (fst <$> urlClaim u)) us
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue