--- a/gameServer/Actions.hs	Sat Mar 06 10:54:24 2010 +0000
+++ b/gameServer/Actions.hs	Sat Mar 06 10:59:20 2010 +0000
@@ -312,7 +312,7 @@
 
 
 processAction (clID, serverInfo, clients, rooms) (RemoveTeam teamName) = do
-    newRooms <-	if not $ gameinprogress room then
+    newRooms <- if not $ gameinprogress room then
             do
             processAction (clID, serverInfo, clients, rooms) $ AnswerOthersInRoom ["REMOVE_TEAM", teamName]
             return $