Minor cleanup

src/Gargantext/API/Admin/Auth.hs

@@ -52,7 +52,7 @@ import Gargantext.API.Admin.Auth.Types
 import Gargantext.API.Admin.EnvTypes (GargJob(..), Env)
 import Gargantext.API.Admin.Orchestrator.Types (JobLog(..), AsyncJobs)
 import Gargantext.API.Admin.Types
-import Gargantext.API.Prelude (HasJoseError(..), joseError, HasServerError, GargServerC, GargServer, _ServerError, GargM, GargError (..), serverError)
+import Gargantext.API.Prelude (HasJoseError(..), joseError, HasServerError, GargServerC, GargServer, _ServerError, GargM, GargError (..))
 import Gargantext.Core.Mail (MailModel(..), mail)
 import Gargantext.Core.Mail.Types (mailSettings)
 import Gargantext.Core.Types.Individu (User(..), Username, GargPassword(..))
@@ -150,8 +150,6 @@ withAccessM (AuthenticatedUser uId) (PathNodeNode cId docId) m = do
   if True -- a && d
      then m
      else m -- serverError err401
-withAccessM (AuthenticatedUser uId) (PathNodeOwner id) m = do
-  if uId == id then m else serverError err401
 
 withAccess :: forall env err m api.
               (GargServerC env err m, HasServer api '[]) =>

src/Gargantext/API/Admin/Auth/Types.hs

@@ -107,10 +107,7 @@ instance Arbitrary AuthValid where
                        , u <-  [1..3]
                        ]
 
-data PathId = PathNode NodeId
-            | PathNodeNode ListId DocId
-            -- | The captured NodeId must be exactly equal to the logged-in user's NodeId.
-            | PathNodeOwner NodeId
+data PathId = PathNode NodeId | PathNodeNode ListId DocId
 
 
 ---------------------------

src/Gargantext/API/Auth/PolicyCheck.hs

@@ -79,6 +79,7 @@ data AccessCheck
   | AC_master_user      NodeId
     -- | Always grant access, effectively a public route.
   | AC_always_allow
+    -- | Always denies access.
   | AC_always_deny
   deriving (Show, Eq)
 

src/Gargantext/API/GraphQL/Node.hs

@@ -3,10 +3,9 @@
 
 module Gargantext.API.GraphQL.Node where
 
-import Control.Monad.Except (lift)
 import Data.Aeson
 import Data.Either (Either(..))
-import Data.Morpheus.Types ( GQLType )
+import Data.Morpheus.Types ( GQLType, lift )
 import Data.Text (Text)
 import GHC.Generics (Generic)
 import Gargantext.API.Admin.Auth.Types