Start w = startEngine t w
t = withShared () \channels->
- forever (chooseAction [(Action "Set", ())] >>- \_->set () channels)
- ||- tcpconnect "localhost" 8123 channels
+ tcpconnect "localhost" 8123 channels
{ConnectionHandlers|
onConnect=onConnect,
onData=onData,