summaryrefslogtreecommitdiff
path: root/Types
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-01-27 22:43:05 +1100
committerGravatar Joey Hess <joey@kitenet.net>2013-01-27 22:43:05 +1100
commit9a58cbabc8fb30b181da48191a87ba6520e0fb0c (patch)
treeb64107b98ecc0d779291cad90fada13d0f6f4bf6 /Types
parent3bd8fba2db932b7730ba497d60030db6ee6f6405 (diff)
annex.autocommit
New setting, can be used to disable autocommit of changed files by the assistant, while it still does data syncing and other tasks. Also wired into webapp UI
Diffstat (limited to 'Types')
-rw-r--r--Types/GitConfig.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/Types/GitConfig.hs b/Types/GitConfig.hs
index f93ef1529..30214bc29 100644
--- a/Types/GitConfig.hs
+++ b/Types/GitConfig.hs
@@ -33,6 +33,7 @@ data GitConfig = GitConfig
, annexDelayAdd :: Maybe Int
, annexHttpHeaders :: [String]
, annexHttpHeadersCommand :: Maybe String
+ , annexAutoCommit :: Bool
}
extractGitConfig :: Git.Repo -> GitConfig
@@ -51,6 +52,7 @@ extractGitConfig r = GitConfig
, annexDelayAdd = getmayberead "delayadd"
, annexHttpHeaders = getlist "http-headers"
, annexHttpHeadersCommand = getmaybe "http-headers-command"
+ , annexAutoCommit = getbool "autocommit" True
}
where
get k def = fromMaybe def $ getmayberead k