gameServer/HWProtoChecker.hs
author unc0rr
Sun, 10 Feb 2013 01:52:13 +0400
changeset 8486 9a65baafd7d7
parent 8479 8d71109b04d2
child 8507 f4475782cf45
permissions -rw-r--r--
Send JOINING message in response to FOLLOW. Actual join may still fail due to room restrictions. Not tested.

{-# 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"]