agent-push-kit-0.1.0: lib/AgentPushKit/API/Account.hs

{-
   Agent Push Kit API

   The complete Agent Push Kit REST API. Application event ingestion uses an organization key beginning with `apk_`. Authenticated user operations accept either an Agent Push Kit login JWT or an agent access token beginning with `apt_`.

   OpenAPI Version: 3.1.0
   Agent Push Kit API API version: 0.1.0
   Generated by OpenAPI Generator (https://openapi-generator.tech)
-}

{-|
Module : AgentPushKit.API.Account
-}

{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MonoLocalBinds #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}

module AgentPushKit.API.Account where

import AgentPushKit.Core
import AgentPushKit.MimeTypes
import AgentPushKit.Model as M

import qualified Data.Aeson as A
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
import qualified Data.Foldable as P
import qualified Data.Map as Map
import qualified Data.Maybe as P
import qualified Data.Proxy as P (Proxy(..))
import qualified Data.Set as Set
import qualified Data.String as P
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import qualified Data.Text.Lazy as TL
import qualified Data.Text.Lazy.Encoding as TL
import qualified Data.Time as TI
import qualified Network.HTTP.Client.MultipartFormData as NH
import qualified Network.HTTP.Media as ME
import qualified Network.HTTP.Types as NH
import qualified Web.FormUrlEncoded as WH
import qualified Web.HttpApiData as WH

import Data.Text (Text)
import GHC.Base ((<|>))

import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
import qualified Prelude as P

-- * Operations


-- ** Account

-- *** deleteCurrentAccount

-- | @DELETE \/me@
-- 
-- Delete the current user and customer accounts they own
-- 
-- AuthMethod: 'AuthBasicUserOrAgent'
-- 
deleteCurrentAccount
  :: AgentPushKitRequest DeleteCurrentAccount MimeNoContent DeletedResponse MimeJSON
deleteCurrentAccount =
  _mkRequest "DELETE" ["/me"]
    `_hasAuthType` (P.Proxy :: P.Proxy AuthBasicUserOrAgent)

data DeleteCurrentAccount  
-- | @application/json@
instance Produces DeleteCurrentAccount MimeJSON


-- *** getCurrentAccount

-- | @GET \/me@
-- 
-- Get the current user and customer accounts
-- 
-- AuthMethod: 'AuthBasicUserOrAgent'
-- 
getCurrentAccount
  :: AgentPushKitRequest GetCurrentAccount MimeNoContent CurrentAccount MimeJSON
getCurrentAccount =
  _mkRequest "GET" ["/me"]
    `_hasAuthType` (P.Proxy :: P.Proxy AuthBasicUserOrAgent)

data GetCurrentAccount  
-- | @application/json@
instance Produces GetCurrentAccount MimeJSON