author | unc0rr |
Mon, 18 Feb 2013 00:28:09 +0400 | |
changeset 8510 | 0a39b2f9c748 |
parent 8509 | eda9f2106d8d |
child 8511 | 4f899fbce66d |
--- a/gameServer/Actions.hs Mon Feb 18 00:22:13 2013 +0400 +++ b/gameServer/Actions.hs Mon Feb 18 00:28:09 2013 +0400 @@ -88,7 +88,10 @@ rnf (AnswerClients chans msg) = chans `deepseq` msg `deepseq` () rnf a = a `seq` () +#if __GLASGOW_HASKELL__ < 706 instance NFData B.ByteString +#endif + instance NFData (Chan a)