module Network.AWS.Route53.GetReusableDelegationSet
(
GetReusableDelegationSet
, getReusableDelegationSet
, grdsId
, GetReusableDelegationSetResponse
, getReusableDelegationSetResponse
, grdsrDelegationSet
) where
import Network.AWS.Prelude
import Network.AWS.Request.RestXML
import Network.AWS.Route53.Types
import qualified GHC.Exts
newtype GetReusableDelegationSet = GetReusableDelegationSet
{ _grdsId :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
getReusableDelegationSet :: Text
-> GetReusableDelegationSet
getReusableDelegationSet p1 = GetReusableDelegationSet
{ _grdsId = p1
}
grdsId :: Lens' GetReusableDelegationSet Text
grdsId = lens _grdsId (\s a -> s { _grdsId = a })
newtype GetReusableDelegationSetResponse = GetReusableDelegationSetResponse
{ _grdsrDelegationSet :: DelegationSet
} deriving (Eq, Show)
getReusableDelegationSetResponse :: DelegationSet
-> GetReusableDelegationSetResponse
getReusableDelegationSetResponse p1 = GetReusableDelegationSetResponse
{ _grdsrDelegationSet = p1
}
grdsrDelegationSet :: Lens' GetReusableDelegationSetResponse DelegationSet
grdsrDelegationSet =
lens _grdsrDelegationSet (\s a -> s { _grdsrDelegationSet = a })
instance ToPath GetReusableDelegationSet where
toPath GetReusableDelegationSet{..} = mconcat
[ "/2013-04-01/delegationset/"
, toText _grdsId
]
instance ToQuery GetReusableDelegationSet where
toQuery = const mempty
instance ToHeaders GetReusableDelegationSet
instance ToXMLRoot GetReusableDelegationSet where
toXMLRoot = const (namespaced ns "GetReusableDelegationSet" [])
instance ToXML GetReusableDelegationSet
instance AWSRequest GetReusableDelegationSet where
type Sv GetReusableDelegationSet = Route53
type Rs GetReusableDelegationSet = GetReusableDelegationSetResponse
request = get
response = xmlResponse
instance FromXML GetReusableDelegationSetResponse where
parseXML x = GetReusableDelegationSetResponse
<$> x .@ "DelegationSet"