# HG changeset patch # User unc0rr # Date 1250091149 0 # Node ID 1c106b0d36da58d0f4057c1969e3109b022eb6b4 # Parent 4c39fb2bea6e06766a50bdc34ed3d0906598ce9c Don't filter +left command :D 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