blob: 517178b95fa878e0f91dba2d5da3702ee5ffe4cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
module ExampleUtils where
import qualified Data.Text as T
import qualified Data.Text.IO as TIO
import Discord
import qualified Discord.Requests as R
import Discord.Types
import Text.Read (readMaybe)
getToken :: IO T.Text
getToken = TIO.readFile "./examples/auth-token.secret"
getGuildId :: IO GuildId
getGuildId = do
gids <- readFile "./examples/guildid.secret"
case readMaybe gids of
Just g -> pure g
Nothing -> error "could not read guild id from `guildid.secret`"
-- | Given the test server and an action operating on a channel id, get the
-- first text channel of that server and use the action on that channel.
actionWithChannelId :: GuildId -> (ChannelId -> DiscordHandler a) -> DiscordHandler a
actionWithChannelId testserverid f = do
Right chans <- restCall $ R.GetGuildChannels testserverid
(f . channelId) (head (filter isTextChannel chans))
where
isTextChannel :: Channel -> Bool
isTextChannel ChannelText {} = True
isTextChannel _ = False
|
