[FIX] subtree

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

@@ -44,6 +44,8 @@ subTreeOut _                    = Nothing
 
 setTreeOut ::  Action -> Maybe SubTreeOut -> Action
 setTreeOut (MoveNode {params:_})  p = MoveNode {params: p}
+setTreeOut (MergeNode {params:_}) p = MergeNode {params: p}
+setTreeOut (LinkNode {params:_})  p = LinkNode {params: p}
 setTreeOut a   _             = a
 
 

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

@@ -22,11 +22,11 @@ linkNodeReq session fromId toId =
 linkNode :: Record SubTreeParamsIn -> R.Hooks R.Element
 linkNode p@{dispatch, subTreeParams, id, nodeType, session} = do
 
-  action@(valAction /\ setAction) :: R.State Action <- R.useState' (MoveNode {params:Nothing})
+  action@(valAction /\ setAction) :: R.State Action <- R.useState' (LinkNode {params:Nothing})
 
   let button = case valAction of
-        MoveNode {params} -> case params of
-          Just val -> submitButton (MoveNode {params: Just val}) dispatch
+        LinkNode {params} -> case params of
+          Just val -> submitButton (LinkNode {params: Just val}) dispatch
           Nothing -> H.div {} []
         _                   -> H.div {} []
 

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

@@ -22,14 +22,14 @@ mergeNodeReq session fromId toId =
 
 mergeNode :: Record SubTreeParamsIn -> R.Hooks R.Element
 mergeNode p@{dispatch, subTreeParams, id, nodeType, session} = do
-  action@(valAction /\ setAction) :: R.State Action <- R.useState' (MoveNode {params:Nothing})
+  action@(valAction /\ setAction) :: R.State Action <- R.useState' (MergeNode {params:Nothing})
 
   merge   <- R.useState' false
   options <- R.useState' (Set.singleton GT.MapTerm)
 
   let button = case valAction of
-        MoveNode {params} -> case params of
-          Just val -> submitButton (MoveNode {params: Just val}) dispatch
+        MergeNode {params} -> case params of
+          Just val -> submitButton (MergeNode {params: Just val}) dispatch
           Nothing -> H.div {} []
         _                   -> H.div {} []