X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=miTask.icl;h=5a65116f18945012a6ae2026a67313b59d789c4f;hb=e37402e7672352aa3642df4c1183417a72f59641;hp=71b891165dbbb029ade74296b4b4750f3e7562ee;hpb=5019b4f7dbeda8679421ec482f40b85eec9ebd72;p=mTask.git

diff --git a/miTask.icl b/miTask.icl
index 71b8911..5a65116 100644
--- a/miTask.icl
+++ b/miTask.icl
@@ -24,8 +24,6 @@ import iTasks._Framework.Serialization
 
 import TTY, iTasksTTY
 
-derive class iTask UserLED
-
 Start :: *World -> *World
 Start world = startEngine (mTaskManager
 	>>* [OnAction (Action "Shutdown") (always $ shutDown)]) world
@@ -64,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 ()