calamity 0.1.25.0 → 0.1.25.1
raw patch · 3 files changed
+33/−2 lines, 3 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
+ Calamity.Types.Upgradeable: instance Calamity.Types.Upgradeable.Upgradeable Calamity.Types.Model.Channel.DM.DMChannel (Calamity.Types.Snowflake.Snowflake Calamity.Types.Model.Channel.DM.DMChannel)
+ Calamity.Types.Upgradeable: instance Calamity.Types.Upgradeable.Upgradeable Calamity.Types.Model.Channel.Group.GroupChannel (Calamity.Types.Snowflake.Snowflake Calamity.Types.Model.Channel.Group.GroupChannel)
+ Calamity.Types.Upgradeable: instance Calamity.Types.Upgradeable.Upgradeable Calamity.Types.Model.Channel.Guild.Category.Category (Calamity.Types.Snowflake.Snowflake Calamity.Types.Model.Channel.Guild.Category.Category)
+ Calamity.Types.Upgradeable: instance Calamity.Types.Upgradeable.Upgradeable Calamity.Types.Model.Channel.Guild.Text.TextChannel (Calamity.Types.Snowflake.Snowflake Calamity.Types.Model.Channel.Guild.Text.TextChannel)
+ Calamity.Types.Upgradeable: instance Calamity.Types.Upgradeable.Upgradeable Calamity.Types.Model.Channel.Guild.Voice.VoiceChannel (Calamity.Types.Snowflake.Snowflake Calamity.Types.Model.Channel.Guild.Voice.VoiceChannel)
- Calamity.Cache.Eff: delDM :: forall r_a9mAK. MemberWithError CacheEff r_a9mAK => Snowflake DMChannel -> Sem r_a9mAK ()
+ Calamity.Cache.Eff: delDM :: forall r_a9mBj. MemberWithError CacheEff r_a9mBj => Snowflake DMChannel -> Sem r_a9mBj ()
- Calamity.Cache.Eff: delGuild :: forall r_a9mAD. MemberWithError CacheEff r_a9mAD => Snowflake Guild -> Sem r_a9mAD ()
+ Calamity.Cache.Eff: delGuild :: forall r_a9mBc. MemberWithError CacheEff r_a9mBc => Snowflake Guild -> Sem r_a9mBc ()
- Calamity.Cache.Eff: delMessage :: forall r_a9mB5. MemberWithError CacheEff r_a9mB5 => Snowflake Message -> Sem r_a9mB5 ()
+ Calamity.Cache.Eff: delMessage :: forall r_a9mBE. MemberWithError CacheEff r_a9mBE => Snowflake Message -> Sem r_a9mBE ()
- Calamity.Cache.Eff: delUnavailableGuild :: forall r_a9mAY. MemberWithError CacheEff r_a9mAY => Snowflake Guild -> Sem r_a9mAY ()
+ Calamity.Cache.Eff: delUnavailableGuild :: forall r_a9mBx. MemberWithError CacheEff r_a9mBx => Snowflake Guild -> Sem r_a9mBx ()
- Calamity.Cache.Eff: delUser :: forall r_a9mAR. MemberWithError CacheEff r_a9mAR => Snowflake User -> Sem r_a9mAR ()
+ Calamity.Cache.Eff: delUser :: forall r_a9mBq. MemberWithError CacheEff r_a9mBq => Snowflake User -> Sem r_a9mBq ()
- Calamity.Cache.Eff: getBotUser :: forall r_a9mAv. MemberWithError CacheEff r_a9mAv => Sem r_a9mAv (Maybe User)
+ Calamity.Cache.Eff: getBotUser :: forall r_a9mB4. MemberWithError CacheEff r_a9mB4 => Sem r_a9mB4 (Maybe User)
- Calamity.Cache.Eff: getDM :: forall r_a9mAH. MemberWithError CacheEff r_a9mAH => Snowflake DMChannel -> Sem r_a9mAH (Maybe DMChannel)
+ Calamity.Cache.Eff: getDM :: forall r_a9mBg. MemberWithError CacheEff r_a9mBg => Snowflake DMChannel -> Sem r_a9mBg (Maybe DMChannel)
- Calamity.Cache.Eff: getDMs :: forall r_a9mAJ. MemberWithError CacheEff r_a9mAJ => Sem r_a9mAJ [DMChannel]
+ Calamity.Cache.Eff: getDMs :: forall r_a9mBi. MemberWithError CacheEff r_a9mBi => Sem r_a9mBi [DMChannel]
- Calamity.Cache.Eff: getGuild :: forall r_a9mAy. MemberWithError CacheEff r_a9mAy => Snowflake Guild -> Sem r_a9mAy (Maybe Guild)
+ Calamity.Cache.Eff: getGuild :: forall r_a9mB7. MemberWithError CacheEff r_a9mB7 => Snowflake Guild -> Sem r_a9mB7 (Maybe Guild)
- Calamity.Cache.Eff: getGuildChannel :: forall r_a9mAA. MemberWithError CacheEff r_a9mAA => Snowflake GuildChannel -> Sem r_a9mAA (Maybe GuildChannel)
+ Calamity.Cache.Eff: getGuildChannel :: forall r_a9mB9. MemberWithError CacheEff r_a9mB9 => Snowflake GuildChannel -> Sem r_a9mB9 (Maybe GuildChannel)
- Calamity.Cache.Eff: getGuilds :: forall r_a9mAC. MemberWithError CacheEff r_a9mAC => Sem r_a9mAC [Guild]
+ Calamity.Cache.Eff: getGuilds :: forall r_a9mBb. MemberWithError CacheEff r_a9mBb => Sem r_a9mBb [Guild]
- Calamity.Cache.Eff: getMessage :: forall r_a9mB2. MemberWithError CacheEff r_a9mB2 => Snowflake Message -> Sem r_a9mB2 (Maybe Message)
+ Calamity.Cache.Eff: getMessage :: forall r_a9mBB. MemberWithError CacheEff r_a9mBB => Snowflake Message -> Sem r_a9mBB (Maybe Message)
- Calamity.Cache.Eff: getMessages :: forall r_a9mB4. MemberWithError CacheEff r_a9mB4 => Sem r_a9mB4 [Message]
+ Calamity.Cache.Eff: getMessages :: forall r_a9mBD. MemberWithError CacheEff r_a9mBD => Sem r_a9mBD [Message]
- Calamity.Cache.Eff: getUnavailableGuilds :: forall r_a9mAX. MemberWithError CacheEff r_a9mAX => Sem r_a9mAX [Snowflake Guild]
+ Calamity.Cache.Eff: getUnavailableGuilds :: forall r_a9mBw. MemberWithError CacheEff r_a9mBw => Sem r_a9mBw [Snowflake Guild]
- Calamity.Cache.Eff: getUser :: forall r_a9mAO. MemberWithError CacheEff r_a9mAO => Snowflake User -> Sem r_a9mAO (Maybe User)
+ Calamity.Cache.Eff: getUser :: forall r_a9mBn. MemberWithError CacheEff r_a9mBn => Snowflake User -> Sem r_a9mBn (Maybe User)
- Calamity.Cache.Eff: getUsers :: forall r_a9mAQ. MemberWithError CacheEff r_a9mAQ => Sem r_a9mAQ [User]
+ Calamity.Cache.Eff: getUsers :: forall r_a9mBp. MemberWithError CacheEff r_a9mBp => Sem r_a9mBp [User]
- Calamity.Cache.Eff: isUnavailableGuild :: forall r_a9mAV. MemberWithError CacheEff r_a9mAV => Snowflake Guild -> Sem r_a9mAV Bool
+ Calamity.Cache.Eff: isUnavailableGuild :: forall r_a9mBu. MemberWithError CacheEff r_a9mBu => Snowflake Guild -> Sem r_a9mBu Bool
- Calamity.Cache.Eff: setBotUser :: forall r_a9mAt. MemberWithError CacheEff r_a9mAt => User -> Sem r_a9mAt ()
+ Calamity.Cache.Eff: setBotUser :: forall r_a9mB2. MemberWithError CacheEff r_a9mB2 => User -> Sem r_a9mB2 ()
- Calamity.Cache.Eff: setDM :: forall r_a9mAF. MemberWithError CacheEff r_a9mAF => DMChannel -> Sem r_a9mAF ()
+ Calamity.Cache.Eff: setDM :: forall r_a9mBe. MemberWithError CacheEff r_a9mBe => DMChannel -> Sem r_a9mBe ()
- Calamity.Cache.Eff: setGuild :: forall r_a9mAw. MemberWithError CacheEff r_a9mAw => Guild -> Sem r_a9mAw ()
+ Calamity.Cache.Eff: setGuild :: forall r_a9mB5. MemberWithError CacheEff r_a9mB5 => Guild -> Sem r_a9mB5 ()
- Calamity.Cache.Eff: setMessage :: forall r_a9mB0. MemberWithError CacheEff r_a9mB0 => Message -> Sem r_a9mB0 ()
+ Calamity.Cache.Eff: setMessage :: forall r_a9mBz. MemberWithError CacheEff r_a9mBz => Message -> Sem r_a9mBz ()
- Calamity.Cache.Eff: setUnavailableGuild :: forall r_a9mAT. MemberWithError CacheEff r_a9mAT => Snowflake Guild -> Sem r_a9mAT ()
+ Calamity.Cache.Eff: setUnavailableGuild :: forall r_a9mBs. MemberWithError CacheEff r_a9mBs => Snowflake Guild -> Sem r_a9mBs ()
- Calamity.Cache.Eff: setUser :: forall r_a9mAM. MemberWithError CacheEff r_a9mAM => User -> Sem r_a9mAM ()
+ Calamity.Cache.Eff: setUser :: forall r_a9mBl. MemberWithError CacheEff r_a9mBl => User -> Sem r_a9mBl ()
- Calamity.Commands.ParsePrefix: parsePrefix :: forall r_a6Xg8. MemberWithError ParsePrefix r_a6Xg8 => Message -> Sem r_a6Xg8 (Maybe (Text, Text))
+ Calamity.Commands.ParsePrefix: parsePrefix :: forall r_a6XgH. MemberWithError ParsePrefix r_a6XgH => Message -> Sem r_a6XgH (Maybe (Text, Text))
- Calamity.Internal.LocalWriter: llisten :: forall o_arAN r_arIk a_XrAN. MemberWithError (LocalWriter o_arAN) r_arIk => Sem r_arIk a_XrAN -> Sem r_arIk (o_arAN, a_XrAN)
+ Calamity.Internal.LocalWriter: llisten :: forall o_arBm r_arIT a_XrBm. MemberWithError (LocalWriter o_arBm) r_arIT => Sem r_arIT a_XrBm -> Sem r_arIT (o_arBm, a_XrBm)
- Calamity.Internal.LocalWriter: ltell :: forall o_arAJ r_arIi. MemberWithError (LocalWriter o_arAJ) r_arIi => o_arAJ -> Sem r_arIi ()
+ Calamity.Internal.LocalWriter: ltell :: forall o_arBi r_arIR. MemberWithError (LocalWriter o_arBi) r_arIR => o_arBi -> Sem r_arIR ()
- Calamity.Metrics.Eff: addCounter :: forall r_avdP. MemberWithError MetricEff r_avdP => Int -> Counter -> Sem r_avdP Int
+ Calamity.Metrics.Eff: addCounter :: forall r_aveo. MemberWithError MetricEff r_aveo => Int -> Counter -> Sem r_aveo Int
- Calamity.Metrics.Eff: modifyGauge :: forall r_avdS. MemberWithError MetricEff r_avdS => (Double -> Double) -> Gauge -> Sem r_avdS Double
+ Calamity.Metrics.Eff: modifyGauge :: forall r_aver. MemberWithError MetricEff r_aver => (Double -> Double) -> Gauge -> Sem r_aver Double
- Calamity.Metrics.Eff: observeHistogram :: forall r_avdV. MemberWithError MetricEff r_avdV => Double -> Histogram -> Sem r_avdV HistogramSample
+ Calamity.Metrics.Eff: observeHistogram :: forall r_aveu. MemberWithError MetricEff r_aveu => Double -> Histogram -> Sem r_aveu HistogramSample
- Calamity.Metrics.Eff: registerCounter :: forall r_avdF. MemberWithError MetricEff r_avdF => Text -> [(Text, Text)] -> Sem r_avdF Counter
+ Calamity.Metrics.Eff: registerCounter :: forall r_avee. MemberWithError MetricEff r_avee => Text -> [(Text, Text)] -> Sem r_avee Counter
- Calamity.Metrics.Eff: registerGauge :: forall r_avdI. MemberWithError MetricEff r_avdI => Text -> [(Text, Text)] -> Sem r_avdI Gauge
+ Calamity.Metrics.Eff: registerGauge :: forall r_aveh. MemberWithError MetricEff r_aveh => Text -> [(Text, Text)] -> Sem r_aveh Gauge
- Calamity.Metrics.Eff: registerHistogram :: forall r_avdL. MemberWithError MetricEff r_avdL => Text -> [(Text, Text)] -> [Double] -> Sem r_avdL Histogram
+ Calamity.Metrics.Eff: registerHistogram :: forall r_avek. MemberWithError MetricEff r_avek => Text -> [(Text, Text)] -> [Double] -> Sem r_avek Histogram
Files
- ChangeLog.md +5/−0
- calamity.cabal +2/−2
- src/Calamity/Types/Upgradeable.hs +26/−0
ChangeLog.md view
@@ -1,5 +1,10 @@ # Changelog for Calamity +## 0.1.25.1+++ Add `Upgradeable` instances for `VoiceChannnel`, `DMChannel`_, `GroupChannel`, + `TextChannel`, and `Category`.+ ## 0.1.25.0 + Changed how `ModifyGuildMemberData`, and `ModifyGuildRoleData` are implemented
calamity.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 71d166a4c21a7ffb9bf5da8669b3c29f3ba92c9447240a50efd0fad4c1804208+-- hash: 6e705665b05a2018fff8c2a198b5edffcc7cdb2c34a9f83425214c5d2b04a62e name: calamity-version: 0.1.25.0+version: 0.1.25.1 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/Types/Upgradeable.hs view
@@ -87,6 +87,32 @@ insertChannel c maybeToAlt (c ^? _Ctor @"GuildChannel'") +instance Upgradeable VoiceChannel (Snowflake VoiceChannel) where+ upgrade s = upgrade (coerceSnowflake @_ @Channel s) <&> \case+ Just (GuildChannel' (GuildVoiceChannel vc)) -> Just vc+ _ -> Nothing++instance Upgradeable DMChannel (Snowflake DMChannel) where+ upgrade s = upgrade (coerceSnowflake @_ @Channel s) <&> \case+ Just (DMChannel' dc) -> Just dc+ _ -> Nothing++instance Upgradeable GroupChannel (Snowflake GroupChannel) where+ upgrade s = upgrade (coerceSnowflake @_ @Channel s) <&> \case+ Just (GroupChannel' gc) -> Just gc+ _ -> Nothing++instance Upgradeable TextChannel (Snowflake TextChannel) where+ upgrade s = upgrade (coerceSnowflake @_ @Channel s) <&> \case+ Just (GuildChannel' (GuildTextChannel tc)) -> Just tc+ _ -> Nothing++instance Upgradeable Category (Snowflake Category) where+ upgrade s = upgrade (coerceSnowflake @_ @Channel s) <&> \case+ Just (GuildChannel' (GuildCategory c)) -> Just c+ _ -> Nothing++ instance Upgradeable Emoji (Snowflake Guild, Snowflake Emoji) where upgrade (gid, eid) = P.runNonDetMaybe (getcache <|> gethttp) where