gameServer/HWProtoChecker.hs
author unc0rr
Mon, 04 Feb 2013 00:13:55 +0400
changeset 8479 8d71109b04d2
child 8507 f4475782cf45
permissions -rw-r--r--
Some work on loading replay and interaction with checker
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
8479
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     1
{-# LANGUAGE OverloadedStrings #-}
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     2
module HWProtoChecker where
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     3
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     4
import qualified Data.Map as Map
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     5
import Data.Maybe
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     6
import Data.List
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     7
import Control.Monad.Reader
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     8
--------------------------------------
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
     9
import CoreTypes
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    10
import Actions
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    11
import Utils
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    12
import HandlerUtils
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    13
import RoomsAndClients
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    14
import EngineInteraction
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    15
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    16
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    17
handleCmd_checker :: CmdHandler
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    18
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    19
handleCmd_checker ["READY"] = return [CheckRecord]
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    20
8d71109b04d2 Some work on loading replay and interaction with checker
unc0rr
parents:
diff changeset
    21
handleCmd_checker _ = return [ProtocolError "Unknown command"]