[FIX] Graph node weight back.

src/Gargantext/Viz/Graph/API.hs

@@ -222,7 +222,7 @@ computeGraph cId nt repo = do
   let ngs = filterListWithRoot GraphTerm $ mapTermListRoot [lId] nt repo
 
   myCooc <- Map.filter (>1)
-         <$> getCoocByNgrams (Diagonal False)
+         <$> getCoocByNgrams (Diagonal True)
          <$> groupNodesByNgrams ngs
          <$> getNodesByNgramsOnlyUser cId (lIds <> [lId]) nt (Map.keys ngs)
 

src/Gargantext/Viz/Graph/Tools.hs

@@ -159,8 +159,12 @@ setCoord l labels m (n,node) = node { node_x_coord = x
     (x,y) = getCoord l labels m n
 
 
-getCoord :: Ord a => Layout
-                  -> [(a, Int)] -> Map (Int, Int) Double -> Int -> (Double, Double)
+getCoord :: Ord a
+         => Layout
+         -> [(a, Int)]
+         -> Map (Int, Int) Double
+         -> Int
+         -> (Double, Double)
 getCoord KamadaKawai _ _m _n = undefined -- layout m n
 
 getCoord ForceAtlas _ _ n = (sin d, cos d)