| changeset 1924 | 8f8fe856ce9d |
| parent 1917 | c94045b70142 |
| child 1926 | cb46fbdcaa41 |
| 1923:956b6b3529bc | 1924:8f8fe856ce9d |
|---|---|
53 |
53 |
54 forkIO $ clientRecvLoop cHandle coreChan nextID |
54 forkIO $ clientRecvLoop cHandle coreChan nextID |
55 forkIO $ clientSendLoop cHandle coreChan sendChan nextID |
55 forkIO $ clientSendLoop cHandle coreChan sendChan nextID |
56 return () |
56 return () |
57 |
57 |
58 yield -- hm? |
|
59 acceptLoop servSock coreChan nextID |
58 acceptLoop servSock coreChan nextID |
60 where |
59 where |
61 nextID = clientCounter + 1 |
60 nextID = clientCounter + 1 |