--- a/gameServer/CoreTypes.hs	Tue Apr 12 21:28:37 2011 +0400
+++ b/gameServer/CoreTypes.hs	Tue Apr 12 22:31:48 2011 +0400
@@ -44,6 +44,7 @@
 
 data HedgehogInfo =
     HedgehogInfo B.ByteString B.ByteString
+    deriving (Show, Read)
 
 data TeamInfo =
     TeamInfo
@@ -60,6 +61,7 @@
         hhnum :: Int,
         hedgehogs :: [HedgehogInfo]
     }
+    deriving (Show, Read)
 
 data RoomInfo =
     RoomInfo