mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add stub claimUrl

Browse source
This commit is contained in:
Joey Hess 2014-12-08 13:40:15 -04:00
parent 8093008ef4
commit cb6e16947d
16 changed files with 28 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Types/Remote.hs
View file

@ -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