module Data.Api.Auth
  ( plaidGetAuth
  ) where

import           Data.Api.Types (executePost)
import           Data.Common

plaidGetAuth
  :: ( MonadReader PlaidEnv m
     , MonadThrow m
     , PlaidHttp m
     )
  => PlaidBody AuthGet
  -> m ByteString
plaidGetAuth body = do
  env <- ask
  executePost (envUrl (env ^. plaidEnvEnvironment) <> "/auth/get") body