equal
deleted
inserted
replaced
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) |
43 lft = foldr l Nothing |
43 lft = foldr l Nothing |
44 l m n = let m' = B.head $ B.tail m; tst = flip Set.member in |
44 l m n = let m' = B.head $ B.tail m; tst = flip Set.member in |
45 if not $ tst timedMessages m' then n |
45 if not $ tst timedMessages m' then n |
46 else if '+' /= m' then Just Nothing else Just $ Just m |
46 else if '+' /= m' then Just Nothing else Just . Just . B.pack . Base64.encode . BW.unpack $ m |
47 isNonEmpty = (/=) '+' . B.head . B.tail |
47 isNonEmpty = (/=) '+' . B.head . B.tail |
48 legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sNpPwtghbc12345" ++ slotMessages |
48 legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sNpPwtghbc12345" ++ slotMessages |
49 slotMessages = "\128\129\130\131\132\133\134\135\136\137\138" |
49 slotMessages = "\128\129\130\131\132\133\134\135\136\137\138" |
50 timedMessages = Set.fromList $ "+LlRrUuDdZzAaSjJ,NpPwtgc12345" ++ slotMessages |
50 timedMessages = Set.fromList $ "+LlRrUuDdZzAaSjJ,NpPwtgc12345" ++ slotMessages |
51 |
51 |