[FIX] var names

src/Gargantext/Components/Node.purs

@@ -25,8 +25,8 @@ instance decodeNodePoly :: (DecodeJson a)
     obj <- decodeJson json
     id        <- obj .: "id"
     typename  <- obj .: "typename"
-    userId    <- obj .: "userId"
-    parentId  <- obj .: "parentId"
+    userId    <- obj .: "user_id"
+    parentId  <- obj .: "parent_id"
     name      <- obj .: "name"
     date      <- obj .: "date"
 

src/Gargantext/Components/Nodes/Annuaire.purs

@@ -269,8 +269,8 @@ instance decodeAnnuaireInfo :: DecodeJson AnnuaireInfo where
     obj <- decodeJson json
     id        <- obj .: "id"
     typename  <- obj .: "typename"
-    userId    <- obj .: "userId"
-    parentId  <- obj .: "parentId"
+    userId    <- obj .: "user_id"
+    parentId  <- obj .: "parent_id"
     name      <- obj .: "name"
     date      <- obj .: "date"
     hyperdata <- obj .: "hyperdata"

src/Gargantext/Components/Nodes/Annuaire/User/Contacts/Types.purs

@@ -34,9 +34,9 @@ instance decodeNodeContact :: DecodeJson NodeContact where
     hyperdata <- obj .: "hyperdata"
     id        <- obj .: "id"
     name      <- obj .:! "name"
-    parentId  <- obj .?| "parentId"
+    parentId  <- obj .?| "parent_id"
     typename  <- obj .?| "typename"
-    userId    <- obj .:! "userId"
+    userId    <- obj .:! "user_id"
 
     pure $ NodeContact { id
                    , date
@@ -70,9 +70,9 @@ instance decodeContact' :: DecodeJson Contact' where
     hyperdata <- obj .: "hyperdata"
     id        <- obj .: "id"
     name      <- obj .:! "name"
-    parentId  <- obj .?| "parentId"
+    parentId  <- obj .?| "parent_id"
     typename  <- obj .?| "typename"
-    userId    <- obj .:! "userId"
+    userId    <- obj .:! "user_id"
 
     pure $ Contact' { id
                    , date
@@ -106,9 +106,9 @@ instance decodeContact :: DecodeJson Contact where
     hyperdata <- obj .: "hyperdata"
     id        <- obj .: "id"
     name      <- obj .:! "name"
-    parentId  <- obj .?| "parentId"
+    parentId  <- obj .?| "parent_id"
     typename  <- obj .?| "typename"
-    userId    <- obj .:! "userId"
+    userId    <- obj .:! "user_id"
 
     pure $ Contact { id
                    , date
@@ -139,9 +139,9 @@ instance decodeUser :: DecodeJson User where
     hyperdata <- obj .: "hyperdata"
     id        <- obj .: "id"
     name      <- obj .:! "name"
-    parentId  <- obj .?| "parentId"
+    parentId  <- obj .?| "parent_id"
     typename  <- obj .?| "typename"
-    userId    <- obj .:! "userId"
+    userId    <- obj .:! "user_id"
 
     pure $ User { id
                 , date