equal
deleted
inserted
replaced
37 checkNetCmd = check . liftM B.unpack . fromEngineMsg |
37 checkNetCmd = check . liftM B.unpack . fromEngineMsg |
38 where |
38 where |
39 check Nothing = (False, False) |
39 check Nothing = (False, False) |
40 check (Just (m:_)) = (m `Set.member` legalMessages, m == '+') |
40 check (Just (m:_)) = (m `Set.member` legalMessages, m == '+') |
41 check _ = (False, False) |
41 check _ = (False, False) |
42 legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sFNpPwtghb12345" ++ slotMessages |
42 legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sFNpPwtghbc12345" ++ slotMessages |
43 slotMessages = "\128\129\130\131\132\133\134\135\136\137\138" |
43 slotMessages = "\128\129\130\131\132\133\134\135\136\137\138" |
44 |
44 |
45 maybeRead :: Read a => String -> Maybe a |
45 maybeRead :: Read a => String -> Maybe a |
46 maybeRead s = case reads s of |
46 maybeRead s = case reads s of |
47 [(x, rest)] | all isSpace rest -> Just x |
47 [(x, rest)] | all isSpace rest -> Just x |