Merge remote-tracking branch 'origin/dev-hackathon-fixes' into dev
[gargantext.git] / src / Gargantext / Utils / Jobs / Settings.hs
index 490ad0297cc7edbbc74b0271869e58e90310f240..e50fd9f4e8e6016f9be2ff0bc4a5ae754c253571 100644 (file)
@@ -1,5 +1,8 @@
+{-# LANGUAGE TemplateHaskell     #-}
+
 module Gargantext.Utils.Jobs.Settings where
 
+import Control.Lens
 import Prelude
 
 import qualified Servant.Job.Core as SJ
@@ -12,3 +15,6 @@ data JobSettings = JobSettings
   , jsGcPeriod   :: Int -- in seconds, how long between each GC
   , jsSecretKey  :: SJ.SecretKey
   }
+
+makeLensesFor [ ("jsJobTimeout", "l_jsJobTimeout")
+              , ("jsIDTimeout", "l_jsIDTimeout")] ''JobSettings