author | unc0rr |
Sun, 10 Feb 2013 01:27:32 +0400 | |
changeset 8484 | 99c14f14f788 |
parent 8479 | 8d71109b04d2 |
child 8507 | f4475782cf45 |
permissions | -rw-r--r-- |
{-# LANGUAGE OverloadedStrings #-} module HWProtoChecker where import qualified Data.Map as Map import Data.Maybe import Data.List import Control.Monad.Reader -------------------------------------- import CoreTypes import Actions import Utils import HandlerUtils import RoomsAndClients import EngineInteraction handleCmd_checker :: CmdHandler handleCmd_checker ["READY"] = return [CheckRecord] handleCmd_checker _ = return [ProtocolError "Unknown command"]