X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=miTask.icl;h=45ee7ddad1247292b3d1f3bdf827816f1b32df66;hb=32ff545d18253da21f25c69c6d99b96f90668773;hp=e14f9e323d9e33eb7dd3cac7cdb1ac50bb7fa524;hpb=ff14654a72e483d14807272de58c21ad03677177;p=mTask.git diff --git a/miTask.icl b/miTask.icl index e14f9e3..45ee7dd 100644 --- 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