--- a/gameServer/Utils.hs	Sun Jun 06 15:29:33 2010 +0000
+++ b/gameServer/Utils.hs	Sun Jun 06 19:03:06 2010 +0000
@@ -119,3 +119,6 @@
     case f b of
         Right (a, new_b) -> let (a', b') = unfoldrE f new_b in (a : a', b')
         Left new_b       -> ([], new_b)
+
+showB :: Show a => a -> B.ByteString
+showB = B.pack .show