aboutsummaryrefslogtreecommitdiff
path: root/Types/GitConfig.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-01-02 13:12:32 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-01-02 13:12:32 -0400
commit434a8098037574ddd83e09bbf82a9d5b27181b8e (patch)
tree978ab0f48be492e06939e168cbc2392c4ae91b92 /Types/GitConfig.hs
parent94043b612888a0555f630669c6391cb75842b6ea (diff)
Remotes can now be made read-only, by setting remote.<name>.annex-readonly
Diffstat (limited to 'Types/GitConfig.hs')
-rw-r--r--Types/GitConfig.hs2
1 files changed, 2 insertions, 0 deletions
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"