Commit d912a0ad authored by Alexandre Delanoë's avatar Alexandre Delanoë

[FLOW] clean var

parent 8426629a
......@@ -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
......
......@@ -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
......
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment