- onDisconnect :: String ([MTaskMSGRecv],[MTaskMSGSend],Bool) -> (MaybeErrorString String, Maybe ([MTaskMSGRecv],[MTaskMSGSend],Bool))
- onDisconnect l (msgs,send,sendStopped) = (Ok l, Nothing)
+ onShareChange :: String ChD -> (MaybeErrorString String, Maybe ChD, [String], Bool)
+ // Stop!
+ onShareChange acc (msgs,send,True)
+ | not (trace_tn "onSC: stop") = undef
+ = (Ok acc, Nothing, [], True)
+ // Nothing to send
+ onShareChange acc (msgs,[], _)
+ | not (trace_tn "onSC: nothing") = undef
+ = (Ok acc, Nothing, [], False)
+ // Something to send
+ onShareChange acc (msgs,send, ss)
+ | not (trace_tn "onSC: send") = undef
+ = (Ok acc, Just (msgs,[],ss), map encode send, False)
+
+ onDisconnect :: String ChD -> (MaybeErrorString String, Maybe ChD)
+ onDisconnect _ (msgs,send,_)
+ | not (trace_tn "ondisconnect") = undef
+ = (Ok "", Just ([], [], True))