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

blah

parent 6d0d0db7
...@@ -21,9 +21,8 @@ app = R.createElement appCpt {} [] ...@@ -21,9 +21,8 @@ app = R.createElement appCpt {} []
appCpt :: R.Component () 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