Merge branch '376-dev-annuaire-debug-rc0.x' of...

Merge branch '376-dev-annuaire-debug-rc0.x' of ssh://gitlab.iscpif.fr:20022/gargantext/purescript-gargantext into dev-merge

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

@@ -49,6 +49,31 @@ linkNodeCpt = here.component "linkNode" cpt
   where
     cpt { boxes, dispatch, id, nodeType, session, subTreeParams } _ = do
       action <- T.useBox (LinkNode { nodeType: Nothing, params: Nothing})
+
+      pure $
+
+          linkNode' { action
+                      , boxes
+                      , dispatch
+                      , id
+                      , nodeType
+                      , session
+                      , subTreeParams
+                      } []
+
+type Props =
+  ( action :: T.Box Action
+  | SubTreeParamsIn
+  )
+
+-- @XXX re-render issue -> clone component
+linkNode' :: R2.Component Props
+linkNode' = R.createElement linkNodeCpt'
+linkNodeCpt' :: R.Component Props
+linkNodeCpt' = here.component "__clone__" cpt
+  where
+    cpt { boxes, dispatch, id, nodeType, session, subTreeParams, action } _ = do
+
       action' <- T.useLive T.unequal action
 
       let button = case action' of

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

@@ -53,7 +53,7 @@ type Props =
 moveNode' :: R2.Component Props
 moveNode' = R.createElement moveNodeCpt'
 moveNodeCpt' :: R.Component Props
-moveNodeCpt' = here.component "foo" cpt where
+moveNodeCpt' = here.component "__clone__" cpt where
   cpt { boxes, dispatch, id, nodeType, session, subTreeParams, action } _ = do
 
     action' <- T.useLive T.unequal action

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

@@ -59,6 +59,8 @@ actionUploadCpt = here.component "actionUpload" cpt where
   cpt { nodeType: NodeList, dispatch, id, session } _ =
     pure $ uploadTermListView { dispatch, id, nodeType: GT.NodeList, session } []
   cpt props@{ nodeType: NodeFrameCalc } _ = pure $ uploadFrameCalcView props []
+  cpt props@{ nodeType: Annuaire, dispatch, id, session } _ = do
+    pure $ uploadFileView { dispatch, id, nodeType: GT.Annuaire, session }
   cpt props@{ nodeType: _ } _ = pure $ actionUploadOther props []
 
 {-