discord-haskell 1.8.5 → 1.8.6

raw patch · 5 files changed

+14/−6 lines, 5 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Discord.Internal.Types.Channel: ChannelGuildCategory :: ChannelId -> Text -> GuildId -> Channel

+ Discord.Internal.Types.Channel: ChannelGuildCategory :: ChannelId -> GuildId -> Text -> Integer -> [Overwrite] -> Channel

Files

README.md +2/−2
changelog.md +4/−0
discord-haskell.cabal +1/−1
src/Discord/Internal/Rest/Prelude.hs +1/−1
src/Discord/Internal/Types/Channel.hs +6/−2

README.md view

@@ -1,4 +1,4 @@-# discord-haskell           [![Build Status](https://travis-ci.org/aquarial/discord-haskell.png?branch=master)](https://travis-ci.org/aquarial/discord-haskell)        [![Hackage version](http://img.shields.io/hackage/v/discord-haskell.svg?label=Hackage)](https://hackage.haskell.org/package/discord-haskell)+# discord-haskell           [![Build Status](https://travis-ci.com/aquarial/discord-haskell.png?branch=master)](https://travis-ci.com/aquarial/discord-haskell)        [![Hackage version](http://img.shields.io/hackage/v/discord-haskell.svg?label=Hackage)](https://hackage.haskell.org/package/discord-haskell)  Build that discord bot in Haskell! Also checkout the [calamity](https://github.com/nitros12/calamity)  haskell discord library for a more advanced interface than `discord-haskell`.@@ -12,7 +12,7 @@ import Data.Text (isPrefixOf, toLower, Text) import qualified Data.Text.IO as TIO -import UnliftIO+import UnliftIO.Concurrent  import Discord import Discord.Types

changelog.md view

@@ -6,6 +6,10 @@  ## master +## 1.8.6++Add [missing fields](https://github.com/aquarial/discord-haskell/issues/67) to ChannelGuildCategory+ ## 1.8.5   Fix examples/ping-pong.hs compilation error https://github.com/aquarial/discord-haskell/issues/65

discord-haskell.cabal view

@@ -1,7 +1,7 @@ cabal-version:       2.0 name:                discord-haskell -- library version is also noted at src/Discord/Rest/Prelude.hs-version:             1.8.5+version:             1.8.6 description:         Functions and data types to write discord bots.                      Official discord docs <https://discord.com/developers/docs/reference>.                      .

src/Discord/Internal/Rest/Prelude.hs view

@@ -29,7 +29,7 @@   where   -- | https://discord.com/developers/docs/reference#user-agent   -- Second place where the library version is noted-  agent = "DiscordBot (https://github.com/aquarial/discord-haskell, 1.8.5)"+  agent = "DiscordBot (https://github.com/aquarial/discord-haskell, 1.8.6)"  -- Append to an URL infixl 5 //

src/Discord/Internal/Types/Channel.hs view

@@ -77,8 +77,10 @@       }   | ChannelGuildCategory       { channelId          :: ChannelId-      , channelName        :: T.Text       , channelGuild       :: GuildId+      , channelName        :: T.Text+      , channelPosition    :: Integer+      , channelPermissions :: [Overwrite]       } deriving (Show, Eq, Ord)  instance FromJSON Channel where@@ -116,8 +118,10 @@                        <*> o .:? "last_message_id"       4 ->         ChannelGuildCategory <$> o .: "id"-                             <*> o .:  "name"                              <*> o .:? "guild_id" .!= 0+                             <*> o .:  "name"+                             <*> o .:  "position"+                             <*> o .:  "permission_overwrites"       5 ->         ChannelNews <$> o .:  "id"                     <*> o .:? "guild_id" .!= 0