equal
deleted
inserted
replaced
31 teamname :: String, |
31 teamname :: String, |
32 teamcolor :: String, |
32 teamcolor :: String, |
33 teamgrave :: String, |
33 teamgrave :: String, |
34 teamfort :: String, |
34 teamfort :: String, |
35 difficulty :: Int, |
35 difficulty :: Int, |
|
36 hhnum :: Int, |
36 hedgehogs :: [HedgehogInfo] |
37 hedgehogs :: [HedgehogInfo] |
37 } |
38 } |
38 |
39 |
39 data RoomInfo = |
40 data RoomInfo = |
40 RoomInfo |
41 RoomInfo |
107 modifyRoom room (rm:rms) = |
108 modifyRoom room (rm:rms) = |
108 if name room == name rm then |
109 if name room == name rm then |
109 room : rms |
110 room : rms |
110 else |
111 else |
111 room : modifyRoom room rms |
112 room : modifyRoom room rms |
|
113 |
|
114 modifyTeam :: RoomInfo -> TeamInfo -> RoomInfo |
|
115 modifyTeam room team = room{teams = replaceTeam team $ teams room} |
|
116 where |
|
117 replaceTeam _ [] = error "modifyTeam: no such team" |
|
118 replaceTeam team (t:teams) = |
|
119 if teamname team == teamname t then |
|
120 team : teams |
|
121 else |
|
122 t : replaceTeam team teams |