blob: 9966aea4a6f2221ed135a1d4398051613c411208 (
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
30
31
32
33
34
35
36
37
|
{-# LANGUAGE GADTs #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE InstanceSigs #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE OverloadedStrings #-}
-- | Provides actions for Voice API interactions
module Discord.Internal.Rest.Voice
( VoiceRequest(..)
) where
import Network.HTTP.Req ((/:))
import qualified Network.HTTP.Req as R
import Discord.Internal.Rest.Prelude
import Discord.Internal.Types
instance Request (VoiceRequest a) where
majorRoute = voiceMajorRoute
jsonRequest = voiceJsonRequest
-- | Data constructor for requests
data VoiceRequest a where
-- | List all available 'VoiceRegion's.
ListVoiceRegions :: VoiceRequest [VoiceRegion]
voiceMajorRoute :: VoiceRequest a -> String
voiceMajorRoute c = case c of
(ListVoiceRegions) -> "whatever "
voices :: R.Url 'R.Https
voices = baseUrl /: "voice"
voiceJsonRequest :: VoiceRequest r -> JsonRequest
voiceJsonRequest c = case c of
(ListVoiceRegions) -> Get (voices /: "regions") mempty
|
