Merge remote-tracking branch 'origin/452-dev-teams-security' into dev-merge

src/Gargantext/API/GraphQL/TreeFirstLevel.hs

@@ -78,13 +78,17 @@ childrenToTreeNodes (TreeN {_tn_node}, rId) = toTreeNode (Just rId) _tn_node
 resolveParent :: (HasConnectionPool env, HasConfig env, HasMail env) => Maybe NodeId -> GqlM e env (Maybe TreeNode)
 resolveParent (Just pId) = do
   node <- lift $ getNode pId
-  pure $ Just $ nodeToTreeNode node
+  pure $ nodeToTreeNode node
 resolveParent Nothing = pure Nothing
 
 
-nodeToTreeNode :: NN.Node json -> TreeNode
-nodeToTreeNode N.Node {..} = TreeNode { id        = NN.unNodeId _node_id
-                                      , name      = _node_name
-                                      , node_type = fromNodeTypeId _node_typename
-                                      , parent_id = NN.unNodeId <$> _node_parent_id
-                                      }
+nodeToTreeNode :: NN.Node json -> Maybe TreeNode
+nodeToTreeNode N.Node {..} = if (fromNodeTypeId _node_typename /= NN.NodeFolderShared) && (fromNodeTypeId _node_typename /= NN.NodeTeam) 
+                             then 
+                             Just TreeNode { id        = NN.unNodeId _node_id
+                                           , name      = _node_name
+                                           , node_type = fromNodeTypeId _node_typename
+                                           , parent_id = NN.unNodeId <$> _node_parent_id
+                                           }
+                             else
+                             Nothing