netserver/hedgewars-server.hs
changeset 1474 8817adb86da6
parent 1473 60e1fad78d58
child 1475 bab5650fc894
--- a/netserver/hedgewars-server.hs	Tue Nov 04 21:53:30 2008 +0000
+++ b/netserver/hedgewars-server.hs	Tue Nov 04 22:42:08 2008 +0000
@@ -91,9 +91,10 @@
 
 	clientsIn <- sendAnswers answers mclient mclients mrooms
 	let quitClient = find forceQuit $ clientsIn
+	
 	if isJust quitClient then
 		reactCmd ["QUIT"] (fromJust quitClient) clientsIn mrooms
-	else
+		else
 		return (clientsIn, mrooms)