diff options
Diffstat (limited to 'deps/discord-haskell/examples/ping-pong.hs')
| -rw-r--r-- | deps/discord-haskell/examples/ping-pong.hs | 6 |
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 } |
