{-# LANGUAGE TemplateHaskell #-}

-- | <http://strava.github.io/api/v3/oauth/>
module Strive.Types.Authentication
  ( TokenExchangeResponse (..),
    DeauthorizationResponse (..),
  )
where

import Data.Aeson.TH (deriveFromJSON)
import Data.Text (Text)
import Strive.Internal.TH (options)
import Strive.Types.Athletes (AthleteSummary)

-- | <http://strava.github.io/api/v3/oauth/#example-response>
data TokenExchangeResponse = TokenExchangeResponse
  { tokenExchangeResponse_accessToken :: Text,
    tokenExchangeResponse_athlete :: AthleteSummary
  }
  deriving (Show)

$(deriveFromJSON options ''TokenExchangeResponse)

-- | <http://strava.github.io/api/v3/oauth/#example-response-1>
newtype DeauthorizationResponse = DeauthorizationResponse
  { deauthorizationResponse_accessToken :: Text
  }
  deriving (Show)

$(deriveFromJSON options ''DeauthorizationResponse)