# HG changeset patch # User nemo # Date 1298850934 18000 # Node ID 2f9c8a12edce83b7d20cae4a384e9698089f23e7 # Parent 98c5b7a0630a841217caf89773289ca949960e8f replace removed command diff -r 98c5b7a0630a -r 2f9c8a12edce gameServer/Utils.hs --- a/gameServer/Utils.hs Sun Feb 27 18:03:33 2011 -0500 +++ b/gameServer/Utils.hs Sun Feb 27 18:55:34 2011 -0500 @@ -39,7 +39,7 @@ check Nothing = (False, False) check (Just (m:_)) = (m `Set.member` legalMessages, m == '+') check _ = (False, False) - legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sFNpPwtghb12345" ++ slotMessages + legalMessages = Set.fromList $ "M#+LlRrUuDdZzAaSjJ,sFNpPwtghbc12345" ++ slotMessages slotMessages = "\128\129\130\131\132\133\134\135\136\137\138" maybeRead :: Read a => String -> Maybe a