author | dag10 |
Sat, 09 Feb 2013 19:14:58 -0500 | |
changeset 8491 | f0f167f7a4a6 |
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"]