From ae18b594c97782cc201ffa365f12064831b1ec93 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Thu, 11 Jan 2024 20:42:57 -0500 Subject: Handle stickers, properly handle exceptions in threads --- deps/discord-haskell/examples/ping-pong.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'deps/discord-haskell/examples/ping-pong.hs') 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 } -- cgit v1.2.3