netserver/HWProto.hs
changeset 1681 42a7b01943b3
parent 1676 6f6f14a3e0ea
child 1725 38a074db049c
--- a/netserver/HWProto.hs	Fri Jan 16 15:24:37 2009 +0000
+++ b/netserver/HWProto.hs	Fri Jan 16 15:29:39 2009 +0000
@@ -17,7 +17,7 @@
 	if protocol <= 21 then
 		["ADD_TEAM", teamname team, teamgrave team, teamfort team, show $ difficulty team] ++ hhsInfo
 	else
-		["ADD_TEAM", teamname team, teamgrave team, teamfort team, teamvoicepack team, show $ difficulty team] ++ hhsInfo
+		["ADD_TEAM", teamname team, teamgrave team, teamfort team, teamvoicepack team, teamowner team, show $ difficulty team] ++ hhsInfo
 	where
 		hhsInfo = concatMap (\(HedgehogInfo name hat) -> [name, hat]) $ hedgehogs team