--- 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