annex.jobs
Added annex.jobs setting, which is like using the -J option. Of course, -J overrides annex.jobs. This commit was sponsored by Trenton Cronholm on Patreon.
This commit is contained in:
parent
585e6b39aa
commit
6ba3dea566
6 changed files with 46 additions and 17 deletions
|
@ -26,6 +26,7 @@ import Config.Cost
|
|||
import Types.UUID
|
||||
import Types.Distribution
|
||||
import Types.Availability
|
||||
import Types.Concurrency
|
||||
import Types.NumCopies
|
||||
import Types.Difference
|
||||
import Types.RefSpec
|
||||
|
@ -99,6 +100,7 @@ data GitConfig = GitConfig
|
|||
, annexAllowedHttpAddresses :: String
|
||||
, annexAllowUnverifiedDownloads :: Bool
|
||||
, annexMaxExtensionLength :: Maybe Int
|
||||
, annexJobs :: Concurrency
|
||||
, coreSymlinks :: Bool
|
||||
, coreSharedRepository :: SharedRepository
|
||||
, receiveDenyCurrentBranch :: DenyCurrentBranch
|
||||
|
@ -173,6 +175,7 @@ extractGitConfig r = GitConfig
|
|||
, annexAllowUnverifiedDownloads = (== Just "ACKTHPPT") $
|
||||
getmaybe (annex "security.allow-unverified-downloads")
|
||||
, annexMaxExtensionLength = getmayberead (annex "maxextensionlength")
|
||||
, annexJobs = maybe NonConcurrent Concurrent $ getmayberead (annex "jobs")
|
||||
, coreSymlinks = getbool "core.symlinks" True
|
||||
, coreSharedRepository = getSharedRepository r
|
||||
, receiveDenyCurrentBranch = getDenyCurrentBranch r
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue