equal
deleted
inserted
replaced
2 module HWProtoLobbyState where |
2 module HWProtoLobbyState where |
3 |
3 |
4 import qualified Data.Map as Map |
4 import qualified Data.Map as Map |
5 import qualified Data.IntSet as IntSet |
5 import qualified Data.IntSet as IntSet |
6 import qualified Data.Foldable as Foldable |
6 import qualified Data.Foldable as Foldable |
7 import Maybe |
7 import Data.Maybe |
8 import Data.List |
8 import Data.List |
9 import Data.Word |
9 import Data.Word |
10 import Control.Monad.Reader |
10 import Control.Monad.Reader |
11 import qualified Data.ByteString.Char8 as B |
11 import qualified Data.ByteString.Char8 as B |
12 -------------------------------------- |
12 -------------------------------------- |
42 | otherwise = [ |
42 | otherwise = [ |
43 showB $ gameinprogress room, |
43 showB $ gameinprogress room, |
44 name room, |
44 name room, |
45 showB $ playersIn room, |
45 showB $ playersIn room, |
46 showB $ length $ teams room, |
46 showB $ length $ teams room, |
47 nick $ irnc `client` (masterID room), |
47 nick $ irnc `client` masterID room, |
48 head (Map.findWithDefault ["+gen+"] "MAP" (params room)), |
48 head (Map.findWithDefault ["+gen+"] "MAP" (params room)), |
49 head (Map.findWithDefault ["Default"] "SCHEME" (params room)), |
49 head (Map.findWithDefault ["Default"] "SCHEME" (params room)), |
50 head (Map.findWithDefault ["Default"] "AMMO" (params room)) |
50 head (Map.findWithDefault ["Default"] "AMMO" (params room)) |
51 ] |
51 ] |
52 |
52 |