import TTY, iTasksTTY
-Start :: *World -> *World
+//derive class iTask ByteSize, Parity, BaudRate, TTYSettings, TCPSettings
+//derive class iTask MTaskDeviceSpec, MTaskResource, MTaskTask, MTaskDevice
+
Start world = startEngine (mTaskManager
>>* [OnAction (Action "Shutdown") (always $ shutDown)]) world
MTPub i val = updateShare i val
MTTaskAck i = deviceTaskAcked device i
MTTaskDelAck i = deviceTaskDeleteAcked device i @! ()
- MTDevSpec s = deviceAddSpec device s @! ()
+ MTDevSpec s = treturn ()//deviceAddSpec device s @! ()
_ = treturn ()
) >>| proc ms