[tests] fix hspec test compilation issue

Also, use genericArbitrary in Instances, this simplifies things
parent a250518a
Pipeline #6990 passed with stages
in 72 minutes and 47 seconds
...@@ -738,6 +738,7 @@ common testDependencies ...@@ -738,6 +738,7 @@ common testDependencies
, fmt , fmt
, gargantext , gargantext
, gargantext-prelude , gargantext-prelude
, generic-arbitrary >= 1.0.1 && < 2
, graphviz ^>= 2999.20.1.0 , graphviz ^>= 2999.20.1.0
, haskell-bee , haskell-bee
, hspec ^>= 2.11.1 , hspec ^>= 2.11.1
......
...@@ -207,7 +207,7 @@ data PhyloSubConfigAPI = ...@@ -207,7 +207,7 @@ data PhyloSubConfigAPI =
, _sc_clique :: Cluster , _sc_clique :: Cluster
, _sc_exportFilter :: Double , _sc_exportFilter :: Double
, _sc_defaultMode :: Bool , _sc_defaultMode :: Bool
} deriving (Show,Generic,Eq) } deriving (Show, Generic, Eq)
subConfigAPI2config :: PhyloSubConfigAPI -> PhyloConfig subConfigAPI2config :: PhyloSubConfigAPI -> PhyloConfig
......
...@@ -25,7 +25,7 @@ import Control.Monad.STM (atomically) ...@@ -25,7 +25,7 @@ import Control.Monad.STM (atomically)
import Data.Aeson qualified as Aeson import Data.Aeson qualified as Aeson
import Data.Maybe (isJust) import Data.Maybe (isJust)
import Gargantext.Core.Notifications.Dispatcher.Types qualified as DT import Gargantext.Core.Notifications.Dispatcher.Types qualified as DT
import Gargantext.Core.Worker.Jobs (sendJobCfg) import Gargantext.Core.Worker.Jobs (sendJobWithCfg)
import Gargantext.Core.Worker.Jobs.Types (Job(Ping)) import Gargantext.Core.Worker.Jobs.Types (Job(Ping))
import Network.WebSockets qualified as WS import Network.WebSockets qualified as WS
import Prelude import Prelude
...@@ -61,7 +61,7 @@ tests = sequential $ aroundAll withTestDBAndPort $ do ...@@ -61,7 +61,7 @@ tests = sequential $ aroundAll withTestDBAndPort $ do
-- wait a bit to connect -- wait a bit to connect
threadDelay (500 * millisecond) threadDelay (500 * millisecond)
_ <- sendJobCfg cfg Ping _ <- sendJobWithCfg cfg Ping
mTimeout <- Timeout.timeout (5 * 1000000) $ do mTimeout <- Timeout.timeout (5 * 1000000) $ do
md <- atomically $ readTChan tchan md <- atomically $ readTChan tchan
......
This diff is collapsed.
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