equal
deleted
inserted
replaced
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 |
18 |
|
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 |
|
80 | Cleanup |
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 |