From 042af1f21ee14ef3e56c27d759e54f853a2b4700 Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Fri, 3 Mar 2017 09:41:59 +0100 Subject: [PATCH] don't reuse shares --- Devices/mTaskDevice.icl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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 -- 2.20.1