X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Devices%2FmTaskDevice.icl;h=bb5b353332a2ec191ae3b3c9d5a494369d5bc2e9;hb=67eeb405b1fad87d770bdbb739d0ebb4c49f3470;hp=a3b99a1504f8216d6670e0df204959de99d0e0b2;hpb=042af1f21ee14ef3e56c27d759e54f853a2b4700;p=mTask.git

diff --git a/Devices/mTaskDevice.icl b/Devices/mTaskDevice.icl
index a3b99a1..bb5b353 100644
--- a/Devices/mTaskDevice.icl
+++ b/Devices/mTaskDevice.icl
@@ -84,10 +84,9 @@ deleteDevice d = upd (\(r,s,ss)->(r,s,True)) (channels d)
 
 sendToDevice :: String (Main (ByteCode () Stmt)) (MTaskDevice, MTaskInterval) -> Task ()
 sendToDevice wta mTask (device, timeout) =
-		get bcStateStore 
-	@ (\st->toMessages timeout (toRealByteCode (unMain mTask) {st & sdss=[]}))
+		get bcStateStore @ toMessages timeout o toRealByteCode (unMain mTask)
 	>>= \(msgs, st1)->set st1 bcStateStore @ toSDSRecords
-	>>= \sdss->upd ((++)sdss) sdsStore//MTaskShareaddToSDSShare
+	>>= \sdss->set sdss sdsStore//MTaskShareaddToSDSShare
 	>>| makeShares sdss
 	>>| sendMessage device msgs
 	>>| makeTask wta -1