changeset 9973 | 7589978c9912 |
parent 9884 | 6e09ca662fa3 |
child 9989 | a9695e8dc8d2 |
--- a/gameServer/CoreTypes.hs Sun Jan 12 11:07:49 2014 +0400 +++ b/gameServer/CoreTypes.hs Sun Jan 12 15:15:59 2014 +0400 @@ -16,7 +16,6 @@ ----------------------- import RoomsAndClients - #if __GLASGOW_HASKELL__ < 706 instance NFData B.ByteString #endif @@ -78,6 +77,7 @@ | Random [ClientChan] [B.ByteString] | QueryReplay B.ByteString | ShowReplay B.ByteString + | Cleanup type ClientChan = Chan [B.ByteString]