equal
deleted
inserted
replaced
26 where |
26 where |
27 decoded = fromEngineMsg msg |
27 decoded = fromEngineMsg msg |
28 check Nothing = (False, False) |
28 check Nothing = (False, False) |
29 check (Just ms) | B.length ms > 0 = let m = B.head ms in (m `Set.member` legalMessages, m == '+') |
29 check (Just ms) | B.length ms > 0 = let m = B.head ms in (m `Set.member` legalMessages, m == '+') |
30 | otherwise = (False, False) |
30 | otherwise = (False, False) |
31 legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sFNpPwtghbc12345" ++ slotMessages |
31 legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sNpPwtghbc12345" ++ slotMessages |
32 slotMessages = "\128\129\130\131\132\133\134\135\136\137\138" |
32 slotMessages = "\128\129\130\131\132\133\134\135\136\137\138" |
33 |
33 |
34 gameInfo2Replay :: GameInfo -> B.ByteString |
34 gameInfo2Replay :: GameInfo -> B.ByteString |
35 gameInfo2Replay GameInfo{roundMsgs = rm, |
35 gameInfo2Replay GameInfo{roundMsgs = rm, |
36 teamsAtStart = teams, |
36 teamsAtStart = teams, |