onConnect=onConnect,
onData=onData,
onShareChange=onShareChange,
- onDisconnect=onDisconnect} >>= \_->viewInformation "done" [] "done" @! ()
+ onDisconnect=onDisconnect}
+ >>| throw "Device disconnected"
where
onConnect :: String ChD -> (MaybeErrorString String, Maybe ChD, [String], Bool)
onConnect acc (msgs,send,sendStopped)