Merge remote-tracking branch 'origin/513-dev-pin-tree' into dev-merge

9982ea80 · Alexandre Delanoë · c6497333 · 286c814e · 9982ea80
Commit 9982ea80 authored Apr 17, 2023 by Alexandre Delanoë
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

Tree.hs src/Gargantext/Database/Query/Tree.hs +4 -1

No files found.
--- a/src/Gargantext/Database/Query/Tree.hs
+++ b/src/Gargantext/Database/Query/Tree.hs
@@ -117,7 +117,10 @@ tree_advanced r nodeTypes = do
  -- printDebug (rPrefix "publicRoots") publicRoots
  sharedRoots <- findNodes r Shared  nodeTypes
  -- printDebug (rPrefix "sharedRoots") sharedRoots
-  toTree      $ toTreeParent (mainRoot <> sharedRoots <> publicRoots)
+  -- let ret = toSubtreeParent r (mainRoot <> sharedRoots <> publicRoots)
+  -- printDebug (rPrefix "treeParent") ret
+  -- toTree ret
+  toTree $ toSubtreeParent r (mainRoot <> sharedRoots <> publicRoots)

 -- | Fetch only first level of tree
 tree_first_level :: (HasTreeError err, HasNodeError err)