updateShare sh=:{withTask,identifier} a = getDeviceByName withTask
>>= sendMessages [MTUpd identifier $ toString $ toByteCode a]
>>| treturn sh
updateShare sh=:{withTask,identifier} a = getDeviceByName withTask
>>= sendMessages [MTUpd identifier $ toString $ toByteCode a]
>>| treturn sh