| changeset 1081 | 5be338fa4e2c |
| parent 901 | 2f5ce9a584f9 |
| child 1082 | 596b1dcdc1df |
--- a/netserver/newhwserv.hs Mon Jul 14 20:24:29 2008 +0000 +++ b/netserver/newhwserv.hs Tue Jul 15 16:40:50 2008 +0000 @@ -17,6 +17,7 @@ cChan <- atomically newTChan forkIO $ clientLoop cHandle cChan atomically $ writeTChan acceptChan (ClientInfo cChan cHandle "" 0 "" False) + hPutStrLn cHandle "CONNECTED" acceptLoop servSock acceptChan listenLoop :: Handle -> TChan String -> IO ()