{-# 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.DescribeOrganization
(
describeOrganization
, DescribeOrganization
, describeOrganizationResponse
, DescribeOrganizationResponse
, dorsOrganization
, dorsResponseStatus
) 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
data DescribeOrganization =
DescribeOrganization'
deriving (Eq, Read, Show, Data, Typeable, Generic)
describeOrganization
:: DescribeOrganization
describeOrganization = DescribeOrganization'
instance AWSRequest DescribeOrganization where
type Rs DescribeOrganization =
DescribeOrganizationResponse
request = postJSON organizations
response
= receiveJSON
(\ s h x ->
DescribeOrganizationResponse' <$>
(x .?> "Organization") <*> (pure (fromEnum s)))
instance Hashable DescribeOrganization where
instance NFData DescribeOrganization where
instance ToHeaders DescribeOrganization where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSOrganizationsV20161128.DescribeOrganization" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeOrganization where
toJSON = const (Object mempty)
instance ToPath DescribeOrganization where
toPath = const "/"
instance ToQuery DescribeOrganization where
toQuery = const mempty
data DescribeOrganizationResponse = DescribeOrganizationResponse'
{ _dorsOrganization :: !(Maybe Organization)
, _dorsResponseStatus :: !Int
} deriving (Eq, Show, Data, Typeable, Generic)
describeOrganizationResponse
:: Int
-> DescribeOrganizationResponse
describeOrganizationResponse pResponseStatus_ =
DescribeOrganizationResponse'
{_dorsOrganization = Nothing, _dorsResponseStatus = pResponseStatus_}
dorsOrganization :: Lens' DescribeOrganizationResponse (Maybe Organization)
dorsOrganization = lens _dorsOrganization (\ s a -> s{_dorsOrganization = a})
dorsResponseStatus :: Lens' DescribeOrganizationResponse Int
dorsResponseStatus = lens _dorsResponseStatus (\ s a -> s{_dorsResponseStatus = a})
instance NFData DescribeOrganizationResponse where