| changeset 1847 | 2178c0fc838c |
| parent 1841 | fba7210b438b |
| child 1917 | c94045b70142 |
| 1846:24d0074d4eed | 1847:2178c0fc838c |
|---|---|
46 0 |
46 0 |
47 0 |
47 0 |
48 False |
48 False |
49 False |
49 False |
50 False |
50 False |
51 False) |
51 False |
52 False |
|
53 ) |
|
52 |
54 |
53 writeChan coreChan $ Accept newClient |
55 writeChan coreChan $ Accept newClient |
54 |
56 |
55 forkIO $ clientRecvLoop cHandle coreChan nextID |
57 forkIO $ clientRecvLoop cHandle coreChan nextID |
56 forkIO $ clientSendLoop cHandle coreChan sendChan nextID |
58 forkIO $ clientSendLoop cHandle coreChan sendChan nextID |