[tree] Fix for corpus creation progress bar

Related to #131.

src/Gargantext/Components/Forest/Tree.purs

@@ -183,7 +183,6 @@ performAction { reload: (_ /\ setReload)
               , tree: (NTree (LNode {id}) _) } (SearchQuery task) = do
   liftEffect $ setAsyncTasks $ A.cons task
   liftEffect $ log2 "[performAction] SearchQuery task:" task
-  liftEffect $ setReload (_ + 1)
 
 performAction { reload: (_ /\ setReload)
               , session

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

@@ -93,7 +93,7 @@ nodeMainSpan p@{ dispatch, folderOpen, frontends, session } = R.createElement el
         , fileTypeView {dispatch, droppedFile, id, isDragOver, nodeType}
         , H.div {} (map (\t -> asyncProgressBar { asyncTask: t
                                                 , corpusId: id
-                                                , onFinish: \_ -> onAsyncTaskFinish t
+                                                , onFinish: const $ onAsyncTaskFinish t
                                                 , session }) asyncTasks)
         ]
           where