equal
deleted
inserted
replaced
45 where |
45 where |
46 client = clients IntMap.! clID |
46 client = clients IntMap.! clID |
47 adminNotice = [AnswerThisClient ["ADMIN_ACCESS"] | isAdministrator client] |
47 adminNotice = [AnswerThisClient ["ADMIN_ACCESS"] | isAdministrator client] |
48 |
48 |
49 |
49 |
50 --handleCmd_NotEntered _ _ _ ["DUMP"] = |
50 handleCmd_NotEntered clID clients _ ["DUMP"] = |
51 -- [Dump] |
51 if isAdministrator (clients IntMap.! clID) then [Dump] else [] |
52 |
52 |
53 |
53 |
54 handleCmd_NotEntered clID _ _ _ = [ProtocolError "Incorrect command (state: not entered)"] |
54 handleCmd_NotEntered clID _ _ _ = [ProtocolError "Incorrect command (state: not entered)"] |