{-# 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.Organizations.DescribeAccount
(
describeAccount
, DescribeAccount
, daAccountId
, describeAccountResponse
, DescribeAccountResponse
, darsAccount
, darsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Organizations.Types
import Network.AWS.Organizations.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeAccount = DescribeAccount'
{ _daAccountId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAccount
:: Text
-> DescribeAccount
describeAccount pAccountId_ = DescribeAccount' {_daAccountId = pAccountId_}
daAccountId :: Lens' DescribeAccount Text
daAccountId = lens _daAccountId (\ s a -> s{_daAccountId = a})
instance AWSRequest DescribeAccount where
type Rs DescribeAccount = DescribeAccountResponse
request = postJSON organizations
response
= receiveJSON
(\ s h x ->
DescribeAccountResponse' <$>
(x .?> "Account") <*> (pure (fromEnum s)))
instance Hashable DescribeAccount where
instance NFData DescribeAccount where
instance ToHeaders DescribeAccount where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSOrganizationsV20161128.DescribeAccount" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeAccount where
toJSON DescribeAccount'{..}
= object
(catMaybes [Just ("AccountId" .= _daAccountId)])
instance ToPath DescribeAccount where
toPath = const "/"
instance ToQuery DescribeAccount where
toQuery = const mempty
data DescribeAccountResponse = DescribeAccountResponse'
{ _darsAccount :: !(Maybe Account)
, _darsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
describeAccountResponse
:: Int
-> DescribeAccountResponse
describeAccountResponse pResponseStatus_ =
DescribeAccountResponse'
{_darsAccount = Nothing, _darsResponseStatus = pResponseStatus_}
darsAccount :: Lens' DescribeAccountResponse (Maybe Account)
darsAccount = lens _darsAccount (\ s a -> s{_darsAccount = a})
darsResponseStatus :: Lens' DescribeAccountResponse Int
darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a})
instance NFData DescribeAccountResponse where