equal
deleted
inserted
replaced
4 import qualified Data.ByteString.Char8 as B |
4 import qualified Data.ByteString.Char8 as B |
5 import Data.List |
5 import Data.List |
6 |
6 |
7 import RoomsAndClients |
7 import RoomsAndClients |
8 import CoreTypes |
8 import CoreTypes |
9 import Actions |
9 |
10 |
10 |
11 thisClient :: Reader (ClientIndex, IRnC) ClientInfo |
11 thisClient :: Reader (ClientIndex, IRnC) ClientInfo |
12 thisClient = do |
12 thisClient = do |
13 (ci, rnc) <- ask |
13 (ci, rnc) <- ask |
14 return $ rnc `client` ci |
14 return $ rnc `client` ci |