[Graph API] fix cluster renaming

src/Gargantext/Core/Viz/Graph/API.hs

@@ -303,7 +303,7 @@ updateGraphLegend :: HasNodeError err
                   => NodeId
                   -> GraphLegendAPI
                   -> DBCmd err NodeId
-updateGraphLegend nId (GraphLegendAPI { _graphAPILegend = lg }) = do
+updateGraphLegend nId (GraphLegendAPI lg ) = do
   nodeGraph <- getNodeWith nId (Proxy :: Proxy HyperdataGraph)
   let graph = nodeGraph ^. node_hyperdata . hyperdataGraph
   case graph of

src/Gargantext/Core/Viz/Graph/Types.hs

@@ -243,7 +243,7 @@ instance FromField HyperdataGraphAPI
 
 -----------------------------------------------------------
 
-data GraphLegendAPI = GraphLegendAPI { _graphAPILegend :: [LegendField] }
+data GraphLegendAPI = GraphLegendAPI [LegendField]
   deriving (Show, Generic)
 $(deriveJSON (unPrefix "_graphAPI") ''GraphLegendAPI)
 instance ToSchema GraphLegendAPI where