[GRAPH][COOC] Database mainly.

src/Gargantext/Text/Metrics/Count.hs

@@ -121,6 +121,7 @@ coocOn' fun ts = DMS.fromListWith (+) xs
            , x >= y
            ]
 
+
 ------------------------------------------------------------------------
 
 coocOnContexts :: (a -> [Text]) -> [[a]] -> Map ([Text], [Text]) Int

src/Gargantext/Viz/Graph.hs

@@ -59,8 +59,8 @@ $(deriveJSON (unPrefix "") ''Attributes)
 instance ToSchema Attributes
 
 data Node = Node { node_size  :: Int
-                 , node_type  :: TypeNode
-                 , node_id    :: Text
+                 , node_type  :: TypeNode -- TODO NgramsType | Person
+                 , node_id    :: Text     -- TODO NgramId
                  , node_label :: Text
                  , node_attributes :: Attributes
                  }