Tweak debuging code

src/Gargantext/Components/Loader.purs

@@ -37,6 +37,7 @@ type State path loaded = { currentPath :: path, loaded :: Maybe loaded }
 
 createLoaderClass' :: forall path loaded props
                     . Eq path
+                   => Show path
                    => String
                    -> (path -> Aff loaded)
                    -> Render (State path loaded) {path :: path | props} (Action path)
@@ -44,12 +45,16 @@ createLoaderClass' :: forall path loaded props
 createLoaderClass' name loader render =
   React.component name
     (\this -> do
+       logs $ "createLoaderClass' " <> name
        s <- spec this
        pure { state: s.state
             , render: s.render
-            , componentDidMount: dispatcher this ForceReload
-            , componentDidUpdate: \_prevProps {currentPath} _snapshot -> do
+            , componentDidMount: do
+                logs $ name <> ".componentDidMount"
+                dispatcher this ForceReload
+            , componentDidUpdate: \{path: prevPath} {currentPath} _snapshot -> do
                 {path} <- React.getProps this
+                logs $ name <> ".componentDidUpdate " <> show {currentPath, path, prevPath}
                 -- This guard is the same as in performAction (SetPath ...),
                 -- however we need it here to avoid potential infinite loops.
                 -- https://reactjs.org/docs/react-component.html#componentdidupdate
@@ -61,9 +66,11 @@ createLoaderClass' name loader render =
 
     performAction :: PerformAction (State path loaded) {path :: path | props} (Action path)
     performAction ForceReload _ {currentPath} = do
+      logs $ name <> ".ForceReload {currentPath: " <> show currentPath <> "}"
       loaded <- lift $ loader currentPath
       modifyState_ $ _ { loaded = Just loaded }
-    performAction (SetPath newPath) _ {currentPath} =
+    performAction (SetPath newPath) _ {currentPath} = do
+      logs $ name <> ".SetPath " <> show {newPath, currentPath}
       when (newPath /= currentPath) do
         loaded <- lift $ loader newPath
         modifyState_ $ _ { currentPath = newPath, loaded = Just loaded }
@@ -75,6 +82,7 @@ type LoaderClass path loaded =
 
 createLoaderClass :: forall path loaded
                    . Eq path
+                  => Show path
                   => String
                   -> (path -> Aff loaded)
                   -> LoaderClass path loaded

src/Gargantext/Components/Table.purs

@@ -131,6 +131,7 @@ tableSpec = simpleSpec performAction render
   where
     modifyStateAndReload :: (State -> State) -> Props -> State -> StateCoTransformer State Unit
     modifyStateAndReload f {setParams} state = do
+      logs "modifyStateAndReload" -- TODO rename
       modifyState_ f
       liftEffect $ setParams $ stateParams $ f state
 

src/Gargantext/Pages/Corpus/Tabs/Documents.purs

@@ -197,8 +197,8 @@ loadPage {nodeId, params: {limit, offset, orderBy}} = do
   --res <- get $ toUrl Back (Children Url_Document offset limit) nodeId
   res <- get $ toUrl Back (Tab TabDocs offset limit (convOrderBy <$> orderBy)) (Just nodeId)
   let docs = res2corpus <$> res
-  _ <- logs "Ok: loading page documents"
-  _ <- logs $ map show docs
+  --_ <- logs "Ok: loading page documents"
+  --_ <- logs $ map show docs
   pure $
     if mock then take limit $ drop offset sampleData else
     docs