[Loader2] working

src/Gargantext/Components/Loader2.purs

 module Gargantext.Components.Loader2 where
 
---import Control.Monad.Cont.Trans (lift)
 import Data.Maybe (Maybe(..), isNothing)
 import Data.Tuple.Nested ((/\))
 import Gargantext.Prelude
-import Effect (Effect)
---import Effect.Aff (Aff)
+import Effect.Aff (Aff, launchAff, launchAff_, killFiber)
+import Effect.Class (liftEffect)
+import Effect.Exception (error)
 import Reactix as R
 
 type State path loaded = { currentPath :: path, loaded :: Maybe loaded }
@@ -15,22 +15,26 @@ useLoader
   .  Eq path
   => Show path
   => path
-  -> (path -> Effect loaded)
-  -> (path -> loaded -> Array R.Element)
-  -> R.Hooks (Array R.Element)
+  -> (path -> Aff loaded)
+  -> (path -> loaded -> R.Element)
+  -> R.Hooks R.Element
 useLoader newPath loader render = do
   {currentPath, loaded} /\ setState <- R.useState' { currentPath: newPath, loaded: Nothing }
 
-  -- What about cleanup handlers?
-  R.useEffect' $ \_ ->
-    when (isNothing loaded || newPath /= currentPath) do
+  R.useEffect $ \_ ->
+    if (isNothing loaded || newPath /= currentPath) then do
       logs $ "useLoader " <> show {newPath, currentPath, loadedIsNothing: isNothing loaded}
-      freshlyLoaded <- loader newPath
-      setState { currentPath: newPath, loaded: Just freshlyLoaded }
+
+      fiber <- launchAff do
+        freshlyLoaded <- loader newPath
+        liftEffect $ setState { currentPath: newPath, loaded: Just freshlyLoaded }
+      pure $ \_ -> launchAff_ $ killFiber (error "useLoader") fiber
+    else do
+      pure $ \_ -> pure unit
 
   pure case loaded of
     Nothing ->
       -- TODO load spinner
-      []
+      R.fragment []
     Just loadedData ->
       render currentPath loadedData

src/Gargantext/Components/Tree.purs

@@ -229,10 +229,12 @@ treeview :: Spec {} Props Void
 treeview = simpleSpec defaultPerformAction render
   where
     render :: Render {} Props Void
-    render _ {root} _ _ =
-      R.hooksComponent "TreeView" \props children ->
+    render _ props _ _ = [R2.scuff $ R.createElement cpt props []]
+
+    cpt =
+      R.hooksComponent "TreeView" \{root} _children ->
         useLoader root loadNode \currentPath loaded ->
-          React.createElement treeViewClass {tree: loaded}
+          R2.buff $ React.createElement treeViewClass {tree: loaded} []
 
 
 --nodePopupView :: forall s. (Action -> Effect Unit) -> FTree -> RAction s -> R.Element
@@ -588,8 +590,9 @@ fldr :: Boolean -> String
 fldr open = if open then "fas fa-folder-open" else "fas fa-folder"
 
 
-loadNode :: ID -> Effect FTree
-loadNode a = lift ((get <<< toUrl Back Tree <<< Just) a)
+loadNode :: ID -> Aff FTree
+-- loadNode a = lift ((get <<< toUrl Back Tree <<< Just) a)
+loadNode = get <<< toUrl Back Tree <<< Just
 
 ----- TREE CRUD Operations