netserver/HWProto.hs
changeset 1609 eff63adf62a3
parent 1599 65b5d3cd3e01
child 1614 cf8704215703
equal deleted inserted replaced
1608:2631f5026714 1609:eff63adf62a3
   171 -- 'no info' state - need to get protocol number and nickname
   171 -- 'no info' state - need to get protocol number and nickname
   172 onLoginFinished client clients =
   172 onLoginFinished client clients =
   173 	if (null $ nick client) || (protocol client == 0) then
   173 	if (null $ nick client) || (protocol client == 0) then
   174 		[]
   174 		[]
   175 	else
   175 	else
   176 		(answerClientOnly $ ["LOBBY:JOINED"] ++ (map nick $ clients)) ++
   176 		(answerClientOnly $ ["LOBBY:JOINED"] ++ (filter (not . null) $ map nick $ clients)) ++
   177 		(answerOthersRoom ["LOBBY:JOINED", nick client]) ++
   177 		(answerOthersRoom ["LOBBY:JOINED", nick client]) ++
   178 		(answerServerMessage client clients)
   178 		(answerServerMessage client clients)
   179 
   179 
   180 handleCmd_noInfo :: CmdHandler
   180 handleCmd_noInfo :: CmdHandler
   181 handleCmd_noInfo client clients _ ["NICK", newNick] =
   181 handleCmd_noInfo client clients _ ["NICK", newNick] =