Commit 0a995acf authored by James Laver's avatar James Laver

blah

parent 6d0d0db7
...@@ -22,8 +22,7 @@ appCpt :: R.Component () ...@@ -22,8 +22,7 @@ appCpt :: R.Component ()
appCpt = here.component "app" cpt where appCpt = here.component "app" cpt where
cpt _ _ = do cpt _ _ = do
cell <- T.useCell emptyApp -- global data cell <- T.useCell emptyApp -- global data
views <- T.useFieldViews cell -- read-only access for children cursors <- T.useFieldCursors cell {} -- read-write access for children
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
useHashRouter Router.router cursors.route -- Install router to window useHashRouter Router.router cursors.route -- Install router to window
pure $ router { views, cursors, tasks } -- Render router component pure $ router { cursors, tasks } -- Render router component
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment