skip irrelevant updates#23

[AKitavtsev]

У меня бот в сообществе настроен так, чтоб пропускал сообщения, которые согласно ТЗ обрабатывать не должен был. Поэтому, у меня все работало. Может быть, достаточно, было в Readme указать эти настройки. Но, решил, обходить эти апдейты а коде. Тем более, до этих настроек еще добраться нужно.

Исправлено### Но, проверить не смог. До настроек не добрался.

[AKitavtsev]

чуть поправил. Так правильней

[olegromashin]

Теперь вообще ни на что не реагирует:

DEBUG -- ResponseBody:{"ts":"83","updates":[{"type":"message_typing_state","object":{"state":"typing","from_id":83289289,"to_id":-35451799},"group_id":35451799,"event_id":"ca96e97548a3107d8099aaf3137e19a99346d90b"}]}

DEBUG-- answer  Answer {a_ts = Nothing, a_updates = Nothing, a_failed = Nothing}
WARN -- skipping irrelevant update
DEBUG getUpdates In -- DataLoop = 
 DataLoop {session = Session {key = "208144f564fae3d463541552f9e5c77bfb2f4db7", server = "https://lp.vk.com/wh35451799", ts = "82"}, updates = [], dictionary = fromList [], offset = "0"}
DEBUG -- ResponseBody:{"failed":1,"ts":83}

DEBUG-- answer  Answer {a_ts = Nothing, a_updates = Nothing, a_failed = Nothing}
WARN -- skipping irrelevant update
DEBUG getUpdates In -- DataLoop = 
 DataLoop {session = Session {key = "208144f564fae3d463541552f9e5c77bfb2f4db7", server = "https://lp.vk.com/wh35451799", ts = "82"}, updates = [], dictionary = fromList [], offset = "0"}
DEBUG -- ResponseBody:{"failed":1,"ts":83}

DEBUG-- answer  Answer {a_ts = Nothing, a_updates = Nothing, a_failed = Nothing}
WARN -- skipping irrelevant update
DEBUG getUpdates In -- DataLoop = 
 DataLoop {session = Session {key = "208144f564fae3d463541552f9e5c77bfb2f4db7", server = "https://lp.vk.com/wh35451799", ts = "82"}, updates = [], dictionary = fromList [], offset = "0"}
DEBUG -- ResponseBody:{"failed":1,"ts":83}

DEBUG-- answer  Answer {a_ts = Nothing, a_updates = Nothing, a_failed = Nothing}
WARN -- skipping irrelevant update
DEBUG getUpdates In -- DataLoop = 
 DataLoop {session = Session {key = "208144f564fae3d463541552f9e5c77bfb2f4db7", server = "https://lp.vk.com/wh35451799", ts = "82"}, updates = [], dictionary = fromList [], offset = "0"}
DEBUG -- ResponseBody:{"failed":1,"ts":83}

[AKitavtsev]

Исправил