X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=Shares%2FmTaskShare.icl;fp=Shares%2FmTaskShare.icl;h=a360bf830df4ae0583bfecce93a3de47464e0145;hb=a9e2b5a0fbabf17796a88efc7ab0862948e33e0a;hp=9960f4eb37bd0e57d379d3407044c16fa514f7fa;hpb=6b9b7f62df51ee3f48a78ae05b8b8f287ecce5b2;p=mTask.git

diff --git a/Shares/mTaskShare.icl b/Shares/mTaskShare.icl
index 9960f4e..a360bf8 100644
--- a/Shares/mTaskShare.icl
+++ b/Shares/mTaskShare.icl
@@ -66,8 +66,8 @@ makeShare withTask identifier value = {MTaskShare
 		,value=value
 		}
 
-updateShare :: MTaskDevice Int BCValue -> Task [MTaskShare]
-updateShare dev ident val = updateShares dev $ map $ up ident val
+updateShareFromPublish :: MTaskDevice Int BCValue -> Task [MTaskShare]
+updateShareFromPublish dev ident val = updateShares dev $ map $ up ident val
 	where
 		up :: Int BCValue MTaskShare -> MTaskShare
 		up i v s = if (s.identifier == i) {MTaskShare | s & value=val} s