calamity 0.1.26.0 → 0.1.26.1

raw patch · 3 files changed

+34/−29 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Calamity/HTTP/Channel.hs +28/−27
• ChangeLog.md +4/−0
• calamity.cabal +2/−2

@@ -1,20 +1,20 @@ -- | Channel endpoints module Calamity.HTTP.Channel (-    ChannelRequest (..),-    CreateMessageOptions (..),-    EditMessageData (..),-    editMessageContent,-    editMessageEmbed,-    editMessageFlags,-    editMessageAllowedMentions,-    ChannelUpdate (..),-    AllowedMentionType (..),-    AllowedMentions (..),-    ChannelMessagesFilter (..),-    ChannelMessagesLimit (..),-    GetReactionsOptions (..),-    CreateChannelInviteOptions (..),-    GroupDMAddRecipientOptions (..),+  ChannelRequest (..),+  CreateMessageOptions (..),+  EditMessageData (..),+  editMessageContent,+  editMessageEmbed,+  editMessageFlags,+  editMessageAllowedMentions,+  ChannelUpdate (..),+  AllowedMentionType (..),+  AllowedMentions (..),+  ChannelMessagesFilter (..),+  ChannelMessagesLimit (..),+  GetReactionsOptions (..),+  CreateChannelInviteOptions (..),+  GroupDMAddRecipientOptions (..), ) where  import Calamity.HTTP.Internal.Request@@ -84,18 +84,19 @@   deriving (Show, Generic)   deriving (ToJSON) via CalamityJSON CreateMessageJson --- | Parameters to the Edit Message endpoint.------ Use the provided methods (@editMessageX@) to create a value with the--- field set, use the Semigroup instance to union the values.------ ==== Examples------ >>> encode $ editMessageContent (Just "test") <> editMessageFlags Nothing--- "{\"nick\":\"test\",\"deaf\":null}"+{- | Parameters to the Edit Message endpoint.++ Use the provided methods (@editMessageX@) to create a value with the+ field set, use the Semigroup instance to union the values.++ ==== Examples++ >>> encode $ editMessageContent (Just "test") <> editMessageFlags Nothing+ "{\"nick\":\"test\",\"deaf\":null}"+-} newtype EditMessageData = EditMessageData Object-    deriving (Show, Generic)-    deriving newtype (ToJSON, Semigroup, Monoid)+  deriving (Show, Generic)+  deriving newtype (ToJSON, Semigroup, Monoid)  editMessageContent :: Maybe Text -> EditMessageData editMessageContent v = EditMessageData $ H.fromList [("content", toJSON v)]@@ -306,7 +307,7 @@     getWithP ("before" =: a <> "limit" =:? (showt . (^. #limit) <$> l))   action (GetChannelMessages _ (Just (ChannelMessagesAfter (showt . fromSnowflake -> a))) l) =     getWithP ("after" =: a <> "limit" =:? (showt . (^. #limit) <$> l))-  action (GetChannelMessages _ Nothing _) = getWith+  action (GetChannelMessages _ Nothing l) = getWithP ("limit" =:? (showt . (^. #limit) <$> l))   action (GetMessage _ _) = getWith   action CreateReaction{} = putEmpty   action DeleteOwnReaction{} = deleteWith

@@ -1,5 +1,9 @@ # Changelog for Calamity +## 0.1.26.1+++ Quick fix of GetChannelMessages+ ## 0.1.26.0  + `GetChannelMessages` now has an extra parameter to allow the `limit` option to

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: a1e915ba8a1a42f16586860ef601fb5dd7545de1073ccc98e940cf37539c35fe+-- hash: fd4324b88c3e1af82980462b807e21231e704910a8187311dbb902ed02735a29  name:           calamity-version:        0.1.26.0+version:        0.1.26.1 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