updateShare :: MTaskShare a -> Task MTaskShare | toByteCode, iTask a
updateShare sh=:{withTask,identifier} a = getDeviceByName withTask
updateShare :: MTaskShare a -> Task MTaskShare | toByteCode, iTask a
updateShare sh=:{withTask,identifier} a = getDeviceByName withTask