X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=miTask.icl;h=5a65116f18945012a6ae2026a67313b59d789c4f;hb=18c1286739897b65578e87b17167c6cef1922a3b;hp=47d3c8ce5ad39444e8c9ed15fdf8741387bce02e;hpb=28f4e19f893889e6d19d8c0653a643ae1580fd6d;p=mTask.git diff --git a/miTask.icl b/miTask.icl index 47d3c8c..5a65116 100644 --- a/miTask.icl +++ b/miTask.icl @@ -62,7 +62,7 @@ mTaskManager = startupDevices >>| anyTask proc [m:ms] = (case m of // MTSDSAck i = traceValue (toString m) @! () // MTSDSDelAck i = traceValue (toString m) @! () - MTPub i val = getSDSRecord i >>= set (toInt val.[0]*256 + toInt val.[1]) o getSDSStore @! () +// MTPub i val = getSDSRecord i >>= set (toInt val.[0]*256 + toInt val.[1]) o getSDSStore @! () MTTaskAck i = deviceTaskAcked device i MTTaskDelAck i = deviceTaskDeleteAcked device i @! () MTEmpty = treturn ()