X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=miTask.icl;h=5c2b47a1eb90a10b4581ac3bebcebf952a4491c9;hb=8133c7b8c11f10c4ca306af5716b2d16233d962b;hp=e14f9e323d9e33eb7dd3cac7cdb1ac50bb7fa524;hpb=ff14654a72e483d14807272de58c21ad03677177;p=mTask.git

diff --git a/miTask.icl b/miTask.icl
index e14f9e3..5c2b47a 100644
--- 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