--- 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)