{-# LANGUAGE GADTs #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE InstanceSigs #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE OverloadedStrings #-}
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 VoiceRequest a where
ListVoiceRegions :: VoiceRequest [VoiceRegion]
voiceMajorRoute :: VoiceRequest a -> String
voiceMajorRoute c = case c of
(ListVoiceRegions) -> "whatever "
baseUrl :: R.Url 'R.Https
baseUrl = R.https "discordapp.com" R./: "api" R./: apiVersion
where apiVersion = "v6"
voices :: R.Url 'R.Https
voices = baseUrl /: "voice"
voiceJsonRequest :: VoiceRequest r -> JsonRequest
voiceJsonRequest c = case c of
(ListVoiceRegions) -> Get (voices /: "regions") mempty