{-# 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.SWF.DescribeDomain
(
describeDomain
, DescribeDomain
, ddName
, describeDomainResponse
, DescribeDomainResponse
, ddrsResponseStatus
, ddrsDomainInfo
, ddrsConfiguration
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SWF.Types
import Network.AWS.SWF.Types.Product
newtype DescribeDomain = DescribeDomain'
{ _ddName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeDomain
:: Text
-> DescribeDomain
describeDomain pName_ = DescribeDomain' {_ddName = pName_}
ddName :: Lens' DescribeDomain Text
ddName = lens _ddName (\ s a -> s{_ddName = a})
instance AWSRequest DescribeDomain where
type Rs DescribeDomain = DescribeDomainResponse
request = postJSON swf
response
= receiveJSON
(\ s h x ->
DescribeDomainResponse' <$>
(pure (fromEnum s)) <*> (x .:> "domainInfo") <*>
(x .:> "configuration"))
instance Hashable DescribeDomain where
instance NFData DescribeDomain where
instance ToHeaders DescribeDomain where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("SimpleWorkflowService.DescribeDomain" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.0" :: ByteString)])
instance ToJSON DescribeDomain where
toJSON DescribeDomain'{..}
= object (catMaybes [Just ("name" .= _ddName)])
instance ToPath DescribeDomain where
toPath = const "/"
instance ToQuery DescribeDomain where
toQuery = const mempty
data DescribeDomainResponse = DescribeDomainResponse'
{ _ddrsResponseStatus :: !Int
, _ddrsDomainInfo :: !DomainInfo
, _ddrsConfiguration :: !DomainConfiguration
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeDomainResponse
:: Int
-> DomainInfo
-> DomainConfiguration
-> DescribeDomainResponse
describeDomainResponse pResponseStatus_ pDomainInfo_ pConfiguration_ =
DescribeDomainResponse'
{ _ddrsResponseStatus = pResponseStatus_
, _ddrsDomainInfo = pDomainInfo_
, _ddrsConfiguration = pConfiguration_
}
ddrsResponseStatus :: Lens' DescribeDomainResponse Int
ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a})
ddrsDomainInfo :: Lens' DescribeDomainResponse DomainInfo
ddrsDomainInfo = lens _ddrsDomainInfo (\ s a -> s{_ddrsDomainInfo = a})
ddrsConfiguration :: Lens' DescribeDomainResponse DomainConfiguration
ddrsConfiguration = lens _ddrsConfiguration (\ s a -> s{_ddrsConfiguration = a})
instance NFData DescribeDomainResponse where