equal
deleted
inserted
replaced
632 |
632 |
633 if pass then |
633 if pass then |
634 mapM_ processAction |
634 mapM_ processAction |
635 [ |
635 [ |
636 CheckBanned True |
636 CheckBanned True |
637 , AnswerClients [sendChan cl] ["CONNECTED", "Hedgewars server http://www.hedgewars.org/", serverVersion] |
637 , AnswerClients [sendChan cl] ["CONNECTED", "Hedgewars server https://www.hedgewars.org/", serverVersion] |
638 ] |
638 ] |
639 else |
639 else |
640 processAction $ ByeClient $ loc "Reconnected too fast" |
640 processAction $ ByeClient $ loc "Reconnected too fast" |
641 |
641 |
642 processAction (AddNick2Bans n reason expiring) = do |
642 processAction (AddNick2Bans n reason expiring) = do |