equal
deleted
inserted
replaced
9 import Data.Maybe |
9 import Data.Maybe |
10 ------------------- |
10 ------------------- |
11 import Utils |
11 import Utils |
12 import CoreTypes |
12 import CoreTypes |
13 import HandlerUtils |
13 import HandlerUtils |
14 import Actions |
|
15 |
14 |
16 |
15 |
17 voted :: Bool -> Reader (ClientIndex, IRnC) [Action] |
16 voted :: Bool -> Reader (ClientIndex, IRnC) [Action] |
18 voted vote = do |
17 voted vote = do |
19 cl <- thisClient |
18 cl <- thisClient |
65 |
64 |
66 |
65 |
67 startVote :: VoteType -> Reader (ClientIndex, IRnC) [Action] |
66 startVote :: VoteType -> Reader (ClientIndex, IRnC) [Action] |
68 startVote vt = do |
67 startVote vt = do |
69 (ci, rnc) <- ask |
68 (ci, rnc) <- ask |
70 cl <- thisClient |
69 --cl <- thisClient |
71 rm <- thisRoom |
70 rm <- thisRoom |
72 chans <- roomClientsChans |
71 chans <- roomClientsChans |
73 |
72 |
74 let uids = map (clUID . client rnc) . roomClients rnc $ clientRoom rnc ci |
73 let uids = map (clUID . client rnc) . roomClients rnc $ clientRoom rnc ci |
75 |
74 |