From 335024d92294bd9504e9e9cd42ec0a4addfc4d69 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 8 Dec 2014 13:40:15 -0400 Subject: add stub claimUrl --- Types/Remote.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'Types/Remote.hs') 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 -- cgit v1.2.3