[toestand] code compiles now

src/Gargantext/Components/App.purs

@@ -11,18 +11,20 @@ import Gargantext.Hooks (useHashRouter)
 import Gargantext.Router as Router
 import Gargantext.Sessions as Sessions
 import Gargantext.Utils.Reactix as R2
+import Gargantext.Utils.Toestand as T2
 
 here :: R2.Here
 here = R2.here "Gargantext.Components.App"
 
-app :: R.Element
-app = R.createElement appCpt {} []
+app :: R2.Component ()
+app = R.createElement appCpt
 
 appCpt :: R.Component ()
 appCpt = here.component "app" cpt where
   cpt _ _ = do
     cell    <- T.useCell emptyApp             -- global data
     cursors <- T.useFieldCursors cell {}      -- read-write access for children
-    tasks   <- R.useRef Nothing               -- storage for asynchronous tasks
+    -- tasks   <- R.useRef Nothing               -- storage for asynchronous tasks
+    tasks   <- T2.useCursed Nothing           -- storage for asynchronous tasks
     useHashRouter Router.router cursors.route -- Install router to window
     pure $ router { cursors, tasks }          -- Render router component

src/Main.purs

@@ -16,4 +16,4 @@ main = paint $ toMaybe (document ... "getElementById" $ [ "app" ])
 
 paint :: Maybe Element -> Effect Unit
 paint Nothing = log "[main] Container not found"
-paint (Just c) = R2.render (app {}) c
+paint (Just c) = R2.render (app {} []) c