# HG changeset patch
# User unc0rr
# Date 1225723643 0
# Node ID 6e6a75de2fc9f59b0878406dcd5df16ebd01ce7c
# Parent  b288aea6b3d2de97b63dffd89b01beed5dcfef29
Reformat code a bit

diff -r b288aea6b3d2 -r 6e6a75de2fc9 netserver/hedgewars-server.hs
--- a/netserver/hedgewars-server.hs	Mon Nov 03 14:24:54 2008 +0000
+++ b/netserver/hedgewars-server.hs	Mon Nov 03 14:47:23 2008 +0000
@@ -61,7 +61,13 @@
 	unless (null recipients) $ putStrLn ("< " ++ (show answer))
 
 	clHandles' <- forM recipients $
-		\ch -> Control.Exception.handle (\e -> putStrLn ("handle exception: " ++ show e) >> if head answer == "BYE" then return [ch] else atomically $ writeTChan (chan $ fromJust $ clientByHandle ch clients)  ["QUIT"] >> return []) $ -- cannot just remove
+		\ch -> Control.Exception.handle
+			(\e -> putStrLn ("handle exception: " ++ show e) >>
+				if head answer == "BYE" then
+					return [ch]
+				else
+					atomically $ writeTChan (chan $ fromJust $ clientByHandle ch clients) ["QUIT"] >> return []  -- cannot just remove
+			) $
 			do
 			forM_ answer (\str -> hPutStrLn ch str)
 			hPutStrLn ch ""