[dashboard] fix for the parentId decoding

src/Gargantext/Components/Nodes/Corpus/Dashboard.purs

@@ -56,7 +56,7 @@ dashboardLayoutWithKeyCpt = here.component "dashboardLayoutWithKey" cpt
       reload' <- T.useLive T.unequal reload
 
       useLoader {nodeId, reload: reload', session} DT.loadDashboardWithReload $
-        \dashboardData@{hyperdata: DT.Hyperdata h, parentId} -> do
+        \(DT.DashboardData dashboardData@{hyperdata: DT.Hyperdata h, parentId}) -> do
           let { charts, fields } = h
           dashboardLayoutLoaded { charts
                                 , corpusId: parentId

src/Gargantext/Components/Nodes/Dashboard/Types.purs

@@ -56,8 +56,26 @@ saveDashboard {hyperdata, nodeId, session} = do
   id_ <- (put session (NodeAPI Node (Just nodeId) "") hyperdata) :: Aff Int
   pure unit
 
-type DashboardData =
+newtype DashboardData =
+  DashboardData
   { id        :: Int
   , hyperdata :: Hyperdata
   , parentId  :: Int
   }
+
+derive instance genericDashboardData :: Generic DashboardData _
+instance eqDashboardData :: Eq DashboardData where
+  eq = genericEq
+instance decodeDashboardData :: DecodeJson DashboardData where
+  decodeJson json = do
+    obj <- decodeJson json
+    id <- obj .: "id"
+    hyperdata <- obj .: "hyperdata"
+    parentId <- obj .: "parent_id"
+    pure $ DashboardData { id, hyperdata, parentId }
+instance encodeDashboardData :: EncodeJson DashboardData where
+  encodeJson (DashboardData { id, hyperdata, parentId }) = do
+       "id"       := id
+    ~> "hyperdata" := hyperdata
+    ~> "parent_id" := parentId
+    ~> jsonEmptyObject