[test] fix tests

src-test/Graph/Distance.hs

@@ -16,7 +16,8 @@ commentary with @some markup@.
 module Graph.Distance where
 
 import Test.Hspec
-import Gargantext.Viz.Graph.Distances.Matrice
+
+import Gargantext.Core.Methods.Matrix.Accelerate.Utils (cross', matrix)
 import Gargantext.Prelude
 
 test :: IO ()

src-test/Parsers/Date.hs

@@ -28,7 +28,7 @@ import Duckling.Time.Types (toRFC3339)
 
 -----------------------------------------------------------
 import Gargantext.Prelude
-import Gargantext.Text.Corpus.Parsers.Date.Parsec (fromRFC3339)
+import Gargantext.Core.Text.Corpus.Parsers.Date.Parsec (fromRFC3339)
 import Parsers.Types
 -----------------------------------------------------------
 

src-test/Utils/Crypto.hs

@@ -14,7 +14,9 @@ module Utils.Crypto where
 
 import Data.Text (Text)
 import Test.Hspec
+
 import Gargantext.Prelude
+import Gargantext.Prelude.Crypto.Hash
 import Gargantext.Prelude.Utils
 
 -- | Crypto Hash tests

src/Gargantext/Core/Viz/Graph/Tools.hs

@@ -69,6 +69,7 @@ cooc2graph' distance threshold myCooc
 
 data PartitionMethod = Louvain | Spinglass
 
+-- | coocurrences graph computation
 cooc2graphWith :: PartitionMethod
                -> Distance
                -> Threshold
@@ -134,14 +135,14 @@ cooc2graphWith' doPartitions distance threshold myCooc = do
 
     similarities = measure distance matCooc
     links = round (let n :: Double = fromIntegral tiSize in n * log n)
-    distanceMap  = Map.fromList
-                 $ List.take links
-                 $ List.sortOn snd
-                 $ Map.toList
-                 $ case distance of
-                     Conditional    -> Map.filter (> threshold)
-                     Distributional -> Map.filter (> 0)
-                 $ mat2map similarities
+    distanceMap = Map.fromList
+                $ List.take links
+                $ List.sortOn snd
+                $ Map.toList
+                $ case distance of
+                    Conditional    -> Map.filter (> threshold)
+                    Distributional -> Map.filter (> 0)
+                $ mat2map similarities
 
     nodesApprox :: Int
     nodesApprox = n'