equal
deleted
inserted
replaced
89 team : teams |
89 team : teams |
90 else |
90 else |
91 t : replaceTeam team teams |
91 t : replaceTeam team teams |
92 |
92 |
93 illegalName :: String -> Bool |
93 illegalName :: String -> Bool |
94 illegalName = all isSpace |
94 illegalName s = null s || all isSpace s || isSpace (head s) || isSpace (last s) |
95 |
95 |
96 protoNumber2ver :: Word16 -> String |
96 protoNumber2ver :: Word16 -> String |
97 protoNumber2ver 17 = "0.9.7-dev" |
97 protoNumber2ver 17 = "0.9.7-dev" |
98 protoNumber2ver 19 = "0.9.7" |
98 protoNumber2ver 19 = "0.9.7" |
99 protoNumber2ver 20 = "0.9.8-dev" |
99 protoNumber2ver 20 = "0.9.8-dev" |