4 import StdMisc,StdDebug
7 Start w = startEngine t w
9 t = withShared () \channels->
10 forever (chooseAction [(Action "Set", ())] >>- \_->set () channels)
11 ||- tcpconnect "localhost" 8123 channels
15 onShareChange=onShareChange,
16 onDisconnect=onDisconnect}
19 | not (trace_tn "onConnect") = undef
20 = (Ok "", Nothing, [], False)
23 | not (trace_tn "onData") = undef
24 = (Ok "", Nothing, [], False)
27 | not (trace_tn "onShareChange") = undef
28 = (Ok "", Nothing, [], False)
31 | not (trace_tn "onDisconnect") = undef