,deviceTask=Nothing
,deviceError=Nothing
,deviceData=res
- ,deviceSpec=Nothing}
+ ,deviceSpec=Nothing
+ ,deviceShares=[]}
getSynFun :: MTaskResource -> ((Shared Channels) -> Task ())
getSynFun (TCPDevice t) = synFun t
>>| upd (\(r,s,ss)->(r,s,True)) (channels d)
>>| maybe (treturn ()) (flip removeTask topLevelTasks) d.deviceTask
>>| upd (filter ((<>)d)) deviceStore
- >>| cleanSharesDevice d.deviceName
+// >>| cleanSharesDevice d.deviceName
@! ()
sendMessages :: [MTaskMSGSend] -> (MTaskDevice -> Task Channels)