started with device handshake

[mTask.git] / miTask.icl

diff --git a/miTask.icl b/miTask.icl
index e14f9e3..45ee7dd 100644 (file)
--- a/miTask.icl
+++ b/miTask.icl
@@ -66,5 +66,6 @@ mTaskManager = startupDevices >>| anyTask
                                        MTPub i val = updateShare i val
                                        MTTaskAck i = deviceTaskAcked device i
                                        MTTaskDelAck i = deviceTaskDeleteAcked device i @! ()
+                                       MTDevSpec s = deviceAddSpec device s @! ()
                                        _ = treturn ()
                                        ) >>| proc ms