From fa7934c035ff09b46d646353683c6d9745f0c94d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 13 Jan 2014 14:41:10 -0400 Subject: add GETAVAILABILITY to external special remote protocol And some reworking of types, and added an annex-availability git config setting. --- Types/GitConfig.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Types/GitConfig.hs') diff --git a/Types/GitConfig.hs b/Types/GitConfig.hs index 8623258a1..cda53f229 100644 --- a/Types/GitConfig.hs +++ b/Types/GitConfig.hs @@ -18,6 +18,7 @@ import qualified Git.Config import Utility.DataUnits import Config.Cost import Types.Distribution +import Types.Availability {- Main git-annex settings. Each setting corresponds to a git-config key - such as annex.foo -} @@ -101,6 +102,7 @@ data RemoteGitConfig = RemoteGitConfig , remoteAnnexTrustLevel :: Maybe String , remoteAnnexStartCommand :: Maybe String , remoteAnnexStopCommand :: Maybe String + , remoteAnnexAvailability :: Maybe Availability {- These settings are specific to particular types of remotes - including special remotes. -} @@ -130,6 +132,7 @@ extractRemoteGitConfig r remotename = RemoteGitConfig , remoteAnnexTrustLevel = notempty $ getmaybe "trustlevel" , remoteAnnexStartCommand = notempty $ getmaybe "start-command" , remoteAnnexStopCommand = notempty $ getmaybe "stop-command" + , remoteAnnexAvailability = getmayberead "availability" , remoteAnnexSshOptions = getoptions "ssh-options" , remoteAnnexRsyncOptions = getoptions "rsync-options" -- cgit v1.2.3