fix arbitrary instance

2925d008 · Christian Merten · e8fb3db6 · 2925d008
Unverified Commit 2925d008 authored Oct 08, 2024 by Christian Merten
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 1 deletion

Types.hs src/Gargantext/API/Node/Update/Types.hs +9 -1

No files found.
--- a/src/Gargantext/API/Node/Update/Types.hs
+++ b/src/Gargantext/API/Node/Update/Types.hs
@@ -95,6 +95,14 @@ instance FromJSON UpdateNodeConfigGraph
 instance ToJSON UpdateNodeConfigGraph
 instance ToSchema UpdateNodeConfigGraph
 instance Arbitrary UpdateNodeConfigGraph where
-  arbitrary = errorTrace "hi"
+  arbitrary = do
+    methodGraphMetric        <- arbitrary
+    methodGraphClustering    <- arbitrary
+    methodGraphBridgeness    <- arbitrary
+    methodGraphEdgesStrength <- arbitrary
+    methodGraphNodeType1     <- arbitrary
+    methodGraphNodeType2     <- arbitrary
+    return $ UpdateNodeConfigGraph methodGraphMetric methodGraphClustering methodGraphBridgeness
+        methodGraphEdgesStrength methodGraphNodeType1 methodGraphNodeType2

 ------------------------------------------------------------------------