Remove NoUserFound error constructor

src/Gargantext/API/Errors.hs

@@ -128,8 +128,6 @@ nodeErrorToFrontendError ne = case ne of
     -> mkFrontendErrShow FE_node_root_not_found
   NoCorpusFound
     -> mkFrontendErrShow FE_node_corpus_not_found
-  NoUserFound _ur
-    -> undefined
   NodeCreationFailed reason
     -> case reason of
          UserParentAlreadyExists pId uId
@@ -175,7 +173,6 @@ showAsServantJSONErr :: BackendInternalError -> ServerError
 showAsServantJSONErr (InternalNodeError err@(NoListFound {}))  = err404 { errBody = JSON.encode err }
 showAsServantJSONErr (InternalNodeError err@NoRootFound{})     = err404 { errBody = JSON.encode err }
 showAsServantJSONErr (InternalNodeError err@NoCorpusFound)     = err404 { errBody = JSON.encode err }
-showAsServantJSONErr (InternalNodeError err@NoUserFound{})     = err404 { errBody = JSON.encode err }
 showAsServantJSONErr (InternalNodeError err@(DoesNotExist {})) = err404 { errBody = JSON.encode err }
 showAsServantJSONErr (InternalServerError err)                 = err
 showAsServantJSONErr a                                         = err500 { errBody = JSON.encode a }

src/Gargantext/Database/Query/Table/Node/Error.hs

@@ -73,7 +73,6 @@ renderNodeLookupFailed = \case
 data NodeError = NoListFound ListId
                | NoRootFound
                | NoCorpusFound
-               | NoUserFound User
                | NodeCreationFailed NodeCreationError
                | NodeLookupFailed   NodeLookupError
                | NotImplYet
@@ -88,7 +87,6 @@ instance Prelude.Show NodeError
     show (NoListFound {})   = "No list found"
     show NoRootFound   = "No root found"
     show NoCorpusFound = "No corpus found"
-    show (NoUserFound ur) = "User(" <> T.unpack (renderUser ur) <> ") not found"
 
     show (NodeCreationFailed reason) = "Cannot make node due to: " <> T.unpack (renderNodeCreationFailed reason)
     show NotImplYet    = "Not implemented yet"
@@ -108,9 +106,6 @@ instance ToJSON NodeError where
   toJSON (NodeError e) =
     object [ ( "error", "Node error" )
            , ( "exception", toJSON $ T.pack $ show e ) ]
-  toJSON (NoUserFound ur) =
-    object [ ( "error", "No user found" )
-           , ( "user", toJSON ur ) ]
   toJSON (NodeCreationFailed reason) =
     object [ ( "error", "Node creation failed" )
            , ( "reason", toJSON reason ) ]