summaryrefslogtreecommitdiff
path: root/deps/discord-haskell/examples/ping-pong.hs
diff options
context:
space:
mode:
Diffstat (limited to 'deps/discord-haskell/examples/ping-pong.hs')
-rw-r--r--deps/discord-haskell/examples/ping-pong.hs6
1 files changed, 2 insertions, 4 deletions
diff --git a/deps/discord-haskell/examples/ping-pong.hs b/deps/discord-haskell/examples/ping-pong.hs
index 87ec08b..3dff866 100644
--- a/deps/discord-haskell/examples/ping-pong.hs
+++ b/deps/discord-haskell/examples/ping-pong.hs
@@ -42,11 +42,9 @@ startHandler :: GuildId -> DiscordHandler ()
startHandler testserverid = do
liftIO $ putStrLn "Started ping-pong bot"
- let activity = def { activityName = "ping-pong"
- , activityType = ActivityTypeGame
- }
+ let activity = (mkActivity "ping-pong" ActivityTypeStreaming) { activityUrl = Just "https://www.youtube.com/watch?v=dQw4w9WgXcQ", activityState = Just "rolling down a hill" }
let opts = UpdateStatusOpts { updateStatusOptsSince = Nothing
- , updateStatusOptsGame = Just activity
+ , updateStatusOptsActivities = [activity]
, updateStatusOptsNewStatus = UpdateStatusOnline
, updateStatusOptsAFK = False
}