set instead of upd
authorMart Lubbers <mart@martlubbers.net>
Fri, 3 Mar 2017 08:44:56 +0000 (09:44 +0100)
committerMart Lubbers <mart@martlubbers.net>
Fri, 3 Mar 2017 08:44:56 +0000 (09:44 +0100)
Devices/mTaskDevice.icl

index a3b99a1..bb5b353 100644 (file)
@@ -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