[FIX] state must be declared inside the component

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.Generic.Rep (class Generic)
-import Data.Generic.Rep.Show (genericShow)
 import Data.Maybe (Maybe(..))
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff)
 import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
 import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel)
-import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (SubTreeParamsProps, subTreeView, SubTreeOut(..))
+import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (SubTreeParamsIn, subTreeView, SubTreeOut(..))
 import Gargantext.Prelude
 import Gargantext.Routes (SessionRoute(..))
 import Gargantext.Sessions (Session, put_)
 import Gargantext.Types  as GT
-import Gargantext.Types (NodeType(..))
-import Gargantext.Utils.Argonaut (genericSumDecodeJson, genericSumEncodeJson, genericEnumDecodeJson, genericEnumEncodeJson)
 import Reactix as R
 import Reactix.DOM.HTML as H
 
@@ -23,13 +18,21 @@ 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@{subTreeOut, dispatch} = pure $ panel [subTreeView p] button
-  where
-    ( subTreeOutParams /\ _ ) = subTreeOut
-    button = case subTreeOutParams of
-      Nothing   -> H.div {} []
-      Just sbto -> submitButton (LinkNode inId outId) dispatch
-        where
-          (SubTreeOut { in:inId, out:outId}) = sbto
+linkNode :: Record SubTreeParamsIn -> R.Hooks R.Element
+linkNode p@{dispatch, subTreeParams, id, nodeType, session} = do
+  subTreeOut@(subTreeOutParams /\ setSubTreeOut) :: R.State (Maybe SubTreeOut)
+    <- R.useState' Nothing
+  let button = case subTreeOutParams of
+        Nothing   -> H.div {} []
+        Just sbto -> submitButton (LinkNode inId outId) dispatch
+          where
+            (SubTreeOut { in:inId, out:outId}) = sbto
+  pure $ panel [ subTreeView { subTreeOut
+                             , dispatch
+                             , subTreeParams
+                             , id
+                             , nodeType
+                             , session
+                             }
+               ] button
 

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.Generic.Rep (class Generic)
-import Data.Generic.Rep.Show (genericShow)
 import Data.Maybe (Maybe(..))
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff)
 import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
 import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel)
-import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (SubTreeParamsProps, subTreeView)
-import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (SubTreeParamsProps, subTreeView, SubTreeOut(..))
+import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (SubTreeParamsIn, subTreeView, SubTreeOut(..))
 import Gargantext.Prelude
 import Gargantext.Routes (SessionRoute(..))
 import Gargantext.Sessions (Session, put_)
 import Gargantext.Types  as GT
-import Gargantext.Types (NodeType(..))
-import Gargantext.Utils.Argonaut (genericSumDecodeJson, genericSumEncodeJson, genericEnumDecodeJson, genericEnumEncodeJson)
 import Reactix as R
 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@{subTreeOut, dispatch} = pure $ panel [subTreeView p] button
-  where
-    ( subTreeOutParams /\ _ ) = subTreeOut
-    button = case subTreeOutParams of
-      Nothing   -> H.div {} []
-      Just sbto -> submitButton (MergeNode inId outId) dispatch
-        where
-          (SubTreeOut { in:inId, out:outId}) = sbto
+mergeNode :: Record SubTreeParamsIn -> R.Hooks R.Element
+mergeNode p@{dispatch, subTreeParams, id, nodeType, session} = do
+  subTreeOut@(subTreeOutParams /\ setSubTreeOut) :: R.State (Maybe SubTreeOut)
+    <- R.useState' Nothing
+  let button = case subTreeOutParams of
+        Nothing   -> H.div {} []
+        Just sbto -> submitButton (MergeNode inId outId) dispatch
+          where
+            (SubTreeOut { in:inId, out:outId}) = sbto
+  pure $ panel [ subTreeView { subTreeOut
+                             , dispatch
+                             , subTreeParams
+                             , id
+                             , nodeType
+                             , session
+                             }
+               ] button
 

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

@@ -4,9 +4,9 @@ module Gargantext.Components.Forest.Tree.Node.Action.Move
 import Data.Maybe (Maybe(..))
 import Data.Tuple.Nested ((/\))
 import Effect.Aff (Aff)
-import Gargantext.Components.Forest.Tree.Node.Action (Action(..))
+import Gargantext.Components.Forest.Tree.Node.Action (Props, Action(..))
 import Gargantext.Components.Forest.Tree.Node.Tools (submitButton, panel)
-import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (SubTreeParamsProps, subTreeView, SubTreeOut(..))
+import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (SubTreeParamsIn, subTreeView, SubTreeOut(..))
 import Gargantext.Prelude
 import Gargantext.Routes (SessionRoute(..))
 import Gargantext.Sessions (Session, put_)
@@ -18,13 +18,21 @@ moveNodeReq :: Session -> GT.ID -> GT.ID -> Aff (Array GT.ID)
 moveNodeReq session fromId toId =
   put_ session $ NodeAPI GT.Node (Just fromId) ("move/" <> show toId)
 
-moveNode :: Record SubTreeParamsProps -> R.Hooks R.Element
-moveNode p@{subTreeOut, dispatch} = pure $ panel [subTreeView p] button
-  where
-    ( subTreeOutParams /\ _ ) = subTreeOut
-    button = case subTreeOutParams of
-      Nothing   -> H.div {} []
-      Just sbto -> submitButton (MoveNode inId outId) dispatch
-        where
-          (SubTreeOut { in:inId, out:outId}) = sbto
+moveNode :: Record SubTreeParamsIn -> R.Hooks R.Element
+moveNode p@{dispatch, subTreeParams, id, nodeType, session} = do
+  subTreeOut@(subTreeOutParams /\ setSubTreeOut) :: R.State (Maybe SubTreeOut)
+    <- R.useState' Nothing
+  let button = case subTreeOutParams of
+        Nothing   -> H.div {} []
+        Just sbto -> submitButton (MoveNode inId outId) dispatch
+          where
+            (SubTreeOut { in:inId, out:outId}) = sbto
+  pure $ panel [ subTreeView { subTreeOut
+                             , dispatch
+                             , subTreeParams
+                             , id
+                             , nodeType
+                             , session
+                             }
+               ] button
 

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

@@ -27,7 +27,6 @@ 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)
-import Gargantext.Components.Forest.Tree.Node.Tools.SubTree (SubTreeOut)
 import Gargantext.Sessions (Session)
 import Gargantext.Types (Name, ID)
 import Gargantext.Types as GT
@@ -251,16 +250,13 @@ panelActionCpt = R.hooksComponent "G.C.F.T.N.B.panelAction" cpt
 -----------
     -- Functions using SubTree
     cpt {action: Merge {subTreeParams}, dispatch, id, nodeType, session} _ = do
-      subTreeOut :: R.State (Maybe SubTreeOut) <- R.useState' Nothing
-      mergeNode {dispatch, id, nodeType, session, subTreeParams, subTreeOut}
+      mergeNode {dispatch, id, nodeType, session, subTreeParams}
 
     cpt {action: Move {subTreeParams}, dispatch, id, nodeType, session} _ = do
-      subTreeOut :: R.State (Maybe SubTreeOut) <- R.useState' Nothing
-      moveNode {dispatch, id, nodeType, session, subTreeParams, subTreeOut}
+      moveNode {dispatch, id, nodeType, session, subTreeParams}
 
     cpt {action: Link {subTreeParams}, dispatch, id, nodeType, session} _ = do
-      subTreeOut :: R.State (Maybe SubTreeOut) <- R.useState' Nothing
-      linkNode {dispatch, id, nodeType, session, subTreeParams, subTreeOut}
+      linkNode {dispatch, id, nodeType, session, subTreeParams}
 -----------
 
     cpt {action : Share, dispatch, id, name } _ = do

src/Gargantext/Components/Forest/Tree/Node/Tools/SubTree.purs

@@ -20,14 +20,19 @@ import Reactix as R
 import Reactix.DOM.HTML as H
 
 
+
+type SubTreeParamsIn =
+  ( subTreeParams :: SubTreeParams
+  | Props
+  )
+------------------------------------------------------------------------
 data SubTreeOut = SubTreeOut { in  :: GT.ID
                              , out :: GT.ID
                              }
 ------------------------------------------------------------------------
 type SubTreeParamsProps =
-  ( subTreeParams :: SubTreeParams
-  , subTreeOut    :: R.State (Maybe SubTreeOut)
-  | Props
+  ( subTreeOut    :: R.State (Maybe SubTreeOut)
+  | SubTreeParamsIn
   )
 
 subTreeView :: Record SubTreeParamsProps -> R.Element
@@ -69,7 +74,7 @@ getSubTree session treeId showtypes = get session $ GR.NodeAPI GT.Tree (Just tre
 
 ------------------------------------------------------------------------
 type CorpusTreeProps =
-  ( tree :: FTree
+  ( tree         :: FTree
   | SubTreeParamsProps
   )
 
@@ -123,6 +128,6 @@ subTreeTreeViewCpt = R.hooksComponent "G.C.F.T.N.A.U.subTreeTreeViewCpt" cpt
         onClick _ = mkEffectFn1 $ \_ -> case validNodeType of
                          false -> setSubTreeOut (const Nothing)
                          true  -> setSubTreeOut (const $ Just $ SubTreeOut { in: id, out:sourceId})
-         
+
 --------------------------------------------------------------------------------------------