[{t & ident=i}:ts] [t:ackFirst ts]
deviceTaskDelete :: MTaskDevice MTaskTask -> Task ()
-deviceTaskDelete dev task = sendMessages [MTTaskDel task.ident] dev @! ()
+deviceTaskDelete dev task = sendMessages [MTTaskDel task.ident] dev
+ >>| upd (\ds->filter ((<>) dev) ds) deviceStore @! ()
deviceTaskDeleteAcked :: MTaskDevice Int -> Task ()
deviceTaskDeleteAcked d i = withDevices d $ deleteTask