X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=miTask.icl;h=fd5dac509e840bcdd3c2b45becd930a55742436e;hb=5bb47d85ee13e4c0907a82971a907657511211cc;hp=e16d3c0e6978624b7156b26bd6b987987d03330a;hpb=6b9b7f62df51ee3f48a78ae05b8b8f287ecce5b2;p=mTask.git diff --git a/miTask.icl b/miTask.icl index e16d3c0..fd5dac5 100644 --- a/miTask.icl +++ b/miTask.icl @@ -66,7 +66,7 @@ mTaskManager = startupDevices >>| anyTask proc [m:ms] = traceValue (toString m) >>| (case m of // MTSDSAck i = traceValue (toString m) @! () // MTSDSDelAck i = traceValue (toString m) @! () - MTPub i val = updateShare device i val @! () + MTPub i val = updateShareFromPublish device i val @! () MTTaskAck i mem = deviceTaskAcked device i mem MTTaskDelAck i = deviceTaskDeleteAcked device i @! () MTDevSpec s = deviceAddSpec device s @! ()