equal
deleted
inserted
replaced
27 cHandle <- socketToHandle socket ReadWriteMode |
27 cHandle <- socketToHandle socket ReadWriteMode |
28 hSetBuffering cHandle LineBuffering |
28 hSetBuffering cHandle LineBuffering |
29 clientHost <- sockAddr2String sockAddr |
29 clientHost <- sockAddr2String sockAddr |
30 |
30 |
31 currentTime <- getCurrentTime |
31 currentTime <- getCurrentTime |
32 putStrLn $ (show currentTime) ++ " new client id: " ++ (show nextID) |
32 --putStrLn $ (show currentTime) ++ " new client id: " ++ (show nextID) |
33 |
33 |
34 sendChan <- newChan |
34 sendChan <- newChan |
35 |
35 |
36 let newClient = |
36 let newClient = |
37 (ClientInfo |
37 (ClientInfo |