1 {-# LANGUAGE OverloadedStrings #-}

     2 module HWProtoChecker where

     3 

     4 import qualified Data.Map as Map

     5 import Data.Maybe

     6 import Data.List

     7 import Control.Monad.Reader

     8 --------------------------------------

     9 import CoreTypes

    10 import Actions

    11 import Utils

    12 import HandlerUtils

    13 import RoomsAndClients

    14 import EngineInteraction

    15 

    16 

    17 handleCmd_checker :: CmdHandler

    18 

    19 handleCmd_checker ["READY"] = return [CheckRecord]

    20 

    21 handleCmd_checker _ = return [ProtocolError "Unknown command"]