diff options
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 |