calamity 0.1.22.1 → 0.1.23.0

raw patch · 5 files changed

+16/−13 lines, 5 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Calamity.Gateway.DispatchEvents: [$sel:roles:PresenceUpdateData] :: PresenceUpdateData -> Vector (Snowflake Role)

- Calamity.Types.Model.Presence.Presence: [$sel:game:Presence] :: Presence -> Maybe Activity

+ Calamity.Types.Model.Presence.Presence: [$sel:activities:Presence] :: Presence -> [Activity]

- Calamity.Cache.Eff: delDM :: forall r_a9h1l. MemberWithError CacheEff r_a9h1l => Snowflake DMChannel -> Sem r_a9h1l ()

+ Calamity.Cache.Eff: delDM :: forall r_a9h9y. MemberWithError CacheEff r_a9h9y => Snowflake DMChannel -> Sem r_a9h9y ()

- Calamity.Cache.Eff: delGuild :: forall r_a9h1e. MemberWithError CacheEff r_a9h1e => Snowflake Guild -> Sem r_a9h1e ()

+ Calamity.Cache.Eff: delGuild :: forall r_a9h9r. MemberWithError CacheEff r_a9h9r => Snowflake Guild -> Sem r_a9h9r ()

- Calamity.Cache.Eff: delMessage :: forall r_a9h1G. MemberWithError CacheEff r_a9h1G => Snowflake Message -> Sem r_a9h1G ()

+ Calamity.Cache.Eff: delMessage :: forall r_a9h9T. MemberWithError CacheEff r_a9h9T => Snowflake Message -> Sem r_a9h9T ()

- Calamity.Cache.Eff: delUnavailableGuild :: forall r_a9h1z. MemberWithError CacheEff r_a9h1z => Snowflake Guild -> Sem r_a9h1z ()

+ Calamity.Cache.Eff: delUnavailableGuild :: forall r_a9h9M. MemberWithError CacheEff r_a9h9M => Snowflake Guild -> Sem r_a9h9M ()

- Calamity.Cache.Eff: delUser :: forall r_a9h1s. MemberWithError CacheEff r_a9h1s => Snowflake User -> Sem r_a9h1s ()

+ Calamity.Cache.Eff: delUser :: forall r_a9h9F. MemberWithError CacheEff r_a9h9F => Snowflake User -> Sem r_a9h9F ()

- Calamity.Cache.Eff: getBotUser :: forall r_a9h16. MemberWithError CacheEff r_a9h16 => Sem r_a9h16 (Maybe User)

+ Calamity.Cache.Eff: getBotUser :: forall r_a9h9j. MemberWithError CacheEff r_a9h9j => Sem r_a9h9j (Maybe User)

- Calamity.Cache.Eff: getDM :: forall r_a9h1i. MemberWithError CacheEff r_a9h1i => Snowflake DMChannel -> Sem r_a9h1i (Maybe DMChannel)

+ Calamity.Cache.Eff: getDM :: forall r_a9h9v. MemberWithError CacheEff r_a9h9v => Snowflake DMChannel -> Sem r_a9h9v (Maybe DMChannel)

- Calamity.Cache.Eff: getDMs :: forall r_a9h1k. MemberWithError CacheEff r_a9h1k => Sem r_a9h1k [DMChannel]

+ Calamity.Cache.Eff: getDMs :: forall r_a9h9x. MemberWithError CacheEff r_a9h9x => Sem r_a9h9x [DMChannel]

- Calamity.Cache.Eff: getGuild :: forall r_a9h19. MemberWithError CacheEff r_a9h19 => Snowflake Guild -> Sem r_a9h19 (Maybe Guild)

+ Calamity.Cache.Eff: getGuild :: forall r_a9h9m. MemberWithError CacheEff r_a9h9m => Snowflake Guild -> Sem r_a9h9m (Maybe Guild)

- Calamity.Cache.Eff: getGuildChannel :: forall r_a9h1b. MemberWithError CacheEff r_a9h1b => Snowflake GuildChannel -> Sem r_a9h1b (Maybe GuildChannel)

+ Calamity.Cache.Eff: getGuildChannel :: forall r_a9h9o. MemberWithError CacheEff r_a9h9o => Snowflake GuildChannel -> Sem r_a9h9o (Maybe GuildChannel)

- Calamity.Cache.Eff: getGuilds :: forall r_a9h1d. MemberWithError CacheEff r_a9h1d => Sem r_a9h1d [Guild]

+ Calamity.Cache.Eff: getGuilds :: forall r_a9h9q. MemberWithError CacheEff r_a9h9q => Sem r_a9h9q [Guild]

- Calamity.Cache.Eff: getMessage :: forall r_a9h1D. MemberWithError CacheEff r_a9h1D => Snowflake Message -> Sem r_a9h1D (Maybe Message)

+ Calamity.Cache.Eff: getMessage :: forall r_a9h9Q. MemberWithError CacheEff r_a9h9Q => Snowflake Message -> Sem r_a9h9Q (Maybe Message)

- Calamity.Cache.Eff: getMessages :: forall r_a9h1F. MemberWithError CacheEff r_a9h1F => Sem r_a9h1F [Message]

+ Calamity.Cache.Eff: getMessages :: forall r_a9h9S. MemberWithError CacheEff r_a9h9S => Sem r_a9h9S [Message]

- Calamity.Cache.Eff: getUnavailableGuilds :: forall r_a9h1y. MemberWithError CacheEff r_a9h1y => Sem r_a9h1y [Snowflake Guild]

+ Calamity.Cache.Eff: getUnavailableGuilds :: forall r_a9h9L. MemberWithError CacheEff r_a9h9L => Sem r_a9h9L [Snowflake Guild]

- Calamity.Cache.Eff: getUser :: forall r_a9h1p. MemberWithError CacheEff r_a9h1p => Snowflake User -> Sem r_a9h1p (Maybe User)

+ Calamity.Cache.Eff: getUser :: forall r_a9h9C. MemberWithError CacheEff r_a9h9C => Snowflake User -> Sem r_a9h9C (Maybe User)

- Calamity.Cache.Eff: getUsers :: forall r_a9h1r. MemberWithError CacheEff r_a9h1r => Sem r_a9h1r [User]

+ Calamity.Cache.Eff: getUsers :: forall r_a9h9E. MemberWithError CacheEff r_a9h9E => Sem r_a9h9E [User]

- Calamity.Cache.Eff: isUnavailableGuild :: forall r_a9h1w. MemberWithError CacheEff r_a9h1w => Snowflake Guild -> Sem r_a9h1w Bool

+ Calamity.Cache.Eff: isUnavailableGuild :: forall r_a9h9J. MemberWithError CacheEff r_a9h9J => Snowflake Guild -> Sem r_a9h9J Bool

- Calamity.Cache.Eff: setBotUser :: forall r_a9h14. MemberWithError CacheEff r_a9h14 => User -> Sem r_a9h14 ()

+ Calamity.Cache.Eff: setBotUser :: forall r_a9h9h. MemberWithError CacheEff r_a9h9h => User -> Sem r_a9h9h ()

- Calamity.Cache.Eff: setDM :: forall r_a9h1g. MemberWithError CacheEff r_a9h1g => DMChannel -> Sem r_a9h1g ()

+ Calamity.Cache.Eff: setDM :: forall r_a9h9t. MemberWithError CacheEff r_a9h9t => DMChannel -> Sem r_a9h9t ()

- Calamity.Cache.Eff: setGuild :: forall r_a9h17. MemberWithError CacheEff r_a9h17 => Guild -> Sem r_a9h17 ()

+ Calamity.Cache.Eff: setGuild :: forall r_a9h9k. MemberWithError CacheEff r_a9h9k => Guild -> Sem r_a9h9k ()

- Calamity.Cache.Eff: setMessage :: forall r_a9h1B. MemberWithError CacheEff r_a9h1B => Message -> Sem r_a9h1B ()

+ Calamity.Cache.Eff: setMessage :: forall r_a9h9O. MemberWithError CacheEff r_a9h9O => Message -> Sem r_a9h9O ()

- Calamity.Cache.Eff: setUnavailableGuild :: forall r_a9h1u. MemberWithError CacheEff r_a9h1u => Snowflake Guild -> Sem r_a9h1u ()

+ Calamity.Cache.Eff: setUnavailableGuild :: forall r_a9h9H. MemberWithError CacheEff r_a9h9H => Snowflake Guild -> Sem r_a9h9H ()

- Calamity.Cache.Eff: setUser :: forall r_a9h1n. MemberWithError CacheEff r_a9h1n => User -> Sem r_a9h1n ()

+ Calamity.Cache.Eff: setUser :: forall r_a9h9A. MemberWithError CacheEff r_a9h9A => User -> Sem r_a9h9A ()

- Calamity.Commands.ParsePrefix: parsePrefix :: forall r_a6Und. MemberWithError ParsePrefix r_a6Und => Message -> Sem r_a6Und (Maybe (Text, Text))

+ Calamity.Commands.ParsePrefix: parsePrefix :: forall r_a6UsE. MemberWithError ParsePrefix r_a6UsE => Message -> Sem r_a6UsE (Maybe (Text, Text))

- Calamity.Gateway.DispatchEvents: PresenceUpdateData :: Snowflake User -> Vector (Snowflake Role) -> Presence -> PresenceUpdateData

+ Calamity.Gateway.DispatchEvents: PresenceUpdateData :: Snowflake User -> Presence -> PresenceUpdateData

- Calamity.Internal.LocalWriter: llisten :: forall o_arkt r_ars0 a_Xrkt. MemberWithError (LocalWriter o_arkt) r_ars0 => Sem r_ars0 a_Xrkt -> Sem r_ars0 (o_arkt, a_Xrkt)

+ Calamity.Internal.LocalWriter: llisten :: forall o_aroH r_arwe a_XroH. MemberWithError (LocalWriter o_aroH) r_arwe => Sem r_arwe a_XroH -> Sem r_arwe (o_aroH, a_XroH)

- Calamity.Internal.LocalWriter: ltell :: forall o_arkp r_arrY. MemberWithError (LocalWriter o_arkp) r_arrY => o_arkp -> Sem r_arrY ()

+ Calamity.Internal.LocalWriter: ltell :: forall o_aroD r_arwc. MemberWithError (LocalWriter o_aroD) r_arwc => o_aroD -> Sem r_arwc ()

- Calamity.Metrics.Eff: addCounter :: forall r_auXv. MemberWithError MetricEff r_auXv => Int -> Counter -> Sem r_auXv Int

+ Calamity.Metrics.Eff: addCounter :: forall r_av1J. MemberWithError MetricEff r_av1J => Int -> Counter -> Sem r_av1J Int

- Calamity.Metrics.Eff: modifyGauge :: forall r_auXy. MemberWithError MetricEff r_auXy => (Double -> Double) -> Gauge -> Sem r_auXy Double

+ Calamity.Metrics.Eff: modifyGauge :: forall r_av1M. MemberWithError MetricEff r_av1M => (Double -> Double) -> Gauge -> Sem r_av1M Double

- Calamity.Metrics.Eff: observeHistogram :: forall r_auXB. MemberWithError MetricEff r_auXB => Double -> Histogram -> Sem r_auXB HistogramSample

+ Calamity.Metrics.Eff: observeHistogram :: forall r_av1P. MemberWithError MetricEff r_av1P => Double -> Histogram -> Sem r_av1P HistogramSample

- Calamity.Metrics.Eff: registerCounter :: forall r_auXl. MemberWithError MetricEff r_auXl => Text -> [(Text, Text)] -> Sem r_auXl Counter

+ Calamity.Metrics.Eff: registerCounter :: forall r_av1z. MemberWithError MetricEff r_av1z => Text -> [(Text, Text)] -> Sem r_av1z Counter

- Calamity.Metrics.Eff: registerGauge :: forall r_auXo. MemberWithError MetricEff r_auXo => Text -> [(Text, Text)] -> Sem r_auXo Gauge

+ Calamity.Metrics.Eff: registerGauge :: forall r_av1C. MemberWithError MetricEff r_av1C => Text -> [(Text, Text)] -> Sem r_av1C Gauge

- Calamity.Metrics.Eff: registerHistogram :: forall r_auXr. MemberWithError MetricEff r_auXr => Text -> [(Text, Text)] -> [Double] -> Sem r_auXr Histogram

+ Calamity.Metrics.Eff: registerHistogram :: forall r_av1F. MemberWithError MetricEff r_av1F => Text -> [(Text, Text)] -> [Double] -> Sem r_av1F Histogram

- Calamity.Types.Model.Presence.Presence: Presence :: Snowflake User -> Maybe Activity -> Snowflake Guild -> StatusType -> ClientStatus -> Presence

+ Calamity.Types.Model.Presence.Presence: Presence :: Snowflake User -> Snowflake Guild -> StatusType -> [Activity] -> ClientStatus -> Presence

Files

ChangeLog.md +6/−0
calamity.cabal +2/−2
src/Calamity/Client/Client.hs +2/−3
src/Calamity/Gateway/DispatchEvents.hs +5/−7
src/Calamity/Types/Model/Presence/Presence.hs +1/−1

ChangeLog.md view

@@ -1,5 +1,11 @@ # Changelog for Calamity +## 0.1.23.0+++ The `roles` field was incorrectly present on the `PresenceUpdate` type, that+  field has been removed.++ The `game` field on `Presence` was changed to `activities :: [Activity]`+ ## 0.1.22.1  + Bump some upper bounds

calamity.cabal view

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: a5846981d4aa83053956a4f860e1145f8c044323b2d869cf4a670bad5106addf+-- hash: 1670c807d892d798e219ad1be5721bfa7b6c20eaf193322fbec3bd6cb25e7449  name:           calamity-version:        0.1.22.1+version:        0.1.23.0 synopsis:       A library for writing discord bots in haskell description:    Please see the README on GitHub at <https://github.com/nitros12/calamity#readme> category:       Network, Web

src/Calamity/Client/Client.hs view

@@ -698,9 +698,8 @@ updateCache (MessageReactionRemoveAll MessageReactionRemoveAllData { messageID }) =   updateMessage messageID (#reactions .~ mempty) -updateCache (PresenceUpdate PresenceUpdateData { userID, roles, presence }) =-  updateGuild (getID presence) ((#members . at (coerceSnowflake userID) . _Just . #roles .~ roles)-                                . (#presences . at userID ?~ presence))+updateCache (PresenceUpdate PresenceUpdateData { userID, presence }) =+  updateGuild (getID presence) (#presences . at userID ?~ presence)  updateCache (UserUpdate user) = setBotUser user

src/Calamity/Gateway/DispatchEvents.hs view

@@ -111,10 +111,10 @@   deriving FromJSON via CalamityJSON GuildMemberRemoveData  data GuildMemberUpdateData = GuildMemberUpdateData-  { guildID :: Snowflake Guild-  , roles   :: Vector (Snowflake Role)-  , user    :: User-  , nick    :: Maybe Text+  { guildID  :: Snowflake Guild+  , roles    :: Vector (Snowflake Role)+  , user     :: User+  , nick     :: Maybe Text   }   deriving ( Show, Generic )   deriving FromJSON via CalamityJSON GuildMemberUpdateData@@ -201,7 +201,6 @@  data PresenceUpdateData = PresenceUpdateData   { userID   :: Snowflake User-  , roles    :: Vector (Snowflake Role)   , presence :: Presence   }   deriving ( Show, Generic )@@ -209,9 +208,8 @@ instance FromJSON PresenceUpdateData where   parseJSON = withObject "PresenceUpdate" $ \v -> do     user <- (v .: "user") >>= (.: "id")-    roles <- v .: "roles"     presence <- parseJSON $ Object v-    pure $ PresenceUpdateData user roles presence+    pure $ PresenceUpdateData user presence  data TypingStartData = TypingStartData   { channelID :: Snowflake Channel

src/Calamity/Types/Model/Presence/Presence.hs view

@@ -20,9 +20,9 @@  data Presence = Presence   { user :: Snowflake User,-    game :: Maybe Activity,     guildID :: Snowflake Guild,     status :: StatusType,+    activities :: [Activity],     clientStatus :: ClientStatus   }   deriving (Eq, Show, Generic)