38         decoded = liftM (splitMessages . BW.pack) $ Base64.decode $ B.unpack msg

    38         decoded = liftM (splitMessages . BW.pack) $ Base64.decode $ B.unpack msg

    39         check Nothing = (B.empty, B.empty)

    39         check Nothing = (B.empty, B.empty)

    40         check (Just msgs) = let (a, b) = (filter isLegal msgs, filter isNonEmpty a) in (encode a, encode b)

    40         check (Just msgs) = let (a, b) = (filter isLegal msgs, filter isNonEmpty a) in (encode a, encode b)

    41         encode = B.pack . Base64.encode . BW.unpack . B.concat

    41         encode = B.pack . Base64.encode . BW.unpack . B.concat

    42         isLegal m = (B.length m > 1) && (flip Set.member legalMessages . B.head . B.tail $ m)

    42         isLegal m = (B.length m > 1) && (flip Set.member legalMessages . B.head . B.tail $ m)

    44         legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sNpPwtghbc12345" ++ slotMessages

    44         legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sNpPwtghbc12345" ++ slotMessages

    45         slotMessages = "\128\129\130\131\132\133\134\135\136\137\138"

    45         slotMessages = "\128\129\130\131\132\133\134\135\136\137\138"

    46 

    46 

    47 

    47 

    48 replayToDemo :: [TeamInfo]

    48 replayToDemo :: [TeamInfo]