Skip to content

P
purescript-gargantext
Commit 608fc7bd authored by Przemyslaw Kaminski's avatar Przemyslaw Kaminski
Browse files
Options

[tree] Fix for corpus creation progress bar 

Related to #131.
parent 2abb6b73
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 2 deletions
src/Gargantext/Components/Forest/Tree.purs
View file @ 608fc7bd
...@@ -183,7 +183,6 @@ performAction { reload: (_ /\ setReload) ...@@ -183,7 +183,6 @@ performAction { reload: (_ /\ setReload)
, tree: (NTree (LNode {id}) _) } (SearchQuery task) = do , tree: (NTree (LNode {id}) _) } (SearchQuery task) = do
liftEffect $ setAsyncTasks $ A.cons task liftEffect $ setAsyncTasks $ A.cons task
liftEffect $ log2 "[performAction] SearchQuery task:" task liftEffect $ log2 "[performAction] SearchQuery task:" task
liftEffect $ setReload (_ + 1)
performAction { reload: (_ /\ setReload) performAction { reload: (_ /\ setReload)
, session , session
......
src/Gargantext/Components/Forest/Tree/Node/Box.purs
View file @ 608fc7bd
...@@ -93,7 +93,7 @@ nodeMainSpan p@{ dispatch, folderOpen, frontends, session } = R.createElement el ...@@ -93,7 +93,7 @@ nodeMainSpan p@{ dispatch, folderOpen, frontends, session } = R.createElement el
, fileTypeView {dispatch, droppedFile, id, isDragOver, nodeType} , fileTypeView {dispatch, droppedFile, id, isDragOver, nodeType}
, H.div {} (map (\t -> asyncProgressBar { asyncTask: t , H.div {} (map (\t -> asyncProgressBar { asyncTask: t
, corpusId: id , corpusId: id
, onFinish: \_ -> onAsyncTaskFinish t , onFinish: const $ onAsyncTaskFinish t
, session }) asyncTasks) , session }) asyncTasks)
] ]
where where
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment