author | unc0rr |
Mon, 11 Feb 2013 00:19:15 +0400 | |
changeset 8497 | c5605c6f5bb3 |
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"]