module Network.Google.Resource.DNS.DNSkeys.List
(
DNSkeysListResource
, dnskeysList
, DNSkeysList
, dlProject
, dlDigestType
, dlPageToken
, dlManagedZone
, dlMaxResults
) where
import Network.Google.DNS.Types
import Network.Google.Prelude
type DNSkeysListResource =
"dns" :>
"v2beta1" :>
"projects" :>
Capture "project" Text :>
"managedZones" :>
Capture "managedZone" Text :>
"dnsKeys" :>
QueryParam "digestType" Text :>
QueryParam "pageToken" Text :>
QueryParam "maxResults" (Textual Int32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] DNSKeysListResponse
data DNSkeysList = DNSkeysList'
{ _dlProject :: !Text
, _dlDigestType :: !(Maybe Text)
, _dlPageToken :: !(Maybe Text)
, _dlManagedZone :: !Text
, _dlMaxResults :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
dnskeysList
:: Text
-> Text
-> DNSkeysList
dnskeysList pDlProject_ pDlManagedZone_ =
DNSkeysList'
{ _dlProject = pDlProject_
, _dlDigestType = Nothing
, _dlPageToken = Nothing
, _dlManagedZone = pDlManagedZone_
, _dlMaxResults = Nothing
}
dlProject :: Lens' DNSkeysList Text
dlProject
= lens _dlProject (\ s a -> s{_dlProject = a})
dlDigestType :: Lens' DNSkeysList (Maybe Text)
dlDigestType
= lens _dlDigestType (\ s a -> s{_dlDigestType = a})
dlPageToken :: Lens' DNSkeysList (Maybe Text)
dlPageToken
= lens _dlPageToken (\ s a -> s{_dlPageToken = a})
dlManagedZone :: Lens' DNSkeysList Text
dlManagedZone
= lens _dlManagedZone
(\ s a -> s{_dlManagedZone = a})
dlMaxResults :: Lens' DNSkeysList (Maybe Int32)
dlMaxResults
= lens _dlMaxResults (\ s a -> s{_dlMaxResults = a})
. mapping _Coerce
instance GoogleRequest DNSkeysList where
type Rs DNSkeysList = DNSKeysListResponse
type Scopes DNSkeysList =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/cloud-platform.read-only",
"https://www.googleapis.com/auth/ndev.clouddns.readonly",
"https://www.googleapis.com/auth/ndev.clouddns.readwrite"]
requestClient DNSkeysList'{..}
= go _dlProject _dlManagedZone _dlDigestType
_dlPageToken
_dlMaxResults
(Just AltJSON)
dNSService
where go
= buildClient (Proxy :: Proxy DNSkeysListResource)
mempty