equal
deleted
inserted
replaced
71 writeChan coreChan $ Remove ci |
71 writeChan coreChan $ Remove ci |
72 else |
72 else |
73 clientSendLoop s tId coreChan chan ci |
73 clientSendLoop s tId coreChan chan ci |
74 |
74 |
75 where |
75 where |
76 --sendQuit e = writeChan coreChan $ ClientMessage (ci, ["QUIT", B.pack $ show e]) |
76 sendQuit e = do |
77 sendQuit e = putStrLn $ show e |
77 putStrLn $ show e |
|
78 writeChan coreChan $ ClientMessage (ci, ["QUIT", B.pack $ show e]) |
78 isQuit ("BYE":xs) = True |
79 isQuit ("BYE":xs) = True |
79 isQuit _ = False |
80 isQuit _ = False |