diff options
author | Joey Hess <joeyh@joeyh.name> | 2014-12-11 12:47:57 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2014-12-11 12:47:57 -0400 |
commit | bc0bf97b20c48e1d1a35d25e2e76a311c102438c (patch) | |
tree | 05934001ff6b3060cb477a1bd017316827eb050b /Command/Whereis.hs | |
parent | 7f5e752b41b559bce358a9d6a053a7b195706e80 (diff) |
let url claims optionally include a suggested filename
Diffstat (limited to 'Command/Whereis.hs')
-rw-r--r-- | Command/Whereis.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/Whereis.hs b/Command/Whereis.hs index 314c204be..5f75badde 100644 --- a/Command/Whereis.hs +++ b/Command/Whereis.hs @@ -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 |