equal
deleted
inserted
replaced
53 where |
53 where |
54 client = clients IntMap.! clID |
54 client = clients IntMap.! clID |
55 adminNotice = if isAdministrator client then [AnswerThisClient ["ADMIN_ACCESS"]] else [] |
55 adminNotice = if isAdministrator client then [AnswerThisClient ["ADMIN_ACCESS"]] else [] |
56 |
56 |
57 |
57 |
58 handleCmd_NotEntered _ _ _ ["DUMP"] = |
58 --handleCmd_NotEntered _ _ _ ["DUMP"] = |
59 [Dump] |
59 -- [Dump] |
60 |
60 |
61 |
61 |
62 handleCmd_NotEntered clID _ _ _ = [ProtocolError "Incorrect command (state: not entered)"] |
62 handleCmd_NotEntered clID _ _ _ = [ProtocolError "Incorrect command (state: not entered)"] |