Merge remote-tracking branch 'origin/adinapoli/issue-273' into dev

src/Gargantext/API/GraphQL/Node.hs

@@ -56,7 +56,9 @@ resolveNodes
   -> NodeArgs
   -> GqlM e env [Node]
 resolveNodes autUser mgr NodeArgs { node_id } =
-  withPolicy autUser mgr (nodeChecks (NodeId node_id)) $ dbNodes node_id
+  -- FIXME(adn) We should have a way to enforce the access policy on
+  -- the public or public folders, instead of using 'alwaysAllow'.
+  withPolicy autUser mgr alwaysAllow $ dbNodes node_id
 
 resolveNodesCorpus
   :: (CmdCommon env)

src/Gargantext/API/GraphQL/TreeFirstLevel.hs

@@ -60,7 +60,9 @@ resolveTree :: (CmdCommon env)
             -> TreeArgs
             -> GqlM e env (TreeFirstLevel (GqlM e env))
 resolveTree autUser mgr TreeArgs { root_id } =
-  withPolicy autUser mgr (nodeChecks (NodeId root_id)) $ dbTree root_id
+  -- FIXME(adn) We should have a way to enforce the access policy on
+  -- the public or public folders, instead of using 'alwaysAllow'.
+  withPolicy autUser mgr alwaysAllow $ dbTree root_id
 
 dbTree :: (CmdCommon env) =>
           Int -> GqlM e env (TreeFirstLevel (GqlM e env))

src/Gargantext/API/GraphQL/UserInfo.hs

@@ -49,7 +49,6 @@ import Gargantext.API.GraphQL.Types
 import Gargantext.API.Admin.Auth.Types hiding (Valid)
 import Gargantext.API.Auth.PolicyCheck
 import Gargantext.API.GraphQL.PolicyCheck
--- import Gargantext.Database.Admin.Types.Node
 
 data UserInfo = UserInfo
   { ui_id             :: Int