- updateInformation "State" [] (toView s)
- >>* [ OnAction ActionFinish (always shutDown)
- , OnAction (Action "clear serial" []) (always (simloop {s & serial = []}))
- , OnAction ActionNew (always (setup state0))
- : if (isEmpty s.tasks)
- []
- [OnAction (Action "loop" []) (hasValue
- \si.simloop (step` (mergeView s si)))
- ]
- ]
-
-toView :: State -> StateInterface
+ updateInformation "State" [] (toView s) @!()
+// >>* [ OnAction ActionFinish (always shutDown)
+// , OnAction (Action "clear serial" []) (always (simloop {s & serial = []}))
+// , OnAction ActionNew (always (setup zero))
+// : if (isEmpty s.tasks)
+// []
+// [OnAction (Action "loop" []) (hasValue
+// \si.simloop (step` (mergeView s si)))
+// ]
+// ]
+
+toView :: State` -> StateInterface