equal
deleted
inserted
replaced
15 onLoginFinished clID clientNick clProto clients = |
15 onLoginFinished clID clientNick clProto clients = |
16 if (null $ clientNick) || (clProto == 0) then |
16 if (null $ clientNick) || (clProto == 0) then |
17 [] |
17 [] |
18 else |
18 else |
19 (RoomAddThisClient 0) |
19 (RoomAddThisClient 0) |
|
20 : CheckRegistered |
20 : answerLobbyNicks |
21 : answerLobbyNicks |
21 -- ++ (answerServerMessage client clients) |
22 -- ++ (answerServerMessage client clients) |
22 where |
23 where |
23 lobbyNicks = filter (\n -> (not (null n))) $ map nick $ IntMap.elems clients |
24 lobbyNicks = filter (\n -> (not (null n))) $ map nick $ IntMap.elems clients |
24 answerLobbyNicks = if not $ null lobbyNicks then |
25 answerLobbyNicks = if not $ null lobbyNicks then |