netserver/newhwserv.hs
changeset 878 45bff6dadfce
parent 877 ebb801acd8b9
child 889 3bf9dc791f45
--- a/netserver/newhwserv.hs	Sat Apr 26 18:21:03 2008 +0000
+++ b/netserver/newhwserv.hs	Sun Apr 27 10:14:00 2008 +0000
@@ -39,7 +39,7 @@
 		Left (ch, h) -> do
 			mainLoop servSock acceptChan $ (ch, h):clients
 		Right (line, handle) -> do
-			clients' <- forM clients $ 
+			clients' <- forM clients $
 					\(ch, h) -> do
 						hPutStrLn h line
 						hFlush h
@@ -55,6 +55,6 @@
 	forkIO $ acceptLoop serverSocket acceptChan
 	mainLoop serverSocket acceptChan []
 
-main = withSocketsDo $ do 
+main = withSocketsDo $ do
 	serverSocket <- listenOn $ Service "hedgewars"
 	startServer serverSocket `finally` sClose serverSocket