calamity 0.11.0.0 → 0.12.0.0
raw patch · 3 files changed
+14/−9 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
- Calamity.HTTP.Webhook: [$sel:username:CreateWebhookData] :: CreateWebhookData -> Maybe Text
- Calamity.HTTP.Webhook: [$sel:username:ExecuteWebhookOptions] :: ExecuteWebhookOptions -> Maybe Text
- Calamity.HTTP.Webhook: [$sel:username:ModifyWebhookData] :: ModifyWebhookData -> Maybe Text
- Calamity.HTTP.Webhook: instance (k GHC.Types.~ Optics.Internal.Optic.Types.A_Lens, a GHC.Types.~ GHC.Maybe.Maybe Data.Text.Internal.Text, b GHC.Types.~ GHC.Maybe.Maybe Data.Text.Internal.Text) => Optics.Label.LabelOptic "username" k Calamity.HTTP.Webhook.CreateWebhookData Calamity.HTTP.Webhook.CreateWebhookData a b
- Calamity.HTTP.Webhook: instance (k GHC.Types.~ Optics.Internal.Optic.Types.A_Lens, a GHC.Types.~ GHC.Maybe.Maybe Data.Text.Internal.Text, b GHC.Types.~ GHC.Maybe.Maybe Data.Text.Internal.Text) => Optics.Label.LabelOptic "username" k Calamity.HTTP.Webhook.ExecuteWebhookOptions Calamity.HTTP.Webhook.ExecuteWebhookOptions a b
- Calamity.HTTP.Webhook: instance (k GHC.Types.~ Optics.Internal.Optic.Types.A_Lens, a GHC.Types.~ GHC.Maybe.Maybe Data.Text.Internal.Text, b GHC.Types.~ GHC.Maybe.Maybe Data.Text.Internal.Text) => Optics.Label.LabelOptic "username" k Calamity.HTTP.Webhook.ModifyWebhookData Calamity.HTTP.Webhook.ModifyWebhookData a b
+ Calamity.HTTP.Webhook: [$sel:name:CreateWebhookData] :: CreateWebhookData -> Maybe Text
+ Calamity.HTTP.Webhook: [$sel:name:ExecuteWebhookOptions] :: ExecuteWebhookOptions -> Maybe Text
+ Calamity.HTTP.Webhook: [$sel:name:ModifyWebhookData] :: ModifyWebhookData -> Maybe Text
+ Calamity.HTTP.Webhook: instance (k GHC.Types.~ Optics.Internal.Optic.Types.A_Lens, a GHC.Types.~ GHC.Maybe.Maybe Data.Text.Internal.Text, b GHC.Types.~ GHC.Maybe.Maybe Data.Text.Internal.Text) => Optics.Label.LabelOptic "name" k Calamity.HTTP.Webhook.CreateWebhookData Calamity.HTTP.Webhook.CreateWebhookData a b
+ Calamity.HTTP.Webhook: instance (k GHC.Types.~ Optics.Internal.Optic.Types.A_Lens, a GHC.Types.~ GHC.Maybe.Maybe Data.Text.Internal.Text, b GHC.Types.~ GHC.Maybe.Maybe Data.Text.Internal.Text) => Optics.Label.LabelOptic "name" k Calamity.HTTP.Webhook.ExecuteWebhookOptions Calamity.HTTP.Webhook.ExecuteWebhookOptions a b
+ Calamity.HTTP.Webhook: instance (k GHC.Types.~ Optics.Internal.Optic.Types.A_Lens, a GHC.Types.~ GHC.Maybe.Maybe Data.Text.Internal.Text, b GHC.Types.~ GHC.Maybe.Maybe Data.Text.Internal.Text) => Optics.Label.LabelOptic "name" k Calamity.HTTP.Webhook.ModifyWebhookData Calamity.HTTP.Webhook.ModifyWebhookData a b
- Calamity.Cache.Eff: delDM :: forall r_a5PNS. Member CacheEff r_a5PNS => Snowflake DMChannel -> Sem r_a5PNS ()
+ Calamity.Cache.Eff: delDM :: forall r_a5Q75. Member CacheEff r_a5Q75 => Snowflake DMChannel -> Sem r_a5Q75 ()
- Calamity.Cache.Eff: delGuild :: forall r_a5PNL. Member CacheEff r_a5PNL => Snowflake Guild -> Sem r_a5PNL ()
+ Calamity.Cache.Eff: delGuild :: forall r_a5Q6Y. Member CacheEff r_a5Q6Y => Snowflake Guild -> Sem r_a5Q6Y ()
- Calamity.Cache.Eff: delMessage :: forall r_a5POd. Member CacheEff r_a5POd => Snowflake Message -> Sem r_a5POd ()
+ Calamity.Cache.Eff: delMessage :: forall r_a5Q7q. Member CacheEff r_a5Q7q => Snowflake Message -> Sem r_a5Q7q ()
- Calamity.Cache.Eff: delUnavailableGuild :: forall r_a5PO6. Member CacheEff r_a5PO6 => Snowflake Guild -> Sem r_a5PO6 ()
+ Calamity.Cache.Eff: delUnavailableGuild :: forall r_a5Q7j. Member CacheEff r_a5Q7j => Snowflake Guild -> Sem r_a5Q7j ()
- Calamity.Cache.Eff: delUser :: forall r_a5PNZ. Member CacheEff r_a5PNZ => Snowflake User -> Sem r_a5PNZ ()
+ Calamity.Cache.Eff: delUser :: forall r_a5Q7c. Member CacheEff r_a5Q7c => Snowflake User -> Sem r_a5Q7c ()
- Calamity.Cache.Eff: getBotUser :: forall r_a5PND. Member CacheEff r_a5PND => Sem r_a5PND (Maybe User)
+ Calamity.Cache.Eff: getBotUser :: forall r_a5Q6Q. Member CacheEff r_a5Q6Q => Sem r_a5Q6Q (Maybe User)
- Calamity.Cache.Eff: getDM :: forall r_a5PNP. Member CacheEff r_a5PNP => Snowflake DMChannel -> Sem r_a5PNP (Maybe DMChannel)
+ Calamity.Cache.Eff: getDM :: forall r_a5Q72. Member CacheEff r_a5Q72 => Snowflake DMChannel -> Sem r_a5Q72 (Maybe DMChannel)
- Calamity.Cache.Eff: getDMs :: forall r_a5PNR. Member CacheEff r_a5PNR => Sem r_a5PNR [DMChannel]
+ Calamity.Cache.Eff: getDMs :: forall r_a5Q74. Member CacheEff r_a5Q74 => Sem r_a5Q74 [DMChannel]
- Calamity.Cache.Eff: getGuild :: forall r_a5PNG. Member CacheEff r_a5PNG => Snowflake Guild -> Sem r_a5PNG (Maybe Guild)
+ Calamity.Cache.Eff: getGuild :: forall r_a5Q6T. Member CacheEff r_a5Q6T => Snowflake Guild -> Sem r_a5Q6T (Maybe Guild)
- Calamity.Cache.Eff: getGuildChannel :: forall r_a5PNI. Member CacheEff r_a5PNI => Snowflake GuildChannel -> Sem r_a5PNI (Maybe GuildChannel)
+ Calamity.Cache.Eff: getGuildChannel :: forall r_a5Q6V. Member CacheEff r_a5Q6V => Snowflake GuildChannel -> Sem r_a5Q6V (Maybe GuildChannel)
- Calamity.Cache.Eff: getGuilds :: forall r_a5PNK. Member CacheEff r_a5PNK => Sem r_a5PNK [Guild]
+ Calamity.Cache.Eff: getGuilds :: forall r_a5Q6X. Member CacheEff r_a5Q6X => Sem r_a5Q6X [Guild]
- Calamity.Cache.Eff: getMessage :: forall r_a5POa. Member CacheEff r_a5POa => Snowflake Message -> Sem r_a5POa (Maybe Message)
+ Calamity.Cache.Eff: getMessage :: forall r_a5Q7n. Member CacheEff r_a5Q7n => Snowflake Message -> Sem r_a5Q7n (Maybe Message)
- Calamity.Cache.Eff: getMessages :: forall r_a5POc. Member CacheEff r_a5POc => Sem r_a5POc [Message]
+ Calamity.Cache.Eff: getMessages :: forall r_a5Q7p. Member CacheEff r_a5Q7p => Sem r_a5Q7p [Message]
- Calamity.Cache.Eff: getUnavailableGuilds :: forall r_a5PO5. Member CacheEff r_a5PO5 => Sem r_a5PO5 [Snowflake Guild]
+ Calamity.Cache.Eff: getUnavailableGuilds :: forall r_a5Q7i. Member CacheEff r_a5Q7i => Sem r_a5Q7i [Snowflake Guild]
- Calamity.Cache.Eff: getUser :: forall r_a5PNW. Member CacheEff r_a5PNW => Snowflake User -> Sem r_a5PNW (Maybe User)
+ Calamity.Cache.Eff: getUser :: forall r_a5Q79. Member CacheEff r_a5Q79 => Snowflake User -> Sem r_a5Q79 (Maybe User)
- Calamity.Cache.Eff: getUsers :: forall r_a5PNY. Member CacheEff r_a5PNY => Sem r_a5PNY [User]
+ Calamity.Cache.Eff: getUsers :: forall r_a5Q7b. Member CacheEff r_a5Q7b => Sem r_a5Q7b [User]
- Calamity.Cache.Eff: isUnavailableGuild :: forall r_a5PO3. Member CacheEff r_a5PO3 => Snowflake Guild -> Sem r_a5PO3 Bool
+ Calamity.Cache.Eff: isUnavailableGuild :: forall r_a5Q7g. Member CacheEff r_a5Q7g => Snowflake Guild -> Sem r_a5Q7g Bool
- Calamity.Cache.Eff: setBotUser :: forall r_a5PNB. Member CacheEff r_a5PNB => User -> Sem r_a5PNB ()
+ Calamity.Cache.Eff: setBotUser :: forall r_a5Q6O. Member CacheEff r_a5Q6O => User -> Sem r_a5Q6O ()
- Calamity.Cache.Eff: setDM :: forall r_a5PNN. Member CacheEff r_a5PNN => DMChannel -> Sem r_a5PNN ()
+ Calamity.Cache.Eff: setDM :: forall r_a5Q70. Member CacheEff r_a5Q70 => DMChannel -> Sem r_a5Q70 ()
- Calamity.Cache.Eff: setGuild :: forall r_a5PNE. Member CacheEff r_a5PNE => Guild -> Sem r_a5PNE ()
+ Calamity.Cache.Eff: setGuild :: forall r_a5Q6R. Member CacheEff r_a5Q6R => Guild -> Sem r_a5Q6R ()
- Calamity.Cache.Eff: setMessage :: forall r_a5PO8. Member CacheEff r_a5PO8 => Message -> Sem r_a5PO8 ()
+ Calamity.Cache.Eff: setMessage :: forall r_a5Q7l. Member CacheEff r_a5Q7l => Message -> Sem r_a5Q7l ()
- Calamity.Cache.Eff: setUnavailableGuild :: forall r_a5PO1. Member CacheEff r_a5PO1 => Snowflake Guild -> Sem r_a5PO1 ()
+ Calamity.Cache.Eff: setUnavailableGuild :: forall r_a5Q7e. Member CacheEff r_a5Q7e => Snowflake Guild -> Sem r_a5Q7e ()
- Calamity.Cache.Eff: setUser :: forall r_a5PNU. Member CacheEff r_a5PNU => User -> Sem r_a5PNU ()
+ Calamity.Cache.Eff: setUser :: forall r_a5Q77. Member CacheEff r_a5Q77 => User -> Sem r_a5Q77 ()
- Calamity.HTTP.Internal.Ratelimit: getRatelimitState :: forall r_a4wQH. Member RatelimitEff r_a4wQH => Sem r_a4wQH RateLimitState
+ Calamity.HTTP.Internal.Ratelimit: getRatelimitState :: forall r_a4xez. Member RatelimitEff r_a4xez => Sem r_a4xez RateLimitState
- Calamity.Interactions.Eff: getInteraction :: forall r_a4oIp. Member InteractionEff r_a4oIp => Sem r_a4oIp Interaction
+ Calamity.Interactions.Eff: getInteraction :: forall r_a4p6k. Member InteractionEff r_a4p6k => Sem r_a4p6k Interaction
- Calamity.Interactions.View: endView :: forall ret_a7L7J inp_a7L7K sendResp_a7L7L r_a7Lni. Member (ViewEff ret_a7L7J inp_a7L7K sendResp_a7L7L) r_a7Lni => ret_a7L7J -> Sem r_a7Lni ()
+ Calamity.Interactions.View: endView :: forall ret_a7LqW inp_a7LqX sendResp_a7LqY r_a7LGv. Member (ViewEff ret_a7LqW inp_a7LqX sendResp_a7LqY) r_a7LGv => ret_a7LqW -> Sem r_a7LGv ()
- Calamity.Interactions.View: getSendResponse :: forall ret_a7L7R inp_a7L7S sendResp_a7L7T r_a7Lnn. Member (ViewEff ret_a7L7R inp_a7L7S sendResp_a7L7T) r_a7Lnn => Sem r_a7Lnn sendResp_a7L7T
+ Calamity.Interactions.View: getSendResponse :: forall ret_a7Lr4 inp_a7Lr5 sendResp_a7Lr6 r_a7LGA. Member (ViewEff ret_a7Lr4 inp_a7Lr5 sendResp_a7Lr6) r_a7LGA => Sem r_a7LGA sendResp_a7Lr6
- Calamity.Interactions.View: replaceView :: forall ret_a7L7P inp_a7L7N sendResp_a7L7Q r_a7Lnk. Member (ViewEff ret_a7L7P inp_a7L7N sendResp_a7L7Q) r_a7Lnk => View inp_a7L7N -> ([Component] -> Sem r_a7Lnk ()) -> Sem r_a7Lnk ()
+ Calamity.Interactions.View: replaceView :: forall ret_a7Lr2 inp_a7Lr0 sendResp_a7Lr3 r_a7LGx. Member (ViewEff ret_a7Lr2 inp_a7Lr0 sendResp_a7Lr3) r_a7LGx => View inp_a7Lr0 -> ([Component] -> Sem r_a7LGx ()) -> Sem r_a7LGx ()
- Calamity.Internal.LocalWriter: llisten :: forall o_awin r_awjS a_X0. Member (LocalWriter o_awin) r_awjS => Sem r_awjS a_X0 -> Sem r_awjS (o_awin, a_X0)
+ Calamity.Internal.LocalWriter: llisten :: forall o_awsQ r_awul a_X0. Member (LocalWriter o_awsQ) r_awul => Sem r_awul a_X0 -> Sem r_awul (o_awsQ, a_X0)
- Calamity.Internal.LocalWriter: ltell :: forall o_awij r_awjQ. Member (LocalWriter o_awij) r_awjQ => o_awij -> Sem r_awjQ ()
+ Calamity.Internal.LocalWriter: ltell :: forall o_awsM r_awuj. Member (LocalWriter o_awsM) r_awuj => o_awsM -> Sem r_awuj ()
- Calamity.Metrics.Eff: addCounter :: forall r_axOW. Member MetricEff r_axOW => Int -> Counter -> Sem r_axOW Int
+ Calamity.Metrics.Eff: addCounter :: forall r_axZp. Member MetricEff r_axZp => Int -> Counter -> Sem r_axZp Int
- Calamity.Metrics.Eff: modifyGauge :: forall r_axOZ. Member MetricEff r_axOZ => (Double -> Double) -> Gauge -> Sem r_axOZ Double
+ Calamity.Metrics.Eff: modifyGauge :: forall r_axZs. Member MetricEff r_axZs => (Double -> Double) -> Gauge -> Sem r_axZs Double
- Calamity.Metrics.Eff: observeHistogram :: forall r_axP2. Member MetricEff r_axP2 => Double -> Histogram -> Sem r_axP2 HistogramSample
+ Calamity.Metrics.Eff: observeHistogram :: forall r_axZv. Member MetricEff r_axZv => Double -> Histogram -> Sem r_axZv HistogramSample
- Calamity.Metrics.Eff: registerCounter :: forall r_axOM. Member MetricEff r_axOM => Text -> [(Text, Text)] -> Sem r_axOM Counter
+ Calamity.Metrics.Eff: registerCounter :: forall r_axZf. Member MetricEff r_axZf => Text -> [(Text, Text)] -> Sem r_axZf Counter
- Calamity.Metrics.Eff: registerGauge :: forall r_axOP. Member MetricEff r_axOP => Text -> [(Text, Text)] -> Sem r_axOP Gauge
+ Calamity.Metrics.Eff: registerGauge :: forall r_axZi. Member MetricEff r_axZi => Text -> [(Text, Text)] -> Sem r_axZi Gauge
- Calamity.Metrics.Eff: registerHistogram :: forall r_axOS. Member MetricEff r_axOS => Text -> [(Text, Text)] -> [Double] -> Sem r_axOS Histogram
+ Calamity.Metrics.Eff: registerHistogram :: forall r_axZl. Member MetricEff r_axZl => Text -> [(Text, Text)] -> [Double] -> Sem r_axZl Histogram
- Calamity.Types.TokenEff: getBotToken :: forall r_a1NT6. Member TokenEff r_a1NT6 => Sem r_a1NT6 Token
+ Calamity.Types.TokenEff: getBotToken :: forall r_a1Oh1. Member TokenEff r_a1Oh1 => Sem r_a1Oh1 Token
Files
- Calamity/HTTP/Webhook.hs +7/−7
- ChangeLog.md +5/−0
- calamity.cabal +2/−2
Calamity/HTTP/Webhook.hs view
@@ -26,7 +26,7 @@ import Optics data CreateWebhookData = CreateWebhookData- { username :: Maybe Text+ { name :: Maybe Text , avatar :: Maybe Text -- ^ The avatar field should be in discord's image data format: https://discord.com/developers/docs/reference#image-data }@@ -35,7 +35,7 @@ instance CalamityToJSON' CreateWebhookData where toPairs CreateWebhookData {..} =- [ "username" .?= username+ [ "name" .?= name , "avatar" .?= avatar ] @@ -43,7 +43,7 @@ def = CreateWebhookData Nothing Nothing data ModifyWebhookData = ModifyWebhookData- { username :: Maybe Text+ { name :: Maybe Text , avatar :: Maybe Text -- ^ The avatar field should be in discord's image data format: https://discord.com/developers/docs/reference#image-data , channelID :: Maybe (Snowflake Channel)@@ -53,7 +53,7 @@ instance CalamityToJSON' ModifyWebhookData where toPairs ModifyWebhookData {..} =- [ "username" .?= username+ [ "name" .?= name , "avatar" .?= avatar , "channel_id" .?= channelID ]@@ -66,7 +66,7 @@ , content :: Maybe Text , attachments :: [CreateMessageAttachment] , embeds :: Maybe [Embed]- , username :: Maybe Text+ , name :: Maybe Text , avatarUrl :: Maybe Text , allowedMentions :: Maybe AllowedMentions , tts :: Maybe Bool@@ -95,7 +95,7 @@ data ExecuteWebhookJson = ExecuteWebhookJson { content :: Maybe Text , embeds :: Maybe [Embed]- , username :: Maybe Text+ , name :: Maybe Text , avatarUrl :: Maybe Text , tts :: Maybe Bool , attachments :: [CreateMessageAttachmentJson]@@ -207,7 +207,7 @@ jsonBody = ExecuteWebhookJson { content = wh ^. #content- , username = wh ^. #username+ , name = wh ^. #name , avatarUrl = wh ^. #avatarUrl , tts = wh ^. #tts , embeds = wh ^. #embeds
ChangeLog.md view
@@ -1,5 +1,10 @@ # Changelog for Calamity +## 0.12.0.0+++ Field names in `Calamity.HTTP.Webhook` were mistakenly `username` instead of+ the required `name`, these fields were renamed to be correct. (Reported by @MorrowM)+ ## 0.11.0.0 + Added support for Aeson 2.2 @Miezhiko
calamity.cabal view
@@ -1,6 +1,6 @@ cabal-version: 2.0 name: calamity-version: 0.11.0.0+version: 0.12.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>@@ -14,7 +14,7 @@ license: MIT license-file: LICENSE build-type: Simple-tested-with: GHC ==9.6.4+tested-with: GHC ==9.6.5 extra-source-files: ChangeLog.md README.md