equal
deleted
inserted
replaced
15 |
15 |
16 teamToNet protocol team = |
16 teamToNet protocol team = |
17 if protocol <= 21 then |
17 if protocol <= 21 then |
18 ["ADD_TEAM", teamname team, teamgrave team, teamfort team, show $ difficulty team] ++ hhsInfo |
18 ["ADD_TEAM", teamname team, teamgrave team, teamfort team, show $ difficulty team] ++ hhsInfo |
19 else |
19 else |
20 ["ADD_TEAM", teamname team, teamgrave team, teamfort team, teamvoicepack team, show $ difficulty team] ++ hhsInfo |
20 ["ADD_TEAM", teamname team, teamgrave team, teamfort team, teamvoicepack team, teamowner team, show $ difficulty team] ++ hhsInfo |
21 where |
21 where |
22 hhsInfo = concatMap (\(HedgehogInfo name hat) -> [name, hat]) $ hedgehogs team |
22 hhsInfo = concatMap (\(HedgehogInfo name hat) -> [name, hat]) $ hedgehogs team |
23 |
23 |
24 makeAnswer :: HandlesSelector -> [String] -> [Answer] |
24 makeAnswer :: HandlesSelector -> [String] -> [Answer] |
25 makeAnswer func msg = [\_ -> (func, msg)] |
25 makeAnswer func msg = [\_ -> (func, msg)] |