Merge remote-tracking branch 'origin/399-dev-multiple-trees-rc0.x' into dev

src/Gargantext/Components/Forest.purs

@@ -61,12 +61,15 @@ forestLayoutCpt = here.component "forest" cpt where
         H.div
         { className: "forest-layout__tree" }
         [
-          treeLoader { boxes
-                   , frontends
-                   , handed: handed'
-                   , reload: reloadForest
-                   , root: treeId
-                   , session: s } []
+          treeLoader
+          { boxes
+          , frontends
+          , handed: handed'
+          , reload: reloadForest
+          , root: treeId
+          , session: s
+          , key: "tree-" <> (show treeId)
+          }
         ]
 
 type Plus = ( boxes :: Boxes )

src/Gargantext/Components/Forest/Tree.purs

@@ -106,9 +106,10 @@ type PerformActionProps =
   | PACommon )
 
 -- | Loads and renders the tree starting at the given root node id.
-treeLoader :: R2.Component LoaderProps
-treeLoader = R.createElement treeLoaderCpt
-treeLoaderCpt :: R.Component LoaderProps
+treeLoader :: R2.Leaf ( key :: String | LoaderProps )
+treeLoader = R2.leaf treeLoaderCpt
+
+treeLoaderCpt :: R.Component ( key :: String | LoaderProps )
 treeLoaderCpt = here.component "treeLoader" cpt where
 -- treeLoaderCpt :: R.Memo LoaderProps
 -- treeLoaderCpt = R.memo (here.component "treeLoader" cpt) memoCmp where