diff --git a/src/Gargantext/Components/Forest/Tree.purs b/src/Gargantext/Components/Forest/Tree.purs index 7796440ad5861670775c4a7bedb903c68d14e0cb..874b2142f543306b8adffad2b3cc2de0ddcf4677 100644 --- a/src/Gargantext/Components/Forest/Tree.purs +++ b/src/Gargantext/Components/Forest/Tree.purs @@ -49,9 +49,9 @@ treeView props = R.createElement treeViewCpt props [] treeViewCpt :: R.Component Props treeViewCpt = R.hooksComponent "G.C.Tree.treeView" cpt where - cpt { root, mCurrentRoute, session, frontends, openNodes, reload } _children = do + cpt { root, mCurrentRoute, session, frontends, openNodes, reload, asyncTasks} _children = do pure $ treeLoadView - { root, mCurrentRoute, session, frontends, openNodes, reload } + { root, mCurrentRoute, session, frontends, openNodes, reload, asyncTasks} treeLoadView :: Record Props -> R.Element treeLoadView p = R.createElement treeLoadViewCpt p [] @@ -192,11 +192,12 @@ performAction { reload: (_ /\ setReload) performAction { reload: (_ /\ setReload) , session - , tasks: (_ /\ setAsyncTasks) + , tasks: {onTaskAdd} , tree: (NTree (LNode {id}) _) } (UpdateNode task) = do - liftEffect $ setAsyncTasks $ A.cons task + liftEffect $ onTaskAdd task liftEffect $ log2 "[performAction] UpdateNode task:" task + performAction p@{ reload: (_ /\ setReload) , session , tree: (NTree (LNode {id}) _) } (Submit name) = do diff --git a/src/Gargantext/Components/Forest/Tree/Node/Action/Upload.purs b/src/Gargantext/Components/Forest/Tree/Node/Action/Upload.purs index 441b2400bafc8db7c43dcffc983c4f2cf47fe951..4477f88c580f3804bd5b90da067e27778ed8a377 100644 --- a/src/Gargantext/Components/Forest/Tree/Node/Action/Upload.purs +++ b/src/Gargantext/Components/Forest/Tree/Node/Action/Upload.purs @@ -31,9 +31,9 @@ type Dispatch = Action -> Aff Unit type Props = ( dispatch :: Dispatch - , id :: Int + , id :: Int , nodeType :: GT.NodeType - , session :: Session + , session :: Session ) @@ -110,8 +110,7 @@ uploadFileViewCpt = R.hooksComponent "G.C.F.T.N.A.U.UploadFileView" cpt type UploadButtonProps = - ( - dispatch :: Dispatch + ( dispatch :: Dispatch , fileType :: R.State FileType , id :: Int , lang :: R.State (Maybe Lang) @@ -285,8 +284,7 @@ uploadTermListViewCpt = R.hooksComponent "G.C.F.T.N.A.U.UploadTermListView" cpt type UploadTermButtonProps = - ( - dispatch :: Dispatch + ( dispatch :: Dispatch , id :: Int , mFile :: R.State (Maybe UploadFile) , nodeType :: GT.NodeType @@ -324,9 +322,8 @@ copyFromCorpusViewCpt = R.hooksComponent "G.C.F.T.N.A.U.copyFromCorpusView" cpt copyFromCorpusViewLoaded {dispatch, id, nodeType, session, tree} type CorpusTreeProps = - ( - tree :: FTree - | Props + ( tree :: FTree + | Props ) copyFromCorpusViewLoaded :: Record CorpusTreeProps -> R.Element