module Network.AWS.Route53.GetHostedZoneCount
(
GetHostedZoneCount
, getHostedZoneCount
, GetHostedZoneCountResponse
, getHostedZoneCountResponse
, ghzcrHostedZoneCount
) where
import Network.AWS.Prelude
import Network.AWS.Request.RestXML
import Network.AWS.Route53.Types
import qualified GHC.Exts
data GetHostedZoneCount = GetHostedZoneCount
deriving (Eq, Ord, Read, Show, Generic)
getHostedZoneCount :: GetHostedZoneCount
getHostedZoneCount = GetHostedZoneCount
newtype GetHostedZoneCountResponse = GetHostedZoneCountResponse
{ _ghzcrHostedZoneCount :: Integer
} deriving (Eq, Ord, Read, Show, Enum, Num, Integral, Real)
getHostedZoneCountResponse :: Integer
-> GetHostedZoneCountResponse
getHostedZoneCountResponse p1 = GetHostedZoneCountResponse
{ _ghzcrHostedZoneCount = p1
}
ghzcrHostedZoneCount :: Lens' GetHostedZoneCountResponse Integer
ghzcrHostedZoneCount =
lens _ghzcrHostedZoneCount (\s a -> s { _ghzcrHostedZoneCount = a })
instance ToPath GetHostedZoneCount where
toPath = const "/2013-04-01/hostedzonecount"
instance ToQuery GetHostedZoneCount where
toQuery = const mempty
instance ToHeaders GetHostedZoneCount
instance ToXMLRoot GetHostedZoneCount where
toXMLRoot = const (namespaced ns "GetHostedZoneCount" [])
instance ToXML GetHostedZoneCount
instance AWSRequest GetHostedZoneCount where
type Sv GetHostedZoneCount = Route53
type Rs GetHostedZoneCount = GetHostedZoneCountResponse
request = get
response = xmlResponse
instance FromXML GetHostedZoneCountResponse where
parseXML x = GetHostedZoneCountResponse
<$> x .@ "HostedZoneCount"