,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