viewSharedInformation "Current value" [] (getSDSShare sh)
||- (
updateSharedInformation "New value" [] (getSDSShare sh)
- >>= \nv->allTasks (map getDevice sh.withDevice)
+ >>= \nv->allTasks (map (withDevice treturn) sh.withDevice)
>>= \devs->allTasks (map (sendMessages [MTUpd sh.identifier nv]) devs)
>>| treturn nv
)