diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -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
 
diff --git a/discord-haskell.cabal b/discord-haskell.cabal
--- a/discord-haskell.cabal
+++ b/discord-haskell.cabal
@@ -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>.
                      .
diff --git a/examples/ping-pong.hs b/examples/ping-pong.hs
--- a/examples/ping-pong.hs
+++ b/examples/ping-pong.hs
@@ -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)
diff --git a/src/Discord/Internal/Rest/Prelude.hs b/src/Discord/Internal/Rest/Prelude.hs
--- a/src/Discord/Internal/Rest/Prelude.hs
+++ b/src/Discord/Internal/Rest/Prelude.hs
@@ -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 //