[FEAT] UpdateNode WIP (needs backend check)

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

@@ -2,14 +2,13 @@ module Gargantext.Components.Forest.Tree.Node.Action.Update where
 
 import Data.Tuple.Nested ((/\))
 import Data.Maybe (Maybe(..))
-import Data.Argonaut (class EncodeJson, jsonEmptyObject, (:=), (~>))
 import Effect.Aff (Aff)
 import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
 import Gargantext.Components.Forest.Tree.Node.Action.Update.Types
 import Gargantext.Components.Forest.Tree.Node.Tools (formChoiceSafe, submitButton, panel)
 import Gargantext.Types (NodeType(..), ID)
 import Gargantext.Types  as GT
-import Gargantext.Prelude (Unit, class Show, class Read, show, bind, ($), pure)
+import Gargantext.Prelude (Unit, bind, ($), pure)
 import Gargantext.Sessions (Session, put)
 import Gargantext.Routes as GR
 import Reactix as R
@@ -41,11 +40,11 @@ update ::  NodeType
        -> (Action -> Aff Unit)
        ->  R.Hooks R.Element
 update NodeList dispatch = do
-  method  @( _ /\ setMethod  ) <- R.useState' Basic
+  meth @( method /\ setMethod  ) <- R.useState' Basic
   pure $ panel [ -- H.text "Update with"
                 formChoiceSafe [Basic, Advanced, WithModel] Basic setMethod
                ]
-               (submitButton (UpdateNode $ UpdateNodeParamsList method) dispatch)
+               (submitButton (UpdateNode $ UpdateNodeParamsList {method}) dispatch)
 
 update Graph _   = pure $ H.div {} []
 update Texts _  = pure $ H.div {} []

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

@@ -3,16 +3,9 @@ module Gargantext.Components.Forest.Tree.Node.Action.Update.Types where
 import Data.Argonaut as Argonaut
 import Data.Generic.Rep (class Generic)
 import Data.Generic.Rep.Show (genericShow)
-import Data.Tuple.Nested ((/\))
 import Gargantext.Utils.Argonaut (genericSumDecodeJson, genericSumEncodeJson)
 import Data.Maybe (Maybe(..))
-import Data.Argonaut (class EncodeJson, jsonEmptyObject, (:=), (~>))
-import Effect.Aff (Aff)
-import Gargantext.Types (NodeType(..))
-import Gargantext.Types  as GT
-import Gargantext.Prelude (Unit, class Eq, class Show, class Read, class Read, show, bind, ($), pure)
-import Reactix as R
-import Reactix.DOM.HTML as H
+import Gargantext.Prelude (class Eq, class Read, class Show)
 
 
 data UpdateNodeParams = UpdateNodeParamsList { method :: Method }
@@ -33,21 +26,6 @@ instance decodeJsonUpdateNodeParams :: Argonaut.DecodeJson UpdateNodeParams wher
 instance encodeJsonUpdateNodeParams :: Argonaut.EncodeJson UpdateNodeParams where
   encodeJson = genericSumEncodeJson
 
-{-
-instance encodeJsonUpdateNodeParams :: EncodeJson UpdateNodeParams
-  where
-    encodeJson (UpdateNodeParamsList { method })
-      = "method" := show method
-      ~> jsonEmptyObject
-    encodeJson (UpdateNodeParamsGraph { method })
-      = "method" := method
-      ~> jsonEmptyObject
-    encodeJson (UpdateNodeParamsTexts { method })
-      = "method" := method
-      ~> jsonEmptyObject
--}
-----------------------------------------------------------------------
-
 ----------------------------------------------------------------------
 data Method = Basic | Advanced | WithModel