Skip to content

H
haskell-gargantext
Commit e1836692 authored by Alexandre Delanoë's avatar Alexandre Delanoë
Browse files
Options

[Community] pairing function over (WIP tests)

parent 168d6ce6
Hide whitespace changes
Inline Side-by-side
Showing with 6 additions and 10 deletions
src/Gargantext/Database/Action/Flow/Pairing.hs
View file @ e1836692
...@@ -145,19 +145,15 @@ align mc ma md = fromListWith (<>) ...@@ -145,19 +145,15 @@ align mc ma md = fromListWith (<>)
Nothing -> Set.empty Nothing -> Set.empty
Just a -> a Just a -> a
fusion :: Map ContactName (Set ContactId) fusion :: Map ContactName (Set ContactId)
-> Map ContactName (Set DocId) -> Map ContactName (Set DocId)
-> Map ContactId (Set DocId) -> Map ContactId (Set DocId)
fusion _mc _md = undefined fusion mc md = Map.fromListWith (<>)
{- fromListWith (<>) $ catMaybes
$ catMaybes $ [ (,) <$> Just cId <*> Map.lookup cn md
$ map (\c -> case Map.lookup c mc of | (cn, setContactId) <- Map.toList mc
Nothing -> Nothing , cId <- Set.toList setContactId
Just x -> map (\ ]
$ toList mc
-}
------------------------------------------------------------------------ ------------------------------------------------------------------------
getNgramsContactId :: AnnuaireId getNgramsContactId :: AnnuaireId
......
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