[GQL] Do not erase types when comapring NodeIds

src/Gargantext/API/GraphQL/UserInfo.hs

@@ -47,7 +47,6 @@ import Gargantext.Prelude
 import GHC.Generics (Generic)
 import Gargantext.API.GraphQL.Utils (AuthStatus(Invalid, Valid), authUser)
 import Gargantext.API.Admin.Types (HasSettings)
-import Gargantext.Database.Admin.Types.Node (unNodeId)
 
 data UserInfo = UserInfo
   { ui_id             :: Int
@@ -152,7 +151,7 @@ updateUserInfo (UserInfoMArgs { ui_id, .. }) = do
     uh lens' (Just val) u_hyperdata = u_hyperdata & lens' .~ Just val
     uh' _ Nothing u_hyperdata = u_hyperdata
     uh' lens' (Just val) u_hyperdata = u_hyperdata & lens' .~ val
-    nId Node {_node_id} = unNodeId _node_id
+    nId Node {_node_id} = _node_id
 
 -- | Inner function to fetch the user from DB.
 dbUsers

src/Gargantext/API/GraphQL/Utils.hs

@@ -22,7 +22,7 @@ import Control.Lens.Getter (view)
 import Gargantext.Database.Prelude (Cmd')
 import Gargantext.API.Admin.Auth.Types (AuthenticatedUser (AuthenticatedUser, _authUser_id))
 import Data.ByteString (ByteString)
-import Gargantext.Database.Admin.Types.Node (unNodeId)
+import Gargantext.Database.Admin.Types.Node (NodeId)
 
 unPrefix :: T.Text -> GQLTypeOptions -> GQLTypeOptions
 unPrefix prefix options = options { fieldLabelModifier = nflm }
@@ -31,7 +31,7 @@ unPrefix prefix options = options { fieldLabelModifier = nflm }
 
 data AuthStatus = Valid | Invalid
 
-authUser :: (HasSettings env) => Int -> Text -> Cmd' env err AuthStatus
+authUser :: (HasSettings env) => NodeId -> Text -> Cmd' env err AuthStatus
 authUser ui_id token = do
   let token' = encodeUtf8 token
   jwtS <- view $ settings . jwtSettings
@@ -43,7 +43,7 @@ authUser ui_id token = do
         then pure Valid
         else pure Invalid
         where
-          nId AuthenticatedUser {_authUser_id} = unNodeId _authUser_id
+          nId AuthenticatedUser {_authUser_id} = _authUser_id
 
 getUserFromToken :: JWTSettings -> ByteString -> IO (Maybe AuthenticatedUser)
 getUserFromToken = verifyJWT