[Tree] Changes for pinning

286c814e · Karen Konou · 33881047 · 286c814e
Commit 286c814e authored Apr 17, 2023 by Karen Konou
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)