13 import Data.Typeable

    13 import Data.Typeable

    14 import Data.TConfig

    14 import Data.TConfig

    15 import Control.DeepSeq

    15 import Control.DeepSeq

    16 -----------------------

    16 -----------------------

    17 import RoomsAndClients

    17 import RoomsAndClients

    19 

    18 

    20 #if __GLASGOW_HASKELL__ < 706

    19 #if __GLASGOW_HASKELL__ < 706

    21 instance NFData B.ByteString

    20 instance NFData B.ByteString

    22 #endif

    21 #endif

    23 

    22 

    76     | CheckFailed B.ByteString

    75     | CheckFailed B.ByteString

    77     | CheckSuccess [B.ByteString]

    76     | CheckSuccess [B.ByteString]

    78     | Random [ClientChan] [B.ByteString]

    77     | Random [ClientChan] [B.ByteString]

    79     | QueryReplay B.ByteString

    78     | QueryReplay B.ByteString

    80     | ShowReplay B.ByteString

    79     | ShowReplay B.ByteString

    81 

    81 

    82 type ClientChan = Chan [B.ByteString]

    82 type ClientChan = Chan [B.ByteString]

    83 

    83 

    84 data CheckInfo =

    84 data CheckInfo =

    85     CheckInfo

    85     CheckInfo