equal
deleted
inserted
replaced
54 tm : ts |
54 tm : ts |
55 else |
55 else |
56 t : replaceTeam tm ts |
56 t : replaceTeam tm ts |
57 |
57 |
58 illegalName :: B.ByteString -> Bool |
58 illegalName :: B.ByteString -> Bool |
59 illegalName s = B.null s || B.length s > 40 || B.all isSpace s || isSpace (B.head s) || isSpace (B.last s) || B.any isIllegalChar s |
59 illegalName b = B.null b || length s > 40 || all isSpace s || isSpace (head s) || isSpace (last s) || any isIllegalChar s |
60 where |
60 where |
|
61 s = UTF8.toString b |
61 isIllegalChar c = c `List.elem` ("$()*+?[]^{|}\x7F" ++ ['\x00'..'\x1F']) |
62 isIllegalChar c = c `List.elem` ("$()*+?[]^{|}\x7F" ++ ['\x00'..'\x1F']) |
62 |
63 |
63 protoNumber2ver :: Word16 -> B.ByteString |
64 protoNumber2ver :: Word16 -> B.ByteString |
64 protoNumber2ver v = Map.findWithDefault "Unknown" v vermap |
65 protoNumber2ver v = Map.findWithDefault "Unknown" v vermap |
65 where |
66 where |