src/Gargantext/Utils/Jobs/Settings.hs

   1 module Gargantext.Utils.Jobs.Settings where
   2
   3 import Prelude
   4
   5 import qualified Servant.Job.Core as SJ
   6
   7 -- | A few control knobs for the job system.
   8 data JobSettings = JobSettings
   9   { jsNumRunners :: Int
  10   , jsJobTimeout :: Int -- in seconds. TODO: timeout per job type? Map t Int
  11   , jsIDTimeout  :: Int -- in seconds, how long a job ID is valid
  12   , jsGcPeriod   :: Int -- in seconds, how long between each GC
  13   , jsSecretKey  :: SJ.SecretKey
  14   }