| changeset 8371 | 0551b5c3de9a |
| parent 6541 | 08ed346ed341 |
| child 8452 | 170afc3ac39f |
| 8370:0c79946e96f8 | 8371:0551b5c3de9a |
|---|---|
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 |