[FIX] move /= merge /= link now

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

+module Gargantext.Components.Forest.Tree.Node.Action.Link
+  where
+
+import Data.Argonaut as Argonaut
+import Data.Maybe (Maybe(..))
+import Data.Generic.Rep (class Generic)
+import Gargantext.Prelude
+import Effect.Aff (Aff)
+import Gargantext.Types  as GT
+import Gargantext.Sessions (Session, put_)
+import Gargantext.Routes (SessionRoute(..))
+import Gargantext.Types (NodeType(..))
+import Gargantext.Utils.Argonaut (genericSumDecodeJson, genericSumEncodeJson, genericEnumDecodeJson, genericEnumEncodeJson)
+import Data.Generic.Rep.Show (genericShow)
+import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
+import Reactix as R
+import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel)
+import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (SubTreeParamsProps, subTreeView)
+import Reactix.DOM.HTML as H
+
+-- TODO moveNodeReq
+linkNodeReq :: Session -> GT.ID -> GT.ID -> Aff (Array GT.ID)
+linkNodeReq session fromId toId =
+  put_ session $ NodeAPI GT.Node (Just fromId) ("link/" <> show toId)
+
+linkNode :: Record SubTreeParamsProps -> R.Hooks R.Element
+linkNode p = do
+  pure $ subTreeView p
+

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

+module Gargantext.Components.Forest.Tree.Node.Action.Merge
+  where
+
+import Data.Argonaut as Argonaut
+import Data.Maybe (Maybe(..))
+import Data.Generic.Rep (class Generic)
+import Gargantext.Prelude
+import Effect.Aff (Aff)
+import Gargantext.Types  as GT
+import Gargantext.Sessions (Session, put_)
+import Gargantext.Routes (SessionRoute(..))
+import Gargantext.Types (NodeType(..))
+import Gargantext.Utils.Argonaut (genericSumDecodeJson, genericSumEncodeJson, genericEnumDecodeJson, genericEnumEncodeJson)
+import Data.Generic.Rep.Show (genericShow)
+import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
+import Reactix as R
+import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel)
+import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (SubTreeParamsProps, subTreeView)
+import Reactix.DOM.HTML as H
+
+
+mergeNodeReq :: Session -> GT.ID -> GT.ID -> Aff (Array GT.ID)
+mergeNodeReq session fromId toId =
+  put_ session $ NodeAPI GT.Node (Just fromId) ("merge/" <> show toId)
+
+mergeNode :: Record SubTreeParamsProps -> R.Hooks R.Element
+mergeNode p = do
+  pure $ subTreeView p
+

src/Gargantext/Components/Forest/Tree/Node/Box.purs

@@ -22,6 +22,8 @@ import Gargantext.Components.Forest.Tree.Node.Action.Share as Share
 import Gargantext.Components.Forest.Tree.Node.Action.Update (update)
 import Gargantext.Components.Forest.Tree.Node.Action.Upload (actionUpload)
 import Gargantext.Components.Forest.Tree.Node.Action.Move (moveNode)
+import Gargantext.Components.Forest.Tree.Node.Action.Link (linkNode)
+import Gargantext.Components.Forest.Tree.Node.Action.Merge (mergeNode)
 import Gargantext.Components.Forest.Tree.Node.Box.Types (NodePopupProps, NodePopupS)
 import Gargantext.Components.Forest.Tree.Node.Settings (NodeAction(..), SettingsBox(..), glyphiconNodeAction, settingsBox)
 import Gargantext.Components.Forest.Tree.Node.Tools (textInputBox, fragmentPT)
@@ -249,7 +251,7 @@ panelActionCpt = R.hooksComponent "G.C.F.T.N.B.panelAction" cpt
 -----------
     cpt {action: Merge {subTreeParams}, dispatch, id, nodeType, session} _ = do
       subTreeOut :: R.State (Maybe SubTreeOut) <- R.useState' Nothing
-      pure $ subTreeView {dispatch, id, nodeType, session, subTreeParams, subTreeOut}
+      mergeNode {dispatch, id, nodeType, session, subTreeParams, subTreeOut}
 
     cpt {action: Move {subTreeParams}, dispatch, id, nodeType, session} _ = do
       subTreeOut :: R.State (Maybe SubTreeOut) <- R.useState' Nothing
@@ -257,7 +259,7 @@ panelActionCpt = R.hooksComponent "G.C.F.T.N.B.panelAction" cpt
 
     cpt {action: Link {subTreeParams}, dispatch, id, nodeType, session} _ = do
       subTreeOut :: R.State (Maybe SubTreeOut) <- R.useState' Nothing
-      pure $ subTreeView {dispatch, id, nodeType, session, subTreeParams, subTreeOut}
+      linkNode {dispatch, id, nodeType, session, subTreeParams, subTreeOut}
 -----------
 
     cpt {action : Share, dispatch, id, name } _ = do