[REFACT] reading before action

src/Gargantext/Components/Forest/Tree.purs

@@ -129,8 +129,7 @@ loadedTreeView p = R.createElement loadedTreeViewCpt p []
 
 ------------------------------------------------------------------------
 type ToHtmlProps =
-  (
-    asyncTasks :: R.State GAT.Storage
+  ( asyncTasks :: R.State GAT.Storage
   , tasks :: Record Tasks
   , tree :: FTree
   | CommonProps
@@ -231,11 +230,9 @@ performAction DeleteNode p@{ openNodes: (_ /\ setOpenNodes)
                            } =
   do
     void       $ deleteNode session id
-    liftEffect do
-      setOpenNodes (Set.delete (mkNodeId session id))
+    liftEffect $ setOpenNodes (Set.delete (mkNodeId session id))
     performAction RefreshTree p
 
-
 -------
 performAction (DoSearch task) { reload: (_ /\ setReload)
                               , session
@@ -285,8 +282,7 @@ performAction (AddNode name nodeType) p@{ openNodes: (_ /\ setOpenNodes)
                                         } =
   do
     task <- addNode session id $ AddNodeValue {name, nodeType}
-    liftEffect do
-      setOpenNodes (Set.insert (mkNodeId session id))
+    liftEffect $ setOpenNodes (Set.insert (mkNodeId session id))
     performAction RefreshTree p
 
 -------

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

@@ -94,7 +94,10 @@ nodeMainSpan p@{ dispatch, folderOpen, frontends, session } = R.createElement el
                                                 , barType: Pie
                                                 , corpusId: id
                                                 , onFinish: const $ onTaskFinish t
-                                                , session }) tasks)
+                                                , session 
+                                                }
+                        ) tasks
+                   )
         ]
           where
             SettingsBox {show: showBox} = settingsBox nodeType
@@ -143,7 +146,7 @@ nodeMainSpan p@{ dispatch, folderOpen, frontends, session } = R.createElement el
                        $ Just
                        $ DroppedFile { contents: (UploadFileContents contents)
                                      , fileType: Just CSV
-                                     , lang: Just EN
+                                     , lang    : Just EN
                                      }
     onDragOverHandler (_ /\ setIsDragOver) e = do
       -- prevent redirection when file is dropped
@@ -227,7 +230,8 @@ nodeActionsCpt = R.hooksComponent "G.C.F.T.N.B.nodeActions" cpt
                               , nodeId: corpusId
                               , nodeType: GT.TabNgramType GT.CTabTerms
                               , session
-                              , triggerRefresh: triggerRefresh refreshTree }
+                              , triggerRefresh: triggerRefresh refreshTree
+                              }
     cpt _ _ = do
       pure $ H.div {} []
 
@@ -363,9 +367,15 @@ nodePopupCpt = R.hooksComponent "G.C.F.T.N.B.nodePopupView" cpt
           H.div {className: "panel-body flex-space-between"}
                 [ H.p { "style": {"margin":"10px"}} []
                 , H.div { className: "flex-center"} 
-                        [buttonClick {action: doc, state: nodePopupState}]
+                        [ buttonClick { action: doc
+                                      , state: nodePopupState
+                                      }
+                        ]
                 , H.div {className: "flex-center"}
-                        $ map (\t -> buttonClick {action: t, state: nodePopupState}) buttons
+                        $ map (\t -> buttonClick { action: t
+                                                 , state : nodePopupState
+                                                 }
+                              ) buttons
                 ]
           where
             SettingsBox {edit, doc, buttons} = settingsBox nodeType