[FIX] Label issue (for tests)

gargantext.cabal

@@ -5,7 +5,7 @@ cabal-version: 1.12
 -- see: https://github.com/sol/hpack
 
 name:           gargantext
-version: 0.0.5.8.9.8
+version:        0.0.5.8.9.8
 synopsis:       Search, map, share
 description:    Please see README.md
 category:       Data

src/Gargantext/Core/Methods/Matrix/Accelerate/Utils.hs

@@ -31,7 +31,7 @@ module Gargantext.Core.Methods.Matrix.Accelerate.Utils
   where
 
 import qualified Data.Foldable as P (foldl1)
-import Debug.Trace (trace)
+-- import Debug.Trace (trace)
 import Data.Array.Accelerate
 import Data.Array.Accelerate.Interpreter (run)
 import qualified Gargantext.Prelude as P
@@ -306,7 +306,7 @@ sumRowMin n m = {-trace (P.show $ run m') $-} m'
        $ P.map (\z -> sumRowMin1 n (constant z) m) [0..n-1]
 
 sumRowMin1 :: (Num a, Ord a) => Dim -> Exp Int -> Acc (Matrix a) -> Acc (Vector a)
-sumRowMin1 n x m = trace (P.show (run m,run $ transpose m)) $ m''
+sumRowMin1 n x m = {-trace (P.show (run m,run $ transpose m)) $-} m''
   where
     m'' = sum $ zipWith min (transpose m) m
     _m'  = zipWith (*) (zipWith (*) (nullOf n (MatCol x)) $ nullOfWithDiag n (MatRow x)) m

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

@@ -182,14 +182,13 @@ computeGraph cId method d nt repo = do
          <$> groupNodesByNgrams ngs
          <$> getContextsByNgramsOnlyUser cId (lIds <> [lId]) nt (HashMap.keys ngs)
 
-  listNgrams <- getListNgrams [lId] nt
-
   graph <- liftBase $ cooc2graphWith method d 0 myCooc
 
-  let graph' = mergeGraphNgrams graph (Just listNgrams)
+  -- listNgrams <- getListNgrams [lId] nt
+  --let graph' = mergeGraphNgrams graph (Just listNgrams)
   -- saveAsFileDebug "/tmp/graphWithNodes" graph'
 
-  pure graph'
+  pure graph
 
 
 defaultGraphMetadata :: HasNodeError err