X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Shares%2FmTaskShare.icl;fp=Shares%2FmTaskShare.icl;h=68b519e32a24065692d738835f585b609294f30d;hb=5bb47d85ee13e4c0907a82971a907657511211cc;hp=a360bf830df4ae0583bfecce93a3de47464e0145;hpb=a9e2b5a0fbabf17796a88efc7ab0862948e33e0a;p=mTask.git

diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl
index a360bf8..68b519e 100644
--- a/Shares/mTaskShare.icl
+++ b/Shares/mTaskShare.icl
@@ -103,6 +103,18 @@ getRealShare dev {sdsi} = SDSSource {SDSSource
 					Just share = (Ok share.MTaskShare.value, iworld)
 			
 		// Also send messages
-		ww name value iworld = undef//case modify (modFun name value) sdsStore of
-//			(Error e, iworld) = (Error e, iworld)
-//			(Ok shares, iworld) = (Ok $ const True, iworld)
+		ww name value iworld = case modify (\r->((), map (modFun value) r)) deviceStore iworld of
+			(Error e, iworld) = (Error e, iworld)
+			(Ok _, iworld) = case sendMessagesIW [MTUpd sdsi value] dev iworld of
+				(Error e, iworld) = (Error e, iworld)
+				(Ok _, iworld) = (Ok $ const True, iworld)
+
+		//Selects the correct device
+		modFun value d
+		| d == dev = {d & deviceShares=map (modFun2 value) d.deviceShares}
+		= d
+
+		//Selects the correct share
+		modFun2 value share
+		| sdsi == share.MTaskShare.identifier = {MTaskShare | share & value=value}
+		= share