author | unc0rr |
Wed, 13 Feb 2013 21:13:15 +0400 | |
changeset 8502 | fb8d914e76d8 |
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"]