X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Devices%2FmTaskDevice.icl;h=661c701f87a106a2b85f7a6f6769281203f158c5;hb=9f93ff243f8ba2e1924e70df10978060a3b6f461;hp=b3f3e8569d7384c2e51ea96d291217f0f6f8302f;hpb=5019b4f7dbeda8679421ec482f40b85eec9ebd72;p=mTask.git

diff --git a/Devices/mTaskDevice.icl b/Devices/mTaskDevice.icl
index b3f3e85..661c701 100644
--- a/Devices/mTaskDevice.icl
+++ b/Devices/mTaskDevice.icl
@@ -107,13 +107,14 @@ sendToDevice wta mTask (device, timeout) =
 	where
 		sharename i = device.deviceChannels +++ "-" +++ toString i
 		toSDSRecords st = [{MTaskShare |
-			initValue=toInt (sdsval!!0)*265 + toInt (sdsval!!1),
 			withTask=wta,
 			identifier=sdsi,
 			//We skip the only/local shares
 			realShare="mTaskSDS-" +++ toString sdsi}
 				\\{sdsi,sdspub,sdsval}<-st.sdss | sdspub]
-		makeShares = foldr (\sh t->set sh.initValue (getSDSStore sh) >>| t) (treturn ())
+
+		makeShares :: ([MTaskShare] -> Task ())
+		makeShares = undef //foldr (\sh t->set sh.initValue (getSDSStore sh) >>| t) (treturn ())
 
 		addTask :: MTaskTask MTaskDevice -> MTaskDevice
 		addTask task device = {device & deviceTasks=[task:device.deviceTasks]}