equal
deleted
inserted
replaced
731 . Set.toList $ keys |
731 . Set.toList $ keys |
732 processAction $ Warning versionsStats |
732 processAction $ Warning versionsStats |
733 |
733 |
734 |
734 |
735 processAction (Random chans items) = do |
735 processAction (Random chans items) = do |
736 let i = if null items then ["heads", "tails"] else items |
736 let i = if null items then [loc "heads", loc "tails"] else items |
737 n <- io $ randomRIO (0, length i - 1) |
737 n <- io $ randomRIO (0, length i - 1) |
738 processAction $ AnswerClients chans ["CHAT", nickRandom, i !! n] |
738 processAction $ AnswerClients chans ["CHAT", if null items then nickRandomCoin else nickRandomCustom, i !! n] |
739 |
739 |
740 |
740 |
741 processAction (LoadGhost location) = do |
741 processAction (LoadGhost location) = do |
742 ri <- clientRoomA |
742 ri <- clientRoomA |
743 rnc <- gets roomsClients |
743 rnc <- gets roomsClients |