Skip to content

haskell-gargantext
haskell-gargantext
Verified Commit 69d97371 authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
1 Browse files
Options

[test] fix refactorings in tests

parent fd814407
Pipeline #6590 canceled with stages
          in 528 minutes and 9 seconds
          Show whitespace changes
          Inline Side-by-side
          Showing with 3 additions and 3 deletions
          test/Test/API/Setup.hs
          View file @ 69d97371
          ......@@ -22,7 +22,7 @@ import Gargantext.Core.AsyncUpdates.Dispatcher.Types qualified as DT
          import Gargantext.Core.Config
          import Gargantext.Core.Config.Mail qualified as Mail
          import Gargantext.Core.Config.NLP qualified as NLP
          import Gargantext.Core.Config.Types (SettingsFile(..))
          import Gargantext.Core.Config.Types (SettingsFile(..), jc_js_job_timeout, jc_js_id_timeout)
          import Gargantext.Core.Config.Utils (readConfig)
          import Gargantext.Core.NLP
          import Gargantext.Core.NodeStory
          ......@@ -75,8 +75,8 @@ newTestEnv testEnv logger port = do
          secret <- Jobs.genSecret
          let jobs_settings = (Jobs.defaultJobSettings 1 secret)
          & Jobs.l_jsJobTimeout .~ (fromIntegral $ config_env ^. hasConfig ^. gc_js_job_timeout)
          & Jobs.l_jsIDTimeout .~ (fromIntegral $ config_env ^. hasConfig ^. gc_js_id_timeout)
          & Jobs.l_jsJobTimeout .~ (fromIntegral $ config_env ^. hasConfig ^. gc_jobs . jc_js_job_timeout)
          & Jobs.l_jsIDTimeout .~ (fromIntegral $ config_env ^. hasConfig ^. gc_jobs . jc_js_id_timeout)
          !jobs_env <- Jobs.newJobEnv jobs_settings prios' manager_env
          -- !central_exchange <- forkIO CE.gServer
          ......
          Markdown is supported
          0% or
          You are about to add 0 people to the discussion. Proceed with caution.
          Finish editing this message first!
          Please register or to comment