4 import StdMisc,StdDebug
7 Start w = startEngine t w
9 t = withShared () \channels->
10 tcpconnect "localhost" 8123 channels
14 onShareChange=onShareChange,
15 onDisconnect=onDisconnect}
18 | not (trace_tn "onConnect") = undef
19 = (Ok "", Nothing, [], False)
22 | not (trace_tn "onData") = undef
23 = (Ok "", Nothing, [], False)
26 | not (trace_tn "onShareChange") = undef
27 = (Ok "", Nothing, [], False)
30 | not (trace_tn "onDisconnect") = undef