calamity 0.5.0.0 → 0.6.0.0

raw patch · 4 files changed

+19/−8 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Calamity/Client/Client.hs +4/−4
• Calamity/Client/Types.hs +3/−3
• ChangeLog.md +11/−0
• calamity.cabal +1/−1

@@ -518,19 +518,19 @@   updateCache evt   Just guild <- getGuild gid   Just member <- pure $ guild ^. #members % at (getID member)-  pure $ map ($ member) (getEventHandlers @'GuildMemberAddEvt eh)+  pure $ map ($ (guild, member)) (getEventHandlers @'GuildMemberAddEvt eh) handleEvent' eh evt@(GuildMemberRemove GuildMemberRemoveData {user, guildID}) = do   Just guild <- getGuild guildID   Just member <- pure $ guild ^. #members % at (getID user)   updateCache evt-  pure $ map ($ member) (getEventHandlers @'GuildMemberRemoveEvt eh)+  pure $ map ($ (guild, member)) (getEventHandlers @'GuildMemberRemoveEvt eh) handleEvent' eh evt@(GuildMemberUpdate GuildMemberUpdateData {user, guildID}) = do   Just oldGuild <- getGuild guildID   Just oldMember <- pure $ oldGuild ^. #members % at (getID user)   updateCache evt   Just newGuild <- getGuild guildID   Just newMember <- pure $ newGuild ^. #members % at (getID user)-  pure $ map ($ (oldMember, newMember)) (getEventHandlers @'GuildMemberUpdateEvt eh)+  pure $ map ($ (newGuild, oldMember, newMember)) (getEventHandlers @'GuildMemberUpdateEvt eh) handleEvent' eh evt@(GuildMembersChunk GuildMembersChunkData {members, guildID}) = do   updateCache evt   Just guild <- getGuild guildID@@ -641,7 +641,7 @@         if oldUser /= newUser           then map ($ (oldUser, newUser)) (getEventHandlers @'UserUpdateEvt eh)           else mempty-  pure $ userUpdates <> map ($ (oldMember, newMember)) (getEventHandlers @'GuildMemberUpdateEvt eh)+  pure $ userUpdates <> map ($ (newGuild, oldMember, newMember)) (getEventHandlers @'GuildMemberUpdateEvt eh) handleEvent' eh (TypingStart TypingStartData {channelID, guildID, userID, timestamp = UnixTimestamp timestamp}) =   case guildID of     Just gid -> do

@@ -201,9 +201,9 @@   EHType 'GuildBanRemoveEvt = (Guild, User)   EHType 'GuildEmojisUpdateEvt = (Guild, [Emoji])   EHType 'GuildIntegrationsUpdateEvt = Guild-  EHType 'GuildMemberAddEvt = Member-  EHType 'GuildMemberRemoveEvt = Member-  EHType 'GuildMemberUpdateEvt = (Member, Member)+  EHType 'GuildMemberAddEvt = (Guild, Member)+  EHType 'GuildMemberRemoveEvt = (Guild, Member)+  EHType 'GuildMemberUpdateEvt = (Guild, Member, Member)   EHType 'GuildMembersChunkEvt = (Guild, [Member])   EHType 'GuildRoleCreateEvt = (Guild, Role)   EHType 'GuildRoleUpdateEvt = (Guild, Role, Role)

@@ -1,5 +1,16 @@ # Changelog for Calamity +## 0.6.0.0+++ Updated the events `GuildMemberAddEvt`, `GuildMemberRemoveEvt`, and+  `GuildMemberUpdateEvt` to include the relevant `Guild`.+  +```hs+EHType 'GuildMemberAddEvt = (Guild, Member)+EHType 'GuildMemberRemoveEvt = (Guild, Member)+EHType 'GuildMemberUpdateEvt = (Guild, Member, Member)+```+ ## 0.5.0.0  + Replaced lens with optics internally, you should use optics for field labels now.

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           calamity-version:        0.5.0.0+version:        0.6.0.0 synopsis:       A library for writing discord bots in haskell description:    Please see the README on GitHub at <https://github.com/simmsb/calamity#readme> category:       Network, Web