From 434a8098037574ddd83e09bbf82a9d5b27181b8e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 2 Jan 2014 13:12:32 -0400 Subject: Remotes can now be made read-only, by setting remote..annex-readonly --- Types/GitConfig.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Types/GitConfig.hs') diff --git a/Types/GitConfig.hs b/Types/GitConfig.hs index afb40a795..fad5127ed 100644 --- a/Types/GitConfig.hs +++ b/Types/GitConfig.hs @@ -97,6 +97,7 @@ data RemoteGitConfig = RemoteGitConfig , remoteAnnexCostCommand :: Maybe String , remoteAnnexIgnore :: Bool , remoteAnnexSync :: Bool + , remoteAnnexReadOnly :: Bool , remoteAnnexTrustLevel :: Maybe String , remoteAnnexStartCommand :: Maybe String , remoteAnnexStopCommand :: Maybe String @@ -124,6 +125,7 @@ extractRemoteGitConfig r remotename = RemoteGitConfig , remoteAnnexCostCommand = notempty $ getmaybe "cost-command" , remoteAnnexIgnore = getbool "ignore" False , remoteAnnexSync = getbool "sync" True + , remoteAnnexReadOnly = getbool "readonly" False , remoteAnnexTrustLevel = notempty $ getmaybe "trustlevel" , remoteAnnexStartCommand = notempty $ getmaybe "start-command" , remoteAnnexStopCommand = notempty $ getmaybe "stop-command" -- cgit v1.2.3