Skip to content

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

[DOC] better name for type.é

parent 2abc5056
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
src/Gargantext/Database/Ngrams.hs
View file @ 70a01c91
...@@ -239,10 +239,10 @@ querySelectTableNgrams = [sql| ...@@ -239,10 +239,10 @@ querySelectTableNgrams = [sql|
type ListIdUser = Int type ListIdUser = Int
type ListIdMaster = Int type ListIdMaster = Int
type MapChildren = Map Text (Set Text) type MapToChildren = Map Text (Set Text)
type MapParent = Map Text (Set Text) type MapToParent = Map Text (Set Text)
getNgramsGroup :: DPS.Connection -> ListIdUser -> ListIdMaster -> IO (MapParent, MapChildren) getNgramsGroup :: DPS.Connection -> ListIdUser -> ListIdMaster -> IO (MapToParent, MapToChildren)
getNgramsGroup conn lu lm = do getNgramsGroup conn lu lm = do
groups <- getNgramsGroup' conn lu lm groups <- getNgramsGroup' conn lu lm
let mapChildren = fromListWith (<>) $ map (\(a,b) -> (a, DS.singleton b)) groups let mapChildren = fromListWith (<>) $ map (\(a,b) -> (a, DS.singleton b)) groups
......
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