--- a/gameServer/Utils.hs	Wed Oct 17 23:33:33 2012 +0400
+++ b/gameServer/Utils.hs	Wed Oct 17 23:50:28 2012 +0400
@@ -4,19 +4,16 @@
 import Data.Char
 import Data.Word
 import qualified Data.Map as Map
-import qualified Data.Set as Set
 import qualified Data.Char as Char
 import Numeric
 import Network.Socket
 import System.IO
 import qualified Data.List as List
 import Control.Monad
-import qualified Codec.Binary.Base64 as Base64
 import qualified Data.ByteString.Lazy as BL
 import qualified Text.Show.ByteString as BS
 import qualified Data.ByteString.Char8 as B
 import qualified Data.ByteString.UTF8 as UTF8
-import qualified Data.ByteString as BW
 import Data.Maybe
 -------------------------------------------------
 import CoreTypes
@@ -123,6 +120,8 @@
     where
         f = map Char.toUpper . UTF8.toString
 
+
+roomInfo :: B.ByteString -> RoomInfo -> [B.ByteString]
 roomInfo n r = [
         showB $ isJust $ gameInfo r,
         name r,