[ERROR] Fix NodeUser error.

src/Gargantext/Database/Flow.hs

@@ -141,7 +141,7 @@ subFlowCorpus username cName = do
   maybeUserId <- getUser username
 
   userId <- case maybeUserId of
-        Nothing   -> nodeError NoUser
+        Nothing   -> nodeError NoUserFound
         -- mk NodeUser gargantua_id "Node Gargantua"
         Just user -> pure $ userLight_id user
 
@@ -177,7 +177,7 @@ subFlowAnnuaire username _cName = do
   maybeUserId <- getUser username
 
   userId <- case maybeUserId of
-        Nothing   -> nodeError NoUser
+        Nothing   -> nodeError NoUserFound
         -- mk NodeUser gargantua_id "Node Gargantua"
         Just user -> pure $ userLight_id user
 

src/Gargantext/Database/Schema/Node.hs

@@ -53,13 +53,13 @@ import Prelude hiding (null, id, map, sum)
 data NodeError = NoListFound
                | NoRootFound
                | NoCorpusFound
+               | NoUserFound
                | MkNode
                | UserNoParent
                | HasParent
                | ManyParents
                | NegativeId
                | NotImplYet
-               | NoUser
                | ManyNodeUsers
   deriving (Show)