From 138cd558bd195f710795e0b883f2c372367a0930 Mon Sep 17 00:00:00 2001
From: Bart Post <bart.post@gmail.com>
Date: Thu, 25 Jul 2019 07:33:41 +0200
Subject: [PATCH 1/3] Add "desktop_notification" event (without contents)

Don't bother me ;)
---
 src/Web/Slack/Types/Event.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Web/Slack/Types/Event.hs b/src/Web/Slack/Types/Event.hs
index 6426546..b420a16 100644
--- a/src/Web/Slack/Types/Event.hs
+++ b/src/Web/Slack/Types/Event.hs
@@ -41,6 +41,7 @@ data Event where
   ChannelRename :: ChannelRenameInfo -> Event
   ChannelUnarchive :: ChannelId -> UserId -> Event
   CommandsChanged :: SlackTimeStamp -> Event
+  DesktopNotification :: Event
   EmailDomainChange :: Domain -> SlackTimeStamp -> Event
   EmojiChanged :: SlackTimeStamp -> Event
   FileChange  :: File -> Event
@@ -128,6 +129,7 @@ parseType o@(Object v) typ =
       "channel_rename"  -> ChannelRename <$> v .: "channel"
       "channel_unarchive" -> ChannelUnarchive <$> v .: "channel" <*> v .: "user"
       "commands_changed" -> CommandsChanged <$> v .: "event_ts"
+      "desktop_notification" -> pure DesktopNotification
       "email_domain_changed" -> EmailDomainChange <$> v .: "email_domain" <*> v .: "event_ts"
       "emoji_changed" -> EmojiChanged <$> v .: "event_ts"
       "file_change"  -> FileChange <$> v .: "file"

From 7bc5d816a5e9ad2ca523f8a8491b5beee2a17f84 Mon Sep 17 00:00:00 2001
From: Bart Post <bart.post@gmail.com>
Date: Fri, 26 Jul 2019 17:03:19 +0200
Subject: [PATCH 2/3] Add "member_joined_channel" event

---
 src/Web/Slack/Types/Event.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Web/Slack/Types/Event.hs b/src/Web/Slack/Types/Event.hs
index b420a16..cfd287f 100644
--- a/src/Web/Slack/Types/Event.hs
+++ b/src/Web/Slack/Types/Event.hs
@@ -71,6 +71,7 @@ data Event where
   ImMarked :: IMId -> SlackTimeStamp -> Event
   ImOpen :: UserId -> IMId -> Event
   ManualPresenceChange :: Presence -> Event
+  MemberJoinedChannel :: ChannelId -> SlackTimeStamp -> UserId {- inviter -} -> UserId {- invitee -} -> Event
   Message :: ChannelId -> Submitter -> Text -> SlackTimeStamp -> Maybe Subtype -> Maybe Edited -> Event
   MessageError :: Int -> SlackError -> Event
   MessageResponse :: Int -> SlackTimeStamp -> Text -> Event
@@ -158,6 +159,7 @@ parseType o@(Object v) typ =
       "im_marked" -> ImMarked <$> v .: "channel" <*> v .: "ts"
       "im_open"     -> ImOpen <$> v .: "user" <*> v .: "channel"
       "manual_presence_change" -> ManualPresenceChange <$> v .: "presence"
+      "member_joined_channel" -> MemberJoinedChannel <$> v.: "channel" <*> v.: "event_ts" <*> v.: "inviter" <*> v.: "user"
       "message" -> do
         subt <- (\case
                   Nothing -> return Nothing

From 3a0de8c4cf51c6784f9c9efbc547a05d3eeacb4b Mon Sep 17 00:00:00 2001
From: Bart Post <bart.post@gmail.com>
Date: Sat, 10 Aug 2019 11:47:01 +0200
Subject: [PATCH 3/3] Add "goodbye" event

---
 src/Web/Slack/Types/Event.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Web/Slack/Types/Event.hs b/src/Web/Slack/Types/Event.hs
index cfd287f..15504df 100644
--- a/src/Web/Slack/Types/Event.hs
+++ b/src/Web/Slack/Types/Event.hs
@@ -54,6 +54,7 @@ data Event where
   FilePublic :: FileReference -> Event
   FileShared :: FileReference -> Event
   FileUnshared :: File -> Event
+  Goodbye :: Event
   GroupArchive :: ChannelId -> Event
   GroupClose :: UserId -> ChannelId -> Event
   GroupHistoryChanged :: SlackTimeStamp -> SlackTimeStamp -> SlackTimeStamp -> Event
@@ -143,6 +144,7 @@ parseType o@(Object v) typ =
       "file_public"  -> FilePublic <$> v .: "file"
       "file_shared"  -> FileShared <$> v .: "file"
       "file_unshared" -> FileUnshared <$> v .: "file"
+      "goodbye" -> pure Goodbye
       "group_archive" -> GroupArchive <$> v .: "channel"
       "group_close" -> GroupClose <$> v .: "user" <*> v .: "channel"
       "group_history_changed" -> GroupHistoryChanged <$> v .: "latest" <*> v .: "ts" <*> v .: "event_ts"