-module test
-
-import iTasks
-import StdMisc,StdDebug
-import Data.Maybe
-
-Start w = startEngine t w
-
-t = withShared () \channels->
- forever (chooseAction [(Action "Set", ())] >>- \_->set () channels)
- ||- tcpconnect "localhost" 8123 channels
- {ConnectionHandlers|
- onConnect=onConnect,
- onData=onData,
- onShareChange=onShareChange,
- onDisconnect=onDisconnect}
- where
- onConnect acc ()
- | not (trace_tn "onConnect") = undef
- = (Ok "", Nothing, [], False)
-
- onData newdata acc ()
- | not (trace_tn "onData") = undef
- = (Ok "", Nothing, [], False)
-
- onShareChange acc ()
- | not (trace_tn "onShareChange") = undef
- = (Ok "", Nothing, [], False)
-
- onDisconnect _ ()
- | not (trace_tn "onDisconnect") = undef
- = (Ok "", Nothing)