[home] refactor performAction

src/Gargantext/Components/Nodes/Home.purs

@@ -60,6 +60,7 @@ import Gargantext.Sessions.Types (Session(..), cleanBackendUrl)
 import Gargantext.Types (NodeType(..), ID)
 import Gargantext.Config.Utils (handleRESTError)
 import Gargantext.Utils.Reactix as R2
+import Gargantext.Utils.Toestand as T2
 import Reactix as R
 import Reactix.DOM.HTML as H
 import Routing.Hash (setHash)
@@ -795,14 +796,26 @@ type PerformActionProps =
   )
 
 performAction :: NodeAction.Action -> Record PerformActionProps -> Aff Unit
-performAction (NodeAction.DoSearch task) { boxes: { tasks }, id, visible } = liftEffect $ do
+performAction = performAction'
+  where
+  performAction' (NodeAction.DoSearch task) { boxes: { tasks, reloadForest }, id, visible } = do
+    doSearch task tasks id visible
+    refreshTree reloadForest
+
+  performAction' (NodeAction.UploadFile nodeType fileType fileFormat lang mName contents selection) { boxes: { errors, reloadForest }, session, id, visible } = do
+    doUpload nodeType fileType fileFormat lang mName contents selection errors session id visible
+    refreshTree reloadForest
+
+  performAction' _ _ = pure unit
+
+  doSearch task tasks id visible = liftEffect $ do
     case head id of
       Just i -> do
         GAT.insert i task tasks
         T.write_ false visible
       Nothing -> pure unit
 
-performAction (NodeAction.UploadFile nodeType fileType fileFormat lang mName contents selection) { boxes: { errors }, session, id, visible } = do
+  doUpload nodeType fileType fileFormat lang mName contents selection errors session id visible = do
     case head id of
       Just i -> do
         eTask <- uploadFile { contents, fileFormat, fileType, id: i, lang, mName, nodeType, selection, session }
@@ -811,7 +824,7 @@ performAction (NodeAction.UploadFile nodeType fileType fileFormat lang mName con
           T.write_ false visible
       Nothing -> pure unit
 
-performAction _ _ = pure unit
+  refreshTree reloadForest = liftEffect $ T2.reload reloadForest
 
 type FormData =
   { corpusName :: String