[graph] some more ngrams children work in graph

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

@@ -188,11 +188,11 @@ computeGraph cId d nt repo = do
   -- printDebug "myCooc" myCooc
   -- saveAsFileDebug "debug/my-cooc" myCooc
 
-  listNgrams <- getListNgrams [lId] NgramsTerms
+  listNgrams <- getListNgrams [lId] nt
 
   graph <- liftBase $ cooc2graphWith Spinglass d 0 myCooc
   -- saveAsFileDebug "debug/graph" graph
-  pure $ set graph_ngrams (Just listNgrams) graph
+  pure $ mergeGraphNgrams graph (Just listNgrams)
 
 
 defaultGraphMetadata :: HasNodeError err

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

@@ -207,8 +207,7 @@ data2graph :: ToComId a
            -> Graph
 data2graph labels coocs bridge conf partitions = Graph { _graph_nodes = nodes
                                                        , _graph_edges = edges
-                                                       , _graph_metadata = Nothing
-                                                       , _graph_ngrams = Nothing }
+                                                       , _graph_metadata = Nothing }
   where
 
     community_id_by_node_id = Map.fromList $ map nodeId2comId partitions
@@ -222,7 +221,8 @@ data2graph labels coocs bridge conf partitions = Graph { _graph_nodes = nodes
                      , node_y_coord = 0
                      , node_attributes =
                        Attributes { clust_default = maybe 0 identity
-                                (Map.lookup n community_id_by_node_id) } }
+                                    (Map.lookup n community_id_by_node_id) }
+                     , node_children = [] }
                )
             | (l, n) <- labels
             , Set.member n $ Set.fromList