module test

import iTasks
import StdMisc,StdDebug
import Data.Maybe

Start w = doTasks (onStartup t) w

t = withShared () \channels->
	tcpconnect "localhost" 8123 channels
		{ConnectionHandlers|
			onConnect=onConnect,
			onData=onData,
			onShareChange=onShareChange,
			onDisconnect=onDisconnect}
	where
		onConnect cid acc ()
			| not (trace_tn ("onConnect: " +++ toString cid)) = undef
			= (Ok "", Nothing, [], False)

		onData newdata acc ()
			| not (trace_tn ("onData: " +++ newdata)) = undef
			= (Ok "", Nothing, [], False)
		
		onShareChange acc ()
			| not (trace_tn "onShareChange") = undef
			= (Ok "", Nothing, [], False)

		onDisconnect _ ()
			| not (trace_tn "onDisconnect") = undef
			= (Ok "", Nothing)