[REFACT] reading before action

src/Gargantext/Components/Forest/Tree.purs

@@ -40,8 +40,8 @@ type CommonProps =
   )
 
 ------------------------------------------------------------------------
-type Props = ( root          :: ID
-             , asyncTasks    :: R.State GAT.Storage
+type Props = ( root        :: ID
+             , asyncTasks  :: R.State GAT.Storage
              | CommonProps
              )
 
@@ -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
@@ -191,14 +190,14 @@ toHtml p@{ asyncTasks
 
 type ChildNodesProps =
   ( asyncTasks :: R.State GAT.Storage
-  , children :: Array FTree
+  , children   :: Array FTree
   , folderOpen :: R.State Boolean
   | CommonProps
   )
 
 childNodes :: Record ChildNodesProps -> Array R.Element
-childNodes { children: [] } = []
-childNodes { folderOpen: (false /\ _) } = []
+childNodes { children: []                       } = []
+childNodes { folderOpen: (false /\ _)           } = []
 childNodes props@{ asyncTasks, children, reload } =
   map (\ctree@(NTree (LNode {id}) _) ->
         toHtml (Record.merge commonProps { asyncTasks
@@ -230,12 +229,10 @@ performAction DeleteNode p@{ openNodes: (_ /\ setOpenNodes)
                            , tree: (NTree (LNode {id}) _)
                            } =
   do
-    void $ deleteNode session id
-    liftEffect do
-      setOpenNodes (Set.delete (mkNodeId session id))
+    void       $ deleteNode session id
+    liftEffect $ setOpenNodes (Set.delete (mkNodeId session id))
     performAction RefreshTree p
 
-
 -------
 performAction (DoSearch task) { reload: (_ /\ setReload)
                               , session
@@ -260,9 +257,9 @@ performAction (UpdateNode task) { reload: (_ /\ setReload)
 
 -------
 performAction (RenameNode name) p@{ reload: (_ /\ setReload)
-                                , session
-                                , tree: (NTree (LNode {id}) _)
-                                } =
+                                  , session
+                                  , tree: (NTree (LNode {id}) _)
+                                  } =
   do
     void $ rename session id $ RenameValue {text:name}
     performAction RefreshTree p
@@ -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,12 +230,13 @@ 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 {} []
 
     graphVersions session graphId = GraphAPI.graphVersions { graphId, session }
-    triggerRefresh refreshTree = refreshTree
+    triggerRefresh refreshTree    = refreshTree
 
 
 -- END nodeActions
@@ -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