netserver/HWProto.hs
changeset 1621 d1ded2532d3f
parent 1620 5f4cd6708eb5
child 1632 b3fcd8a36124
--- a/netserver/HWProto.hs	Thu Jan 08 22:40:56 2009 +0000
+++ b/netserver/HWProto.hs	Fri Jan 09 11:22:46 2009 +0000
@@ -397,7 +397,7 @@
 
 handleCmd_inRoom client clients rooms ["ROUNDFINISHED"] =
 	if isMaster client then
-		(modifyRoomClients clRoom (\cl -> cl{isReady = False}), modifyRoom clRoom{gameinprogress = False, readyPlayers = 0, roundMsgs =[]}, answerAllNotReady)
+		(modifyRoomClients clRoom (\cl -> cl{isReady = False}), modifyRoom clRoom{gameinprogress = False, readyPlayers = 0, roundMsgs = []}, answerAllNotReady)
 	else
 		(noChangeClients, noChangeRooms, [])
 	where