discord-haskell 1.8.4 → 1.8.5

raw patch · 4 files changed

+15/−9 lines, 4 files

Files

• changelog.md +5/−1
• discord-haskell.cabal +1/−1
• examples/ping-pong.hs +8/−6
• src/Discord/Internal/Rest/Prelude.hs +1/−1

@@ -6,9 +6,13 @@  ## master +## 1.8.5++ Fix examples/ping-pong.hs compilation error https://github.com/aquarial/discord-haskell/issues/65+ ## 1.8.4 -[yutotakano](https://github.com/aquarial/discord-haskell/pull/64) Add discord replies type, and message constructor+[yutotakano](https://github.com/aquarial/discord-haskell/pull/64) Added discord replies type, and message constructor  ## 1.8.3 

@@ -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.4+version:             1.8.5 description:         Functions and data types to write discord bots.                      Official discord docs <https://discord.com/developers/docs/reference>.                      .

@@ -67,13 +67,15 @@          -- A more complex message. Text-to-speech, does not mention everyone nor         -- the user, and uses Discord native replies.-        let opts = def { messageDetailedContent = "Here's a more complex message, but doesn't ping @everyone!"-                       , messageDetailedTTS = True-                       , messageDetailedAllowedMentions = Just $-                          def { mentionEveryone = False-                              , mentionRepliedUser = False+        -- Use ":info" in ghci to explore the type+        let opts :: R.MessageDetailedOpts+            opts = def { R.messageDetailedContent = "Here's a more complex message, but doesn't ping @everyone!"+                       , R.messageDetailedTTS = True+                       , R.messageDetailedAllowedMentions = Just $+                          def { R.mentionEveryone = False+                              , R.mentionRepliedUser = False                               }-                       , messageDetailedReference = Just $+                       , R.messageDetailedReference = Just $                           def { referenceMessageId = Just $ messageId m }                        }         _ <- restCall (R.CreateMessageDetailed (messageChannel m) opts)

@@ -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.4)"+  agent = "DiscordBot (https://github.com/aquarial/discord-haskell, 1.8.5)"  -- Append to an URL infixl 5 //