[FLOW] clean var

src/Gargantext/Core/Flow/Types.hs

@@ -39,7 +39,7 @@ instance UniqId HyperdataContact
 
 data DocumentIdWithNgrams a = DocumentIdWithNgrams
   { documentWithId  :: !(DocumentWithId a)
-  , document_ngrams :: !(Map Ngrams (Map NgramsType Int))
+  , documentNgrams :: !(Map Ngrams (Map NgramsType Int))
   } deriving (Show)
 
 data DocumentWithId a = DocumentWithId

src/Gargantext/Database/Action/Flow/List.hs

@@ -89,7 +89,7 @@ mapNodeIdNgrams = Map.unionsWith (Map.unionWith (Map.unionWith (+))) . fmap f
   where
     f :: DocumentIdWithNgrams a
       -> Map Ngrams (Map NgramsType (Map NodeId Int))
-    f d = fmap (fmap (Map.singleton nId)) $ document_ngrams d
+    f d = fmap (fmap (Map.singleton nId)) $ documentNgrams d
       where
         nId = documentId $ documentWithId d
 

src/Gargantext/Database/Action/Flow/Utils.hs

@@ -57,7 +57,7 @@ mapNodeIdNgrams :: Hyperdata a
 mapNodeIdNgrams ds = DM.map (DM.fromListWith (+)) $ DM.fromListWith (<>) xs
   where
     xs  = [(ng, [(nId, i)]) | (nId, n2i') <- n2i ds, (ng, i) <- DM.toList n2i']
-    n2i = map (\d -> ((documentId . documentWithId) d, document_ngrams d))
+    n2i = map (\d -> ((documentId . documentWithId) d, documentNgrams d))
 
 
 documentIdWithNgrams :: Hyperdata a
@@ -76,7 +76,7 @@ data DocumentWithId a =
 data DocumentIdWithNgrams a =
      DocumentIdWithNgrams
      { documentWithId  :: DocumentWithId a
-     , document_ngrams :: Map (NgramsT Ngrams) Int
+     , documentNgrams :: Map (NgramsT Ngrams) Int
      } deriving (Show)