[FIX] Order 1 and Order 2, node size ok.
[gargantext.git] / src / Gargantext / Database / Query / Tree.hs
index 6161e84e142f8b758ad2579aed434ae5a6b74e88..522458bf38ec735304076d61ee167439fc44d17a 100644 (file)
@@ -133,7 +133,7 @@ tree_first_level r nodeTypes = do
   --                         , s ]
   mainRoot    <- findNodes r Private nodeTypes
   -- printDebug (rPrefix "mainRoot") mainRoot
-  publicRoots <- findNodes r Public  nodeTypes
+  publicRoots <- findNodes r PublicDirect  nodeTypes
   -- printDebug (rPrefix "publicRoots") publicRoots
   sharedRoots <- findNodes r SharedDirect  nodeTypes
   -- printDebug (rPrefix "sharedRoots") sharedRoots
@@ -142,7 +142,7 @@ tree_first_level r nodeTypes = do
   pure ret
 
 ------------------------------------------------------------------------
-data NodeMode = Private | Shared | Public | SharedDirect
+data NodeMode = Private | Shared | Public | SharedDirect | PublicDirect
 
 findNodes :: (HasTreeError err, HasNodeError err)
           => RootId
@@ -153,6 +153,7 @@ findNodes r Private nt       = dbTree r nt
 findNodes r Shared  nt       = findShared r NodeFolderShared nt sharedTreeUpdate
 findNodes r SharedDirect  nt = findSharedDirect r NodeFolderShared nt sharedTreeUpdate
 findNodes r Public  nt       = findShared r NodeFolderPublic nt publicTreeUpdate
+findNodes r PublicDirect  nt = findSharedDirect r NodeFolderPublic nt publicTreeUpdate
 
 ------------------------------------------------------------------------
 -- | Collaborative Nodes in the Tree
@@ -181,7 +182,7 @@ findSharedDirect r nt nts fun = do
   --                         , " "
   --                         , s ]
   parent <- getNodeWith r (Proxy :: Proxy HyperdataAny)
-  let mParent = _node_parentId parent
+  let mParent = _node_parent_id parent
   case mParent of
     Nothing -> pure []
     Just parentId -> do
@@ -255,7 +256,7 @@ toTree m =
                 -> Tree NodeTree
         toTree' m' root =
           TreeN (toNodeTree root) $
-            -- Lines below are equivalent computationally but not semantically
+            -- Lines below are equivalent computationally but not semantically
             -- m' ^.. at (Just $ _dt_nodeId root) . _Just . each . to (toTree' m')
             toListOf (at (Just $ _dt_nodeId root) . _Just . each . to (toTree' m')) m'