git-annex-10.20260213: Types/Concurrency.hs

{- Copyright 2016-2026 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU AGPL version 3 or higher.
 -}

module Types.Concurrency where

import Utility.PartialPrelude

-- Note that Concurrent 1 is not the same as NonConcurrent;
-- the former specifies 1 job of each particular kind, but there can be
-- more than one kind of job running concurrently.
data Concurrency = NonConcurrent | Concurrent Int | ConcurrentPerCpu
	deriving (Eq)

parseConcurrency :: String -> Maybe Concurrency
parseConcurrency "cpus" = Just ConcurrentPerCpu
parseConcurrency "cpu" = Just ConcurrentPerCpu
parseConcurrency s = Concurrent <$> readish s

-- Concurrency can be configured at the command line or by git config.
data ConcurrencySetting
	= ConcurrencyCmdLine Concurrency
	| ConcurrencyGitConfig Concurrency
	deriving (Eq)

newtype Cpus = Cpus Int
	deriving (Eq)

parseCpus :: String -> Maybe Cpus
parseCpus s = Cpus <$> readish s