[DOC] better name for type.é

src/Gargantext/Database/Ngrams.hs

@@ -239,10 +239,10 @@ querySelectTableNgrams = [sql|
 type ListIdUser   = Int
 type ListIdMaster = Int
 
-type MapChildren = Map Text (Set Text)
-type MapParent   = Map Text (Set Text)
+type MapToChildren = 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
   groups <- getNgramsGroup' conn lu lm
   let mapChildren = fromListWith (<>) $ map (\(a,b) -> (a, DS.singleton b)) groups