diff -r 4c39fb2bea6e -r 1c106b0d36da gameServer/Utils.hs --- a/gameServer/Utils.hs Wed Aug 12 15:04:16 2009 +0000 +++ b/gameServer/Utils.hs Wed Aug 12 15:32:29 2009 +0000 @@ -41,7 +41,7 @@ test Nothing = False test (Just (m:ms)) = m `Set.member` legalMessages test _ = False - legalMessages = Set.fromList $ "M#+RrUuDdZzAaSjJ,sFNpPwtghb12345" ++ slotMessages + legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sFNpPwtghb12345" ++ slotMessages slotMessages = ['\128', '\129', '\130', '\131', '\132', '\133', '\134', '\135', '\136', '\137', '\138'] maybeRead :: Read a => String -> Maybe a