--- a/gameServer/Utils.hs	Thu Jan 27 22:06:42 2011 +0300
+++ b/gameServer/Utils.hs	Thu Jan 27 22:10:24 2011 +0300
@@ -121,3 +121,5 @@
 
 showB :: Show a => a -> B.ByteString
 showB = B.pack .show
+
+io = liftIO