Fix haddock parse error
[gargantext.git] / src / Gargantext / Core / Viz / Chart.hs
index df78f58b0ea9307ea6266f2286a41b1caf9638d5..365f047fa4bc5f490931cdbb6cd44edfd61312a7 100644 (file)
@@ -59,9 +59,9 @@ chartData :: FlowCmdM env err m
 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
@@ -83,10 +83,10 @@ treeData :: FlowCmdM env err m
 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