| changeset 2245 | c011aecc95e5 |
| parent 2004 | f7944d5adc5f |
| child 2296 | 19f2f76dc346 |
| 2244:853a1db1cff6 | 2245:c011aecc95e5 |
|---|---|
43 0 |
43 0 |
44 0 |
44 0 |
45 False |
45 False |
46 False |
46 False |
47 False |
47 False |
48 undefined |
|
48 ) |
49 ) |
49 |
50 |
50 writeChan coreChan $ Accept newClient |
51 writeChan coreChan $ Accept newClient |
51 |
52 |
52 forkIO $ clientRecvLoop cHandle coreChan nextID |
53 forkIO $ clientRecvLoop cHandle coreChan nextID |