| changeset 2126 | cb249fa8e3da |
| parent 2001 | d909152bdc21 |
| child 2296 | 19f2f76dc346 |
| 2125:3ebe8cd30b84 | 2126:cb249fa8e3da |
|---|---|
41 else |
41 else |
42 clientSendLoop handle coreChan chan clientID |
42 clientSendLoop handle coreChan chan clientID |
43 |
43 |
44 where |
44 where |
45 sendQuit e = writeChan coreChan $ ClientMessage (clientID, ["QUIT", show e]) |
45 sendQuit e = writeChan coreChan $ ClientMessage (clientID, ["QUIT", show e]) |
46 isQuit answer = head answer == "BYE" |
46 isQuit ("BYE":xs) = True |
47 isQuit _ = False |