diff -r eed7ab6a5087 -r 4c5ca656d1bb gameServer/Utils.hs --- a/gameServer/Utils.hs Thu Jun 24 19:52:04 2010 +0400 +++ b/gameServer/Utils.hs Fri Jun 25 10:05:42 2010 +0400 @@ -52,18 +52,8 @@ [(x, rest)] | all isSpace rest -> Just x _ -> Nothing -teamToNet :: Word16 -> TeamInfo -> [B.ByteString] -teamToNet protocol team - | protocol < 30 = - "ADD_TEAM" - : teamname team - : teamgrave team - : teamfort team - : teamvoicepack team - : teamowner team - : (B.pack $ show $ difficulty team) - : hhsInfo - | otherwise = +teamToNet :: TeamInfo -> [B.ByteString] +teamToNet team = "ADD_TEAM" : teamname team : teamgrave team