make whereis show urls when web remote does not have content

This is needed when external special remotes register an url for a key.
This commit is contained in:
Joey Hess 2015-08-17 11:35:34 -04:00
parent 3a5b7dbaf0
commit 858104078a
2 changed files with 15 additions and 4 deletions

View file

@ -7,7 +7,7 @@
{-# LANGUAGE CPP #-}
module Remote.Web (remote) where
module Remote.Web (remote, getWebUrls) where
import Common.Annex
import Types.Remote
@ -54,7 +54,7 @@ gen r _ c gc =
, removeKey = dropKey
, checkPresent = checkKey
, checkPresentCheap = False
, whereisKey = Just getWebUrls
, whereisKey = Nothing
, remoteFsck = Nothing
, repairRepo = Nothing
, config = c