From: Mart Lubbers <mart@martlubbers.net>
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