gameServer/Actions.hs
changeset 2948 3f21a9dc93d0
parent 2867 9be6693c78cb
child 3283 18ee933a5864
--- 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 $