From: Mart Lubbers Date: Fri, 3 Mar 2017 08:41:59 +0000 (+0100) Subject: don't reuse shares X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=042af1f21ee14ef3e56c27d759e54f853a2b4700;p=mTask.git don't reuse shares --- diff --git a/Devices/mTaskDevice.icl b/Devices/mTaskDevice.icl index 28d44c4..a3b99a1 100644 --- a/Devices/mTaskDevice.icl +++ b/Devices/mTaskDevice.icl @@ -84,7 +84,8 @@ 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 @ toMessages timeout o toRealByteCode (unMain mTask) + get bcStateStore + @ (\st->toMessages timeout (toRealByteCode (unMain mTask) {st & sdss=[]})) >>= \(msgs, st1)->set st1 bcStateStore @ toSDSRecords >>= \sdss->upd ((++)sdss) sdsStore//MTaskShareaddToSDSShare >>| makeShares sdss