module Network.AWS.CognitoIdentityProvider.DescribeUserPoolDomain
(
describeUserPoolDomain
, DescribeUserPoolDomain
, dDomain
, describeUserPoolDomainResponse
, DescribeUserPoolDomainResponse
, drsDomainDescription
, drsResponseStatus
) where
import Network.AWS.CognitoIdentityProvider.Types
import Network.AWS.CognitoIdentityProvider.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeUserPoolDomain = DescribeUserPoolDomain'
{ _dDomain :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeUserPoolDomain
:: Text
-> DescribeUserPoolDomain
describeUserPoolDomain pDomain_ = DescribeUserPoolDomain' {_dDomain = pDomain_}
dDomain :: Lens' DescribeUserPoolDomain Text
dDomain = lens _dDomain (\ s a -> s{_dDomain = a});
instance AWSRequest DescribeUserPoolDomain where
type Rs DescribeUserPoolDomain =
DescribeUserPoolDomainResponse
request = postJSON cognitoIdentityProvider
response
= receiveJSON
(\ s h x ->
DescribeUserPoolDomainResponse' <$>
(x .?> "DomainDescription") <*> (pure (fromEnum s)))
instance Hashable DescribeUserPoolDomain where
instance NFData DescribeUserPoolDomain where
instance ToHeaders DescribeUserPoolDomain where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.DescribeUserPoolDomain"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeUserPoolDomain where
toJSON DescribeUserPoolDomain'{..}
= object (catMaybes [Just ("Domain" .= _dDomain)])
instance ToPath DescribeUserPoolDomain where
toPath = const "/"
instance ToQuery DescribeUserPoolDomain where
toQuery = const mempty
data DescribeUserPoolDomainResponse = DescribeUserPoolDomainResponse'
{ _drsDomainDescription :: !(Maybe DomainDescriptionType)
, _drsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeUserPoolDomainResponse
:: Int
-> DescribeUserPoolDomainResponse
describeUserPoolDomainResponse pResponseStatus_ =
DescribeUserPoolDomainResponse'
{_drsDomainDescription = Nothing, _drsResponseStatus = pResponseStatus_}
drsDomainDescription :: Lens' DescribeUserPoolDomainResponse (Maybe DomainDescriptionType)
drsDomainDescription = lens _drsDomainDescription (\ s a -> s{_drsDomainDescription = a});
drsResponseStatus :: Lens' DescribeUserPoolDomainResponse Int
drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
instance NFData DescribeUserPoolDomainResponse where