chartData cId nt lt = do
ls' <- selectNodesWithUsername NodeList userMaster
ls <- map (_node_id) <$> getListsWithParentId cId
- ts <- mapTermListRoot ls nt <$> getRepo' ls
+ ts <- mapTermListRoot ls nt <$> getRepo ls
let
- dico = filterListWithRoot lt ts
+ dico = filterListWithRoot [lt] ts
terms = catMaybes $ List.concat $ map (\(a,b) -> [Just a, b]) $ HashMap.toList dico
group dico' x = case HashMap.lookup x dico' of
Nothing -> x
treeData cId nt lt = do
ls' <- selectNodesWithUsername NodeList userMaster
ls <- map (_node_id) <$> getListsWithParentId cId
- ts <- mapTermListRoot ls nt <$> getRepo' ls
+ ts <- mapTermListRoot ls nt <$> getRepo ls
let
- dico = filterListWithRoot lt ts
+ dico = filterListWithRoot [lt] ts
terms = catMaybes $ List.concat $ map (\(a,b) -> [Just a, b]) $ HashMap.toList dico
cs' <- getContextsByNgramsOnlyUser cId (ls' <> ls) nt terms