X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Tasks%2FmTaskTask.icl;h=845c07724610f11840b731cad199f89b4f84b77b;hb=de76c5f5ac6a0c4291b51d5b2c16e3611b5c99e3;hp=3e209da599fabb0ac40b23e26461fdcceefc65e2;hpb=8155b7e2298e78fd53fc17df35d940472dcf8661;p=mTask.git

diff --git a/Tasks/mTaskTask.icl b/Tasks/mTaskTask.icl
index 3e209da..845c077 100644
--- a/Tasks/mTaskTask.icl
+++ b/Tasks/mTaskTask.icl
@@ -17,7 +17,7 @@ sendTaskToDevice :: String (Main (ByteCode () Stmt)) (MTaskDevice, MTaskInterval
 sendTaskToDevice wta mTask (device, timeout) =
 		get bcStateStore @ toMessages timeout mTask
 	>>= \(msgs, st1)->set st1 bcStateStore
-	>>| toSDSRecords msgs st1
+	>>| toSDSRecords msgs st1 device
 	>>= \sdss->upd (mergeShares sdss) sdsStore 
 	>>| sendMessages msgs device
 	>>| makeTask wta -1
@@ -26,9 +26,9 @@ sendTaskToDevice wta mTask (device, timeout) =
 	where
 		sharename i = device.deviceChannels +++ "-" +++ toString i
 
-		toSDSRecords :: [MTaskMSGSend] BCState -> Task [MTaskShare]
-		toSDSRecords s st = sequence ""
-			[makeShare wta sdsi sdsval
+		toSDSRecords :: [MTaskMSGSend] BCState MTaskDevice -> Task [MTaskShare]
+		toSDSRecords s st device = sequence ""
+			[makeShare wta device.deviceName sdsi sdsval
 			\\{sdsi,sdspub,sdsval}<-st.sdss
 			, (MTSds sdsi` _)<-s
 			| sdsi == sdsi`]