packages feed

calamity 0.1.23.0 → 0.1.23.1

raw patch · 5 files changed

+12/−4 lines, 5 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Calamity.Client.Types: [$sel:session:Client] :: Client -> Session
- Calamity.Gateway.Shard: [$sel:shardState:Shard] :: Shard -> IORef ShardState
- Calamity.Gateway.Types: [$sel:shardState:Shard] :: Shard -> IORef ShardState
+ Calamity.Commands.Parser: instance Calamity.Commands.Parser.Parser Calamity.Types.Model.Guild.Role.Role r
+ Calamity.HTTP.Internal.Request: (=:?) :: Text -> Maybe Text -> Option 'Https
+ Calamity.HTTP.Internal.Request: deleteWith :: Url 'Https -> Option 'Https -> Req LbsResponse
+ Calamity.HTTP.Internal.Request: getWith :: Url 'Https -> Option 'Https -> Req LbsResponse
+ Calamity.Internal.AesonThings: instance forall k (field :: GHC.Types.Symbol) (ty :: k). (GHC.TypeLits.KnownSymbol field, Data.Reflection.Reifies ty (Data.Aeson.Types.Internal.Value -> Data.Aeson.Types.Internal.Value)) => Calamity.Internal.AesonThings.PerformAction (Calamity.Internal.AesonThings.MapFieldWith field ty)
+ Calamity.Types.Upgradeable: instance Calamity.Types.Upgradeable.Upgradeable Calamity.Types.Model.Guild.Role.Role (Calamity.Types.Snowflake.Snowflake Calamity.Types.Model.Guild.Guild.Guild, Calamity.Types.Snowflake.Snowflake Calamity.Types.Model.Guild.Role.Role)
- Calamity.Cache.Eff: delDM :: forall r_a9h9y. MemberWithError CacheEff r_a9h9y => Snowflake DMChannel -> Sem r_a9h9y ()
+ Calamity.Cache.Eff: delDM :: forall r_a9J3T. MemberWithError CacheEff r_a9J3T => Snowflake DMChannel -> Sem r_a9J3T ()
- Calamity.Cache.Eff: delGuild :: forall r_a9h9r. MemberWithError CacheEff r_a9h9r => Snowflake Guild -> Sem r_a9h9r ()
+ Calamity.Cache.Eff: delGuild :: forall r_a9J3M. MemberWithError CacheEff r_a9J3M => Snowflake Guild -> Sem r_a9J3M ()
- Calamity.Cache.Eff: delMessage :: forall r_a9h9T. MemberWithError CacheEff r_a9h9T => Snowflake Message -> Sem r_a9h9T ()
+ Calamity.Cache.Eff: delMessage :: forall r_a9J4e. MemberWithError CacheEff r_a9J4e => Snowflake Message -> Sem r_a9J4e ()
- Calamity.Cache.Eff: delUnavailableGuild :: forall r_a9h9M. MemberWithError CacheEff r_a9h9M => Snowflake Guild -> Sem r_a9h9M ()
+ Calamity.Cache.Eff: delUnavailableGuild :: forall r_a9J47. MemberWithError CacheEff r_a9J47 => Snowflake Guild -> Sem r_a9J47 ()
- Calamity.Cache.Eff: delUser :: forall r_a9h9F. MemberWithError CacheEff r_a9h9F => Snowflake User -> Sem r_a9h9F ()
+ Calamity.Cache.Eff: delUser :: forall r_a9J40. MemberWithError CacheEff r_a9J40 => Snowflake User -> Sem r_a9J40 ()
- Calamity.Cache.Eff: getBotUser :: forall r_a9h9j. MemberWithError CacheEff r_a9h9j => Sem r_a9h9j (Maybe User)
+ Calamity.Cache.Eff: getBotUser :: forall r_a9J3E. MemberWithError CacheEff r_a9J3E => Sem r_a9J3E (Maybe User)
- Calamity.Cache.Eff: getDM :: forall r_a9h9v. MemberWithError CacheEff r_a9h9v => Snowflake DMChannel -> Sem r_a9h9v (Maybe DMChannel)
+ Calamity.Cache.Eff: getDM :: forall r_a9J3Q. MemberWithError CacheEff r_a9J3Q => Snowflake DMChannel -> Sem r_a9J3Q (Maybe DMChannel)
- Calamity.Cache.Eff: getDMs :: forall r_a9h9x. MemberWithError CacheEff r_a9h9x => Sem r_a9h9x [DMChannel]
+ Calamity.Cache.Eff: getDMs :: forall r_a9J3S. MemberWithError CacheEff r_a9J3S => Sem r_a9J3S [DMChannel]
- Calamity.Cache.Eff: getGuild :: forall r_a9h9m. MemberWithError CacheEff r_a9h9m => Snowflake Guild -> Sem r_a9h9m (Maybe Guild)
+ Calamity.Cache.Eff: getGuild :: forall r_a9J3H. MemberWithError CacheEff r_a9J3H => Snowflake Guild -> Sem r_a9J3H (Maybe Guild)
- Calamity.Cache.Eff: getGuildChannel :: forall r_a9h9o. MemberWithError CacheEff r_a9h9o => Snowflake GuildChannel -> Sem r_a9h9o (Maybe GuildChannel)
+ Calamity.Cache.Eff: getGuildChannel :: forall r_a9J3J. MemberWithError CacheEff r_a9J3J => Snowflake GuildChannel -> Sem r_a9J3J (Maybe GuildChannel)
- Calamity.Cache.Eff: getGuilds :: forall r_a9h9q. MemberWithError CacheEff r_a9h9q => Sem r_a9h9q [Guild]
+ Calamity.Cache.Eff: getGuilds :: forall r_a9J3L. MemberWithError CacheEff r_a9J3L => Sem r_a9J3L [Guild]
- Calamity.Cache.Eff: getMessage :: forall r_a9h9Q. MemberWithError CacheEff r_a9h9Q => Snowflake Message -> Sem r_a9h9Q (Maybe Message)
+ Calamity.Cache.Eff: getMessage :: forall r_a9J4b. MemberWithError CacheEff r_a9J4b => Snowflake Message -> Sem r_a9J4b (Maybe Message)
- Calamity.Cache.Eff: getMessages :: forall r_a9h9S. MemberWithError CacheEff r_a9h9S => Sem r_a9h9S [Message]
+ Calamity.Cache.Eff: getMessages :: forall r_a9J4d. MemberWithError CacheEff r_a9J4d => Sem r_a9J4d [Message]
- Calamity.Cache.Eff: getUnavailableGuilds :: forall r_a9h9L. MemberWithError CacheEff r_a9h9L => Sem r_a9h9L [Snowflake Guild]
+ Calamity.Cache.Eff: getUnavailableGuilds :: forall r_a9J46. MemberWithError CacheEff r_a9J46 => Sem r_a9J46 [Snowflake Guild]
- Calamity.Cache.Eff: getUser :: forall r_a9h9C. MemberWithError CacheEff r_a9h9C => Snowflake User -> Sem r_a9h9C (Maybe User)
+ Calamity.Cache.Eff: getUser :: forall r_a9J3X. MemberWithError CacheEff r_a9J3X => Snowflake User -> Sem r_a9J3X (Maybe User)
- Calamity.Cache.Eff: getUsers :: forall r_a9h9E. MemberWithError CacheEff r_a9h9E => Sem r_a9h9E [User]
+ Calamity.Cache.Eff: getUsers :: forall r_a9J3Z. MemberWithError CacheEff r_a9J3Z => Sem r_a9J3Z [User]
- Calamity.Cache.Eff: isUnavailableGuild :: forall r_a9h9J. MemberWithError CacheEff r_a9h9J => Snowflake Guild -> Sem r_a9h9J Bool
+ Calamity.Cache.Eff: isUnavailableGuild :: forall r_a9J44. MemberWithError CacheEff r_a9J44 => Snowflake Guild -> Sem r_a9J44 Bool
- Calamity.Cache.Eff: setBotUser :: forall r_a9h9h. MemberWithError CacheEff r_a9h9h => User -> Sem r_a9h9h ()
+ Calamity.Cache.Eff: setBotUser :: forall r_a9J3C. MemberWithError CacheEff r_a9J3C => User -> Sem r_a9J3C ()
- Calamity.Cache.Eff: setDM :: forall r_a9h9t. MemberWithError CacheEff r_a9h9t => DMChannel -> Sem r_a9h9t ()
+ Calamity.Cache.Eff: setDM :: forall r_a9J3O. MemberWithError CacheEff r_a9J3O => DMChannel -> Sem r_a9J3O ()
- Calamity.Cache.Eff: setGuild :: forall r_a9h9k. MemberWithError CacheEff r_a9h9k => Guild -> Sem r_a9h9k ()
+ Calamity.Cache.Eff: setGuild :: forall r_a9J3F. MemberWithError CacheEff r_a9J3F => Guild -> Sem r_a9J3F ()
- Calamity.Cache.Eff: setMessage :: forall r_a9h9O. MemberWithError CacheEff r_a9h9O => Message -> Sem r_a9h9O ()
+ Calamity.Cache.Eff: setMessage :: forall r_a9J49. MemberWithError CacheEff r_a9J49 => Message -> Sem r_a9J49 ()
- Calamity.Cache.Eff: setUnavailableGuild :: forall r_a9h9H. MemberWithError CacheEff r_a9h9H => Snowflake Guild -> Sem r_a9h9H ()
+ Calamity.Cache.Eff: setUnavailableGuild :: forall r_a9J42. MemberWithError CacheEff r_a9J42 => Snowflake Guild -> Sem r_a9J42 ()
- Calamity.Cache.Eff: setUser :: forall r_a9h9A. MemberWithError CacheEff r_a9h9A => User -> Sem r_a9h9A ()
+ Calamity.Cache.Eff: setUser :: forall r_a9J3V. MemberWithError CacheEff r_a9J3V => User -> Sem r_a9J3V ()
- Calamity.Client.Client: runBotIO' :: forall r a. (Members '[Embed IO, Final IO, CacheEff, MetricEff, LogEff] r, Typeable (SetupEff r)) => Token -> Intents -> Maybe Session -> Maybe StatusUpdateData -> Sem (SetupEff r) a -> Sem r (Maybe StartupError)
+ Calamity.Client.Client: runBotIO' :: forall r a. (Members '[Embed IO, Final IO, CacheEff, MetricEff, LogEff] r, Typeable (SetupEff r)) => Token -> Intents -> Maybe StatusUpdateData -> Sem (SetupEff r) a -> Sem r (Maybe StartupError)
- Calamity.Client.Types: Client :: TVar [(InChan ControlMessage, Async (Maybe ()))] -> MVar Int -> Token -> RateLimitState -> InChan CalamityEvent -> OutChan CalamityEvent -> IORef Integer -> Session -> Maybe (Di Level Path Message) -> Client
+ Calamity.Client.Types: Client :: TVar [(InChan ControlMessage, Async (Maybe ()))] -> MVar Int -> Token -> RateLimitState -> InChan CalamityEvent -> OutChan CalamityEvent -> IORef Integer -> Maybe (Di Level Path Message) -> Client
- Calamity.Commands.ParsePrefix: parsePrefix :: forall r_a6UsE. MemberWithError ParsePrefix r_a6UsE => Message -> Sem r_a6UsE (Maybe (Text, Text))
+ Calamity.Commands.ParsePrefix: parsePrefix :: forall r_a7fan. MemberWithError ParsePrefix r_a7fan => Message -> Sem r_a7fan (Maybe (Text, Text))
- Calamity.Gateway.DispatchEvents: InviteCreateData :: Snowflake Channel -> Text -> UnixTimestamp -> Maybe (Snowflake Guild) -> Maybe (Snowflake User) -> Int -> Int -> Maybe (Snowflake User) -> Maybe Integer -> Bool -> Integer -> InviteCreateData
+ Calamity.Gateway.DispatchEvents: InviteCreateData :: Snowflake Channel -> Text -> UTCTime -> Maybe (Snowflake Guild) -> Maybe (Snowflake User) -> Int -> Int -> Maybe (Snowflake User) -> Maybe Integer -> Bool -> Integer -> InviteCreateData
- Calamity.Gateway.DispatchEvents: [$sel:createdAt:InviteCreateData] :: InviteCreateData -> UnixTimestamp
+ Calamity.Gateway.DispatchEvents: [$sel:createdAt:InviteCreateData] :: InviteCreateData -> UTCTime
- Calamity.Gateway.Shard: Shard :: Int -> Int -> Text -> InChan CalamityEvent -> OutChan ControlMessage -> IORef ShardState -> Text -> Maybe StatusUpdateData -> Intents -> Shard
+ Calamity.Gateway.Shard: Shard :: Int -> Int -> Text -> InChan CalamityEvent -> OutChan ControlMessage -> Text -> Maybe StatusUpdateData -> Intents -> Shard
- Calamity.Gateway.Types: Shard :: Int -> Int -> Text -> InChan CalamityEvent -> OutChan ControlMessage -> IORef ShardState -> Text -> Maybe StatusUpdateData -> Intents -> Shard
+ Calamity.Gateway.Types: Shard :: Int -> Int -> Text -> InChan CalamityEvent -> OutChan ControlMessage -> Text -> Maybe StatusUpdateData -> Intents -> Shard
- Calamity.HTTP.Internal.Ratelimit: doRequest :: BotC r => RateLimitState -> Route -> IO (Response ByteString) -> Sem r (Either RestError ByteString)
+ Calamity.HTTP.Internal.Ratelimit: doRequest :: BotC r => RateLimitState -> Route -> IO LbsResponse -> Sem r (Either RestError ByteString)
- Calamity.HTTP.Internal.Request: action :: Request a => a -> Options -> Session -> String -> IO (Response ByteString)
+ Calamity.HTTP.Internal.Request: action :: Request a => a -> Url 'Https -> Option 'Https -> Req LbsResponse
- Calamity.HTTP.Internal.Request: getWithP :: (Options -> Options) -> Options -> Session -> String -> IO (Response ByteString)
+ Calamity.HTTP.Internal.Request: getWithP :: Option 'Https -> Url 'Https -> Option 'Https -> Req LbsResponse
- Calamity.HTTP.Internal.Request: patchWith' :: Postable a => a -> Options -> Session -> String -> IO (Response ByteString)
+ Calamity.HTTP.Internal.Request: patchWith' :: HttpBody a => a -> Url 'Https -> Option 'Https -> Req LbsResponse
- Calamity.HTTP.Internal.Request: postEmpty :: Options -> Session -> String -> IO (Response ByteString)
+ Calamity.HTTP.Internal.Request: postEmpty :: Url 'Https -> Option 'Https -> Req LbsResponse
- Calamity.HTTP.Internal.Request: postEmptyP :: (Options -> Options) -> Options -> Session -> String -> IO (Response ByteString)
+ Calamity.HTTP.Internal.Request: postEmptyP :: Option 'Https -> Url 'Https -> Option 'Https -> Req LbsResponse
- Calamity.HTTP.Internal.Request: postWith' :: Postable a => a -> Options -> Session -> String -> IO (Response ByteString)
+ Calamity.HTTP.Internal.Request: postWith' :: HttpBody a => a -> Url 'Https -> Option 'Https -> Req LbsResponse
- Calamity.HTTP.Internal.Request: postWithP' :: Postable a => a -> (Options -> Options) -> Options -> Session -> String -> IO (Response ByteString)
+ Calamity.HTTP.Internal.Request: postWithP' :: HttpBody a => a -> Option 'Https -> Url 'Https -> Option 'Https -> Req LbsResponse
- Calamity.HTTP.Internal.Request: putEmpty :: Options -> Session -> String -> IO (Response ByteString)
+ Calamity.HTTP.Internal.Request: putEmpty :: Url 'Https -> Option 'Https -> Req LbsResponse
- Calamity.HTTP.Internal.Request: putEmptyP :: (Options -> Options) -> Options -> Session -> String -> IO (Response ByteString)
+ Calamity.HTTP.Internal.Request: putEmptyP :: Option 'Https -> Url 'Https -> Option 'Https -> Req LbsResponse
- Calamity.HTTP.Internal.Request: putWith' :: Putable a => a -> Options -> Session -> String -> IO (Response ByteString)
+ Calamity.HTTP.Internal.Request: putWith' :: HttpBody a => a -> Url 'Https -> Option 'Https -> Req LbsResponse
- 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: llisten :: forall o_aFeB r_aFuB a_XFeB. MemberWithError (LocalWriter o_aFeB) r_aFuB => Sem r_aFuB a_XFeB -> Sem r_aFuB (o_aFeB, a_XFeB)
- Calamity.Internal.LocalWriter: ltell :: forall o_aroD r_arwc. MemberWithError (LocalWriter o_aroD) r_arwc => o_aroD -> Sem r_arwc ()
+ Calamity.Internal.LocalWriter: ltell :: forall o_aFex r_aFuz. MemberWithError (LocalWriter o_aFex) r_aFuz => o_aFex -> Sem r_aFuz ()
- Calamity.Metrics.Eff: addCounter :: forall r_av1J. MemberWithError MetricEff r_av1J => Int -> Counter -> Sem r_av1J Int
+ Calamity.Metrics.Eff: addCounter :: forall r_aLbC. MemberWithError MetricEff r_aLbC => Int -> Counter -> Sem r_aLbC Int
- Calamity.Metrics.Eff: modifyGauge :: forall r_av1M. MemberWithError MetricEff r_av1M => (Double -> Double) -> Gauge -> Sem r_av1M Double
+ Calamity.Metrics.Eff: modifyGauge :: forall r_aLbF. MemberWithError MetricEff r_aLbF => (Double -> Double) -> Gauge -> Sem r_aLbF Double
- Calamity.Metrics.Eff: observeHistogram :: forall r_av1P. MemberWithError MetricEff r_av1P => Double -> Histogram -> Sem r_av1P HistogramSample
+ Calamity.Metrics.Eff: observeHistogram :: forall r_aLbI. MemberWithError MetricEff r_aLbI => Double -> Histogram -> Sem r_aLbI HistogramSample
- Calamity.Metrics.Eff: registerCounter :: forall r_av1z. MemberWithError MetricEff r_av1z => Text -> [(Text, Text)] -> Sem r_av1z Counter
+ Calamity.Metrics.Eff: registerCounter :: forall r_aLbs. MemberWithError MetricEff r_aLbs => Text -> [(Text, Text)] -> Sem r_aLbs Counter
- Calamity.Metrics.Eff: registerGauge :: forall r_av1C. MemberWithError MetricEff r_av1C => Text -> [(Text, Text)] -> Sem r_av1C Gauge
+ Calamity.Metrics.Eff: registerGauge :: forall r_aLbv. MemberWithError MetricEff r_aLbv => Text -> [(Text, Text)] -> Sem r_aLbv Gauge
- Calamity.Metrics.Eff: registerHistogram :: forall r_av1F. MemberWithError MetricEff r_av1F => Text -> [(Text, Text)] -> [Double] -> Sem r_av1F Histogram
+ Calamity.Metrics.Eff: registerHistogram :: forall r_aLby. MemberWithError MetricEff r_aLby => Text -> [(Text, Text)] -> [Double] -> Sem r_aLby Histogram

Files

ChangeLog.md view
@@ -1,5 +1,9 @@ # Changelog for Calamity +## 0.1.23.1+++ Fix some more json parsing issues+ ## 0.1.23.0  + The `roles` field was incorrectly present on the `PresenceUpdate` type, that
calamity.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 1670c807d892d798e219ad1be5721bfa7b6c20eaf193322fbec3bd6cb25e7449+-- hash: 0772994714492feed4b5b795eb15b0795c3b76609b3e5675079f5b442d29687f  name:           calamity-version:        0.1.23.0+version:        0.1.23.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/Gateway/DispatchEvents.hs view
@@ -152,7 +152,7 @@ data InviteCreateData = InviteCreateData   { channelID      :: Snowflake Channel   , code           :: Text-  , createdAt      :: UnixTimestamp+  , createdAt      :: UTCTime   , guildID        :: Maybe (Snowflake Guild)   , inviter        :: Maybe (Snowflake User)   , maxAge         :: Int
src/Calamity/Internal/AesonThings.hs view
@@ -36,6 +36,7 @@ type ExtractFieldFrom label field = ExtractFieldInto label field label data ExtractFields label fields data ExtractArrayField label field+data MapFieldWith field ty  class PerformAction action where   runAction :: Proxy action -> Object -> Parser Object@@ -67,6 +68,9 @@         a'' <- Array <$> traverse (withObject "extracting field" (.: textSymbolVal @field)) a'         pure $ o & at (textSymbolVal @label) ?~ a''       Nothing -> pure o++instance (KnownSymbol field, Reifies ty (Value -> Value)) => PerformAction (MapFieldWith field ty) where+  runAction _ o = pure (o & ix (textSymbolVal @field) %~ reflect @ty Proxy)  newtype WithSpecialCases (rules :: [Type]) a = WithSpecialCases a
src/Calamity/Types/Model/Presence/Presence.hs view
@@ -34,7 +34,7 @@   deriving     (FromJSON)     via WithSpecialCases-          '["user" `ExtractFieldFrom` "user"]+          '["user" `ExtractFieldFrom` "id"]           Presence   deriving (HasID User) via HasIDField "user" Presence   deriving (HasID Guild) via HasIDField "guildID" Presence