equal
deleted
inserted
replaced
55 |
55 |
56 |
56 |
57 sendAnswers [] _ clients _ = return clients |
57 sendAnswers [] _ clients _ = return clients |
58 sendAnswers ((handlesFunc, answer):answers) client clients rooms = do |
58 sendAnswers ((handlesFunc, answer):answers) client clients rooms = do |
59 let recipients = handlesFunc client clients rooms |
59 let recipients = handlesFunc client clients rooms |
60 --unless (null recipients) $ putStrLn ("< " ++ (show answer)) |
60 unless (null recipients) $ putStrLn ("< " ++ (show answer)) |
61 |
61 |
62 clHandles' <- forM recipients $ |
62 clHandles' <- forM recipients $ |
63 \ch -> Control.Exception.handle |
63 \ch -> Control.Exception.handle |
64 (\e -> putStrLn ("handle exception: " ++ show e) >> |
64 (\e -> putStrLn ("handle exception: " ++ show e) >> |
65 if head answer == "BYE" then |
65 if head answer == "BYE" then |