{-# 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 #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Network.AWS.APIGateway.GetAccount -- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Gets information about the current 'Account' resource. -- -- module Network.AWS.APIGateway.GetAccount ( -- * Creating a Request getAccount , GetAccount -- * Destructuring the Response , account , Account -- * Response Lenses , 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 -- | Requests API Gateway to get information about the current 'Account' resource. -- -- -- -- /See:/ 'getAccount' smart constructor. data GetAccount = GetAccount' deriving (Eq, Read, Show, Data, Typeable, Generic) -- | Creates a value of 'GetAccount' with the minimum fields required to make a request. -- 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