Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameServer/HWProtoLobbyState.hs
changeset 4989 4771fed9272e
parent 4984 20da3c5c7dee
child 5030 42746c5d4a80 
--- a/gameServer/HWProtoLobbyState.hs	Sat Mar 05 22:39:26 2011 +0300
+++ b/gameServer/HWProtoLobbyState.hs	Sun Mar 06 21:54:37 2011 +0300
@@ -15,7 +15,7 @@
 import RoomsAndClients
 
 
-answerAllTeams :: ClientInfo -> [TeamInfo] -> [Action c]
+answerAllTeams :: ClientInfo -> [TeamInfo] -> [Action]
 answerAllTeams cl = concatMap toAnswer
     where
         clChan = sendChan cl
@@ -24,7 +24,7 @@
             AnswerClients [clChan] ["TEAM_COLOR", teamname team, teamcolor team],
             AnswerClients [clChan] ["HH_NUM", teamname team, B.pack . show $ hhnum team]]
 
-handleCmd_lobby :: CmdHandler c
+handleCmd_lobby :: CmdHandler
 
 
 handleCmd_lobby ["LIST"] = do
hedgewars