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
          Hide 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 ...@@ -22,7 +22,7 @@ import Gargantext.Core.AsyncUpdates.Dispatcher.Types qualified as DT
          import Gargantext.Core.Config import Gargantext.Core.Config
          import Gargantext.Core.Config.Mail qualified as Mail import Gargantext.Core.Config.Mail qualified as Mail
          import Gargantext.Core.Config.NLP qualified as NLP 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.Config.Utils (readConfig)
          import Gargantext.Core.NLP import Gargantext.Core.NLP
          import Gargantext.Core.NodeStory import Gargantext.Core.NodeStory
          ...@@ -75,8 +75,8 @@ newTestEnv testEnv logger port = do ...@@ -75,8 +75,8 @@ newTestEnv testEnv logger port = do
          secret <- Jobs.genSecret secret <- Jobs.genSecret
          let jobs_settings = (Jobs.defaultJobSettings 1 secret) let jobs_settings = (Jobs.defaultJobSettings 1 secret)
          & Jobs.l_jsJobTimeout .~ (fromIntegral $ config_env ^. hasConfig ^. gc_js_job_timeout) & Jobs.l_jsJobTimeout .~ (fromIntegral $ config_env ^. hasConfig ^. gc_jobs . jc_js_job_timeout)
          & Jobs.l_jsIDTimeout .~ (fromIntegral $ config_env ^. hasConfig ^. gc_js_id_timeout) & Jobs.l_jsIDTimeout .~ (fromIntegral $ config_env ^. hasConfig ^. gc_jobs . jc_js_id_timeout)
          !jobs_env <- Jobs.newJobEnv jobs_settings prios' manager_env !jobs_env <- Jobs.newJobEnv jobs_settings prios' manager_env
          -- !central_exchange <- forkIO CE.gServer -- !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