{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.APIGateway.GetAccount
(
getAccount
, GetAccount
, account
, Account
, aApiKeyVersion
, aCloudwatchRoleARN
, aFeatures
, aThrottleSettings
) where
import Network.AWS.APIGateway.Types
import Network.AWS.APIGateway.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetAccount =
GetAccount'
deriving (Eq, Read, Show, Data, Typeable, Generic)
getAccount
:: GetAccount
getAccount = GetAccount'
instance AWSRequest GetAccount where
type Rs GetAccount = Account
request = get apiGateway
response = receiveJSON (\ s h x -> eitherParseJSON x)
instance Hashable GetAccount where
instance NFData GetAccount where
instance ToHeaders GetAccount where
toHeaders
= const
(mconcat
["Accept" =# ("application/json" :: ByteString)])
instance ToPath GetAccount where
toPath = const "/account"
instance ToQuery GetAccount where
toQuery = const mempty