diff --git a/amazonka-route53.cabal b/amazonka-route53.cabal --- a/amazonka-route53.cabal +++ b/amazonka-route53.cabal @@ -1,5 +1,5 @@ name: amazonka-route53 -version: 0.3.0 +version: 0.3.1 synopsis: Amazon Route 53 SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -56,10 +56,12 @@ , Network.AWS.Route53.GetHealthCheckLastFailureReason , Network.AWS.Route53.GetHealthCheckStatus , Network.AWS.Route53.GetHostedZone + , Network.AWS.Route53.GetHostedZoneCount , Network.AWS.Route53.GetReusableDelegationSet , Network.AWS.Route53.ListGeoLocations , Network.AWS.Route53.ListHealthChecks , Network.AWS.Route53.ListHostedZones + , Network.AWS.Route53.ListHostedZonesByName , Network.AWS.Route53.ListResourceRecordSets , Network.AWS.Route53.ListReusableDelegationSets , Network.AWS.Route53.ListTagsForResource @@ -72,5 +74,5 @@ Network.AWS.Route53.Internal build-depends: - amazonka-core == 0.3.0.* + amazonka-core == 0.3.1.* , base >= 4.7 && < 5 diff --git a/gen/Network/AWS/Route53.hs b/gen/Network/AWS/Route53.hs --- a/gen/Network/AWS/Route53.hs +++ b/gen/Network/AWS/Route53.hs @@ -35,10 +35,12 @@ , module Network.AWS.Route53.GetHealthCheckLastFailureReason , module Network.AWS.Route53.GetHealthCheckStatus , module Network.AWS.Route53.GetHostedZone + , module Network.AWS.Route53.GetHostedZoneCount , module Network.AWS.Route53.GetReusableDelegationSet , module Network.AWS.Route53.ListGeoLocations , module Network.AWS.Route53.ListHealthChecks , module Network.AWS.Route53.ListHostedZones + , module Network.AWS.Route53.ListHostedZonesByName , module Network.AWS.Route53.ListResourceRecordSets , module Network.AWS.Route53.ListReusableDelegationSets , module Network.AWS.Route53.ListTagsForResource @@ -66,10 +68,12 @@ import Network.AWS.Route53.GetHealthCheckLastFailureReason import Network.AWS.Route53.GetHealthCheckStatus import Network.AWS.Route53.GetHostedZone +import Network.AWS.Route53.GetHostedZoneCount import Network.AWS.Route53.GetReusableDelegationSet import Network.AWS.Route53.ListGeoLocations import Network.AWS.Route53.ListHealthChecks import Network.AWS.Route53.ListHostedZones +import Network.AWS.Route53.ListHostedZonesByName import Network.AWS.Route53.ListResourceRecordSets import Network.AWS.Route53.ListReusableDelegationSets import Network.AWS.Route53.ListTagsForResource diff --git a/gen/Network/AWS/Route53/GetHostedZoneCount.hs b/gen/Network/AWS/Route53/GetHostedZoneCount.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/Route53/GetHostedZoneCount.hs @@ -0,0 +1,98 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Module : Network.AWS.Route53.GetHostedZoneCount +-- Copyright : (c) 2013-2014 Brendan Hay +-- License : This Source Code Form is subject to the terms of +-- the Mozilla Public License, v. 2.0. +-- A copy of the MPL can be found in the LICENSE file or +-- you can obtain it at http://mozilla.org/MPL/2.0/. +-- Maintainer : Brendan Hay +-- Stability : experimental +-- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | To retrieve a count of all your hosted zones, send a 'GET' request to the '2013-04-01/hostedzonecount' resource. +-- +-- +module Network.AWS.Route53.GetHostedZoneCount + ( + -- * Request + GetHostedZoneCount + -- ** Request constructor + , getHostedZoneCount + + -- * Response + , GetHostedZoneCountResponse + -- ** Response constructor + , getHostedZoneCountResponse + -- ** Response lenses + , 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' constructor. +getHostedZoneCount :: GetHostedZoneCount +getHostedZoneCount = GetHostedZoneCount + +newtype GetHostedZoneCountResponse = GetHostedZoneCountResponse + { _ghzcrHostedZoneCount :: Integer + } deriving (Eq, Ord, Read, Show, Enum, Num, Integral, Real) + +-- | 'GetHostedZoneCountResponse' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'ghzcrHostedZoneCount' @::@ 'Integer' +-- +getHostedZoneCountResponse :: Integer -- ^ 'ghzcrHostedZoneCount' + -> GetHostedZoneCountResponse +getHostedZoneCountResponse p1 = GetHostedZoneCountResponse + { _ghzcrHostedZoneCount = p1 + } + +-- | The number of hosted zones associated with the current AWS account. +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" diff --git a/gen/Network/AWS/Route53/ListHostedZonesByName.hs b/gen/Network/AWS/Route53/ListHostedZonesByName.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/Route53/ListHostedZonesByName.hs @@ -0,0 +1,232 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Module : Network.AWS.Route53.ListHostedZonesByName +-- Copyright : (c) 2013-2014 Brendan Hay +-- License : This Source Code Form is subject to the terms of +-- the Mozilla Public License, v. 2.0. +-- A copy of the MPL can be found in the LICENSE file or +-- you can obtain it at http://mozilla.org/MPL/2.0/. +-- Maintainer : Brendan Hay +-- Stability : experimental +-- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | To retrieve a list of your hosted zones in lexicographic order, send a 'GET' +-- request to the '2013-04-01/hostedzonesbyname' resource. The response to this +-- request includes a 'HostedZones' element with zero or more 'HostedZone' child +-- elements lexicographically ordered by DNS name. By default, the list of +-- hosted zones is displayed on a single page. You can control the length of the +-- page that is displayed by using the 'MaxItems' parameter. You can use the 'DNSName' and 'HostedZoneId' parameters to control the hosted zone that the list begins +-- with. +-- +-- Amazon Route 53 returns a maximum of 100 items. If you set MaxItems to a +-- value greater than 100, Amazon Route 53 returns only the first 100. +-- +-- +module Network.AWS.Route53.ListHostedZonesByName + ( + -- * Request + ListHostedZonesByName + -- ** Request constructor + , listHostedZonesByName + -- ** Request lenses + , lhzbnDNSName + , lhzbnHostedZoneId + , lhzbnMaxItems + + -- * Response + , ListHostedZonesByNameResponse + -- ** Response constructor + , listHostedZonesByNameResponse + -- ** Response lenses + , lhzbnrDNSName + , lhzbnrHostedZoneId + , lhzbnrHostedZones + , lhzbnrIsTruncated + , lhzbnrMaxItems + , lhzbnrNextDNSName + , lhzbnrNextHostedZoneId + ) where + +import Network.AWS.Prelude +import Network.AWS.Request.RestXML +import Network.AWS.Route53.Types +import qualified GHC.Exts + +data ListHostedZonesByName = ListHostedZonesByName + { _lhzbnDNSName :: Maybe Text + , _lhzbnHostedZoneId :: Maybe Text + , _lhzbnMaxItems :: Maybe Text + } deriving (Eq, Ord, Read, Show) + +-- | 'ListHostedZonesByName' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'lhzbnDNSName' @::@ 'Maybe' 'Text' +-- +-- * 'lhzbnHostedZoneId' @::@ 'Maybe' 'Text' +-- +-- * 'lhzbnMaxItems' @::@ 'Maybe' 'Text' +-- +listHostedZonesByName :: ListHostedZonesByName +listHostedZonesByName = ListHostedZonesByName + { _lhzbnDNSName = Nothing + , _lhzbnHostedZoneId = Nothing + , _lhzbnMaxItems = Nothing + } + +-- | The first name in the lexicographic ordering of domain names that you want +-- the 'ListHostedZonesByNameRequest' request to list. +-- +-- If the request returned more than one page of results, submit another +-- request and specify the value of 'NextDNSName' and 'NextHostedZoneId' from the +-- last response in the 'DNSName' and 'HostedZoneId' parameters to get the next page +-- of results. +lhzbnDNSName :: Lens' ListHostedZonesByName (Maybe Text) +lhzbnDNSName = lens _lhzbnDNSName (\s a -> s { _lhzbnDNSName = a }) + +-- | If the request returned more than one page of results, submit another request +-- and specify the value of 'NextDNSName' and 'NextHostedZoneId' from the last +-- response in the 'DNSName' and 'HostedZoneId' parameters to get the next page of +-- results. +lhzbnHostedZoneId :: Lens' ListHostedZonesByName (Maybe Text) +lhzbnHostedZoneId = + lens _lhzbnHostedZoneId (\s a -> s { _lhzbnHostedZoneId = a }) + +-- | Specify the maximum number of hosted zones to return per page of results. +lhzbnMaxItems :: Lens' ListHostedZonesByName (Maybe Text) +lhzbnMaxItems = lens _lhzbnMaxItems (\s a -> s { _lhzbnMaxItems = a }) + +data ListHostedZonesByNameResponse = ListHostedZonesByNameResponse + { _lhzbnrDNSName :: Maybe Text + , _lhzbnrHostedZoneId :: Maybe Text + , _lhzbnrHostedZones :: List "HostedZone" HostedZone + , _lhzbnrIsTruncated :: Bool + , _lhzbnrMaxItems :: Text + , _lhzbnrNextDNSName :: Maybe Text + , _lhzbnrNextHostedZoneId :: Maybe Text + } deriving (Eq, Read, Show) + +-- | 'ListHostedZonesByNameResponse' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'lhzbnrDNSName' @::@ 'Maybe' 'Text' +-- +-- * 'lhzbnrHostedZoneId' @::@ 'Maybe' 'Text' +-- +-- * 'lhzbnrHostedZones' @::@ ['HostedZone'] +-- +-- * 'lhzbnrIsTruncated' @::@ 'Bool' +-- +-- * 'lhzbnrMaxItems' @::@ 'Text' +-- +-- * 'lhzbnrNextDNSName' @::@ 'Maybe' 'Text' +-- +-- * 'lhzbnrNextHostedZoneId' @::@ 'Maybe' 'Text' +-- +listHostedZonesByNameResponse :: Bool -- ^ 'lhzbnrIsTruncated' + -> Text -- ^ 'lhzbnrMaxItems' + -> ListHostedZonesByNameResponse +listHostedZonesByNameResponse p1 p2 = ListHostedZonesByNameResponse + { _lhzbnrIsTruncated = p1 + , _lhzbnrMaxItems = p2 + , _lhzbnrHostedZones = mempty + , _lhzbnrDNSName = Nothing + , _lhzbnrHostedZoneId = Nothing + , _lhzbnrNextDNSName = Nothing + , _lhzbnrNextHostedZoneId = Nothing + } + +-- | The 'DNSName' value sent in the request. +lhzbnrDNSName :: Lens' ListHostedZonesByNameResponse (Maybe Text) +lhzbnrDNSName = lens _lhzbnrDNSName (\s a -> s { _lhzbnrDNSName = a }) + +-- | The 'HostedZoneId' value sent in the request. +lhzbnrHostedZoneId :: Lens' ListHostedZonesByNameResponse (Maybe Text) +lhzbnrHostedZoneId = + lens _lhzbnrHostedZoneId (\s a -> s { _lhzbnrHostedZoneId = a }) + +-- | A complex type that contains information about the hosted zones associated +-- with the current AWS account. +lhzbnrHostedZones :: Lens' ListHostedZonesByNameResponse [HostedZone] +lhzbnrHostedZones = + lens _lhzbnrHostedZones (\s a -> s { _lhzbnrHostedZones = a }) + . _List + +-- | A flag indicating whether there are more hosted zones to be listed. If your +-- results were truncated, you can make a follow-up request for the next page of +-- results by using the 'NextDNSName' and 'NextHostedZoneId' elements. +-- +-- Valid Values: 'true' | 'false' +lhzbnrIsTruncated :: Lens' ListHostedZonesByNameResponse Bool +lhzbnrIsTruncated = + lens _lhzbnrIsTruncated (\s a -> s { _lhzbnrIsTruncated = a }) + +-- | The maximum number of hosted zones to be included in the response body. If +-- the number of hosted zones associated with this AWS account exceeds 'MaxItems', +-- the value of 'ListHostedZonesByNameResponse$IsTruncated' in the response is 'true' +-- . Call 'ListHostedZonesByName' again and specify the value of 'ListHostedZonesByNameResponse$NextDNSName' and 'ListHostedZonesByNameResponse$NextHostedZoneId' elements respectively to +-- get the next page of results. +lhzbnrMaxItems :: Lens' ListHostedZonesByNameResponse Text +lhzbnrMaxItems = lens _lhzbnrMaxItems (\s a -> s { _lhzbnrMaxItems = a }) + +-- | If 'ListHostedZonesByNameResponse$IsTruncated' is 'true', there are more hosted +-- zones associated with the current AWS account. To get the next page of +-- results, make another request to 'ListHostedZonesByName'. Specify the value of 'ListHostedZonesByNameResponse$NextDNSName' in the 'ListHostedZonesByNameRequest$DNSName' element and 'ListHostedZonesByNameResponse$NextHostedZoneId' in the 'ListHostedZonesByNameRequest$HostedZoneId' element. +lhzbnrNextDNSName :: Lens' ListHostedZonesByNameResponse (Maybe Text) +lhzbnrNextDNSName = + lens _lhzbnrNextDNSName (\s a -> s { _lhzbnrNextDNSName = a }) + +-- | If 'ListHostedZonesByNameResponse$IsTruncated' is 'true', there are more hosted +-- zones associated with the current AWS account. To get the next page of +-- results, make another request to 'ListHostedZonesByName'. Specify the value of 'ListHostedZonesByNameResponse$NextDNSName' in the 'ListHostedZonesByNameRequest$DNSName' element and 'ListHostedZonesByNameResponse$NextHostedZoneId' in the 'ListHostedZonesByNameRequest$HostedZoneId' element. +lhzbnrNextHostedZoneId :: Lens' ListHostedZonesByNameResponse (Maybe Text) +lhzbnrNextHostedZoneId = + lens _lhzbnrNextHostedZoneId (\s a -> s { _lhzbnrNextHostedZoneId = a }) + +instance ToPath ListHostedZonesByName where + toPath = const "/2013-04-01/hostedzonesbyname" + +instance ToQuery ListHostedZonesByName where + toQuery ListHostedZonesByName{..} = mconcat + [ "dnsname" =? _lhzbnDNSName + , "hostedzoneid" =? _lhzbnHostedZoneId + , "maxitems" =? _lhzbnMaxItems + ] + +instance ToHeaders ListHostedZonesByName + +instance ToXMLRoot ListHostedZonesByName where + toXMLRoot = const (namespaced ns "ListHostedZonesByName" []) + +instance ToXML ListHostedZonesByName + +instance AWSRequest ListHostedZonesByName where + type Sv ListHostedZonesByName = Route53 + type Rs ListHostedZonesByName = ListHostedZonesByNameResponse + + request = get + response = xmlResponse + +instance FromXML ListHostedZonesByNameResponse where + parseXML x = ListHostedZonesByNameResponse + <$> x .@? "DNSName" + <*> x .@? "HostedZoneId" + <*> x .@? "HostedZones" .!@ mempty + <*> x .@ "IsTruncated" + <*> x .@ "MaxItems" + <*> x .@? "NextDNSName" + <*> x .@? "NextHostedZoneId"