| branch | webgl |
| changeset 8444 | 75db7bb8dce8 |
| parent 8371 | 0551b5c3de9a |
| child 8452 | 170afc3ac39f |
| 8340:46a9fde631f4 | 8444:75db7bb8dce8 |
|---|---|
47 |
47 |
48 sameProtoClientsS :: Word16 -> StateT ServerState IO [ClientInfo] |
48 sameProtoClientsS :: Word16 -> StateT ServerState IO [ClientInfo] |
49 sameProtoClientsS p = liftM f allClientsS |
49 sameProtoClientsS p = liftM f allClientsS |
50 where |
50 where |
51 f = filter (\c -> clientProto c == p) |
51 f = filter (\c -> clientProto c == p) |
52 |
52 |
53 io :: IO a -> StateT ServerState IO a |
53 io :: IO a -> StateT ServerState IO a |
54 io = liftIO |
54 io = liftIO |