diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-01-27 22:43:05 +1100 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-01-27 22:43:05 +1100 |
| commit | 9a58cbabc8fb30b181da48191a87ba6520e0fb0c (patch) | |
| tree | b64107b98ecc0d779291cad90fada13d0f6f4bf6 /Types/GitConfig.hs | |
| parent | 3bd8fba2db932b7730ba497d60030db6ee6f6405 (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/GitConfig.hs')
| -rw-r--r-- | Types/GitConfig.hs | 2 |
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 |