diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2014-12-08 13:40:15 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2014-12-08 13:40:15 -0400 |
| commit | 335024d92294bd9504e9e9cd42ec0a4addfc4d69 (patch) | |
| tree | 0c1e596609df621b59fcf5b3ed3b94621676d02b /Types/Remote.hs | |
| parent | 1285c91f8f9b3505b4c4137ee5d84c450468333b (diff) | |
add stub claimUrl
Diffstat (limited to 'Types/Remote.hs')
| -rw-r--r-- | Types/Remote.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Types/Remote.hs b/Types/Remote.hs index 795121763..46a0648bb 100644 --- a/Types/Remote.hs +++ b/Types/Remote.hs @@ -29,6 +29,7 @@ import Config.Cost import Utility.Metered import Git.Types import Utility.SafeCommand +import Utility.Url type RemoteConfigKey = String type RemoteConfig = M.Map RemoteConfigKey String @@ -100,7 +101,9 @@ data RemoteA a = Remote { -- available for use. All its actions should fail. mkUnavailable :: a (Maybe (RemoteA a)), -- Information about the remote, for git annex info to display. - getInfo :: a [(String, String)] + getInfo :: a [(String, String)], + -- Some remotes can download from an url (or uri). + claimUrl :: Maybe (URLString -> IO Bool) } instance Show (RemoteA a) where |