Add an `InvalidNodeType` constructor to the `NodeError` type

This aims to deal with cases where the `typename` field of the `nodes` table
does not correspond to a valid node type.
The new constructor has an Integer field to indicate what the stored
invalid type name ID was.
The related machinery was updated accordingly.

src/Gargantext/API/Errors.hs

@@ -127,6 +127,8 @@ jobErrorToFrontendError = \case
 
 nodeErrorToFrontendError :: NodeError -> FrontendError
 nodeErrorToFrontendError ne = case ne of
+  InvalidNodeType typeId
+    -> mkFrontendErrShow $ FE_invalid_node_type typeId
   NoListFound lid
     -> mkFrontendErrShow $ FE_node_list_not_found lid
   NoRootFound

src/Gargantext/API/Errors/Types.hs

@@ -177,6 +177,10 @@ $(deriveIsFrontendErrorData ''BackendErrorCode)
 
 data NoFrontendErrorData = NoFrontendErrorData
 
+newtype instance ToFrontendErrorData 'EC_404__invalid_node_type =
+  FE_invalid_node_type { int_nodetype_id :: Int }
+  deriving (Show, Eq, Generic)
+
 newtype instance ToFrontendErrorData 'EC_404__node_list_not_found =
   FE_node_list_not_found { lnf_list_id :: ListId }
   deriving (Show, Eq, Generic)
@@ -337,6 +341,14 @@ data instance ToFrontendErrorData 'EC_405__not_allowed =
 -- payload, we can render it to JSON and parse it back.
 ----------------------------------------------------------------------------
 
+instance ToJSON (ToFrontendErrorData 'EC_404__invalid_node_type) where
+  toJSON (FE_invalid_node_type nodetypeId) =
+    object [ "nodetype_id" .= toJSON nodetypeId ]
+instance FromJSON (ToFrontendErrorData 'EC_404__invalid_node_type) where
+  parseJSON = withObject "FE_invalid_node_type" $ \o -> do
+    nodetypeId <- o .: "nodetype_id"
+    pure $ FE_invalid_node_type nodetypeId
+
 instance ToJSON (ToFrontendErrorData 'EC_404__node_list_not_found) where
   toJSON (FE_node_list_not_found lid) =
     object [ "list_id" .= toJSON lid ]
@@ -587,6 +599,8 @@ genFrontendErr be = do
   case be of
 
     -- node errors
+    EC_404__invalid_node_type
+      -> arbitrary >>= \nodetypeId -> pure $ mkFrontendErr' txt $ FE_invalid_node_type nodetypeId
     EC_404__node_list_not_found
       -> arbitrary >>= \lid -> pure $ mkFrontendErr' txt $ FE_node_list_not_found lid
     EC_404__node_root_not_found
@@ -711,6 +725,9 @@ instance FromJSON FrontendError where
     (fe_diagnostic :: T.Text)      <- o .: "diagnostic"
     (fe_type :: BackendErrorCode)  <- o .: "type"
     case fe_type of
+      EC_404__invalid_node_type           -> do
+        (fe_data :: ToFrontendErrorData 'EC_404__invalid_node_type) <- o .: "data"
+        pure FrontendError{..}
       EC_404__node_list_not_found         -> do
         (fe_data :: ToFrontendErrorData 'EC_404__node_list_not_found) <- o .: "data"
         pure FrontendError{..}

src/Gargantext/API/Errors/Types/Backend.hs

@@ -16,7 +16,8 @@ import Prelude
 data BackendErrorCode
   =
   -- node errors
-    EC_404__node_list_not_found
+    EC_404__invalid_node_type
+  | EC_404__node_list_not_found
   | EC_404__node_root_not_found
   | EC_404__node_lookup_failed_not_found
   | EC_404__node_lookup_failed_parent_not_found

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

@@ -70,7 +70,8 @@ renderNodeLookupFailed = \case
   UserHasTooManyRoots uid roots -> "user with id " <> T.pack (show uid) <> " has too many roots: [" <> T.intercalate "," (map (T.pack . show) roots)
 
 ------------------------------------------------------------------------
-data NodeError = NoListFound ListId
+data NodeError = InvalidNodeType Int
+               | NoListFound ListId
                | NoRootFound
                | NoCorpusFound
                | NodeCreationFailed NodeCreationError
@@ -84,6 +85,7 @@ data NodeError = NoListFound ListId
 
 instance Prelude.Show NodeError
   where
+    show (InvalidNodeType id) = "Invalid node type ID: " <> show id
     show (NoListFound {})   = "No list found"
     show NoRootFound   = "No root found"
     show NoCorpusFound = "No corpus found"