[Graph] Read Type

src/Gargantext/Components/Forest/Tree/Node/Action/Update.purs

@@ -90,7 +90,7 @@ updateGraphCpt = here.component "updateGraph" cpt where
                                  , default: methodGraphMetric'
                                  , callback: \val -> T.write_ val methodGraphMetric
                                  , print: show } []
-                 , formChoiceSafe { items: [Infomap, Spinglass, Confluence]
+                 , formChoiceSafe { items: [Spinglass, Infomap, Confluence]
                                  , default: methodGraphClustering'
                                  , callback: \val -> T.write_ val methodGraphClustering
                                  , print: show } []

src/Gargantext/Components/Forest/Tree/Node/Action/Update/Types.purs

@@ -78,6 +78,7 @@ instance Show PartitionMethod where show = genericShow
 instance Read PartitionMethod where
   read "Spinglass"  = Just Spinglass
   read "Confluence" = Just Confluence
+  read "Infomap"    = Just Infomap
   read _           = Nothing
 instance JSON.ReadForeign PartitionMethod where readImpl = JSONG.enumSumRep
 instance JSON.WriteForeign PartitionMethod where writeImpl = JSON.writeImpl <<< show