update

[mTask.git] / miTask.icl

diff --git a/miTask.icl b/miTask.icl
index e14f9e3..5c2b47a 100644 (file)
--- a/miTask.icl
+++ b/miTask.icl
@@ -24,7 +24,9 @@ import iTasks._Framework.Serialization
 
 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
 
@@ -66,5 +68,6 @@ mTaskManager = startupDevices >>| anyTask
                                        MTPub i val = updateShare i val
                                        MTTaskAck i = deviceTaskAcked device i
                                        MTTaskDelAck i = deviceTaskDeleteAcked device i @! ()
+                                       MTDevSpec s = treturn ()//deviceAddSpec device s @! ()
                                        _ = treturn ()
                                        ) >>| proc ms