{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Route53.DisableHostedZoneDNSSEC
(
DisableHostedZoneDNSSEC (..),
newDisableHostedZoneDNSSEC,
disableHostedZoneDNSSEC_hostedZoneId,
DisableHostedZoneDNSSECResponse (..),
newDisableHostedZoneDNSSECResponse,
disableHostedZoneDNSSECResponse_httpStatus,
disableHostedZoneDNSSECResponse_changeInfo,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.Route53.Types
data DisableHostedZoneDNSSEC = DisableHostedZoneDNSSEC'
{
DisableHostedZoneDNSSEC -> ResourceId
hostedZoneId :: ResourceId
}
deriving (DisableHostedZoneDNSSEC -> DisableHostedZoneDNSSEC -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisableHostedZoneDNSSEC -> DisableHostedZoneDNSSEC -> Bool
$c/= :: DisableHostedZoneDNSSEC -> DisableHostedZoneDNSSEC -> Bool
== :: DisableHostedZoneDNSSEC -> DisableHostedZoneDNSSEC -> Bool
$c== :: DisableHostedZoneDNSSEC -> DisableHostedZoneDNSSEC -> Bool
Prelude.Eq, ReadPrec [DisableHostedZoneDNSSEC]
ReadPrec DisableHostedZoneDNSSEC
Int -> ReadS DisableHostedZoneDNSSEC
ReadS [DisableHostedZoneDNSSEC]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisableHostedZoneDNSSEC]
$creadListPrec :: ReadPrec [DisableHostedZoneDNSSEC]
readPrec :: ReadPrec DisableHostedZoneDNSSEC
$creadPrec :: ReadPrec DisableHostedZoneDNSSEC
readList :: ReadS [DisableHostedZoneDNSSEC]
$creadList :: ReadS [DisableHostedZoneDNSSEC]
readsPrec :: Int -> ReadS DisableHostedZoneDNSSEC
$creadsPrec :: Int -> ReadS DisableHostedZoneDNSSEC
Prelude.Read, Int -> DisableHostedZoneDNSSEC -> ShowS
[DisableHostedZoneDNSSEC] -> ShowS
DisableHostedZoneDNSSEC -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisableHostedZoneDNSSEC] -> ShowS
$cshowList :: [DisableHostedZoneDNSSEC] -> ShowS
show :: DisableHostedZoneDNSSEC -> String
$cshow :: DisableHostedZoneDNSSEC -> String
showsPrec :: Int -> DisableHostedZoneDNSSEC -> ShowS
$cshowsPrec :: Int -> DisableHostedZoneDNSSEC -> ShowS
Prelude.Show, forall x. Rep DisableHostedZoneDNSSEC x -> DisableHostedZoneDNSSEC
forall x. DisableHostedZoneDNSSEC -> Rep DisableHostedZoneDNSSEC x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DisableHostedZoneDNSSEC x -> DisableHostedZoneDNSSEC
$cfrom :: forall x. DisableHostedZoneDNSSEC -> Rep DisableHostedZoneDNSSEC x
Prelude.Generic)
newDisableHostedZoneDNSSEC ::
ResourceId ->
DisableHostedZoneDNSSEC
newDisableHostedZoneDNSSEC :: ResourceId -> DisableHostedZoneDNSSEC
newDisableHostedZoneDNSSEC ResourceId
pHostedZoneId_ =
DisableHostedZoneDNSSEC'
{ $sel:hostedZoneId:DisableHostedZoneDNSSEC' :: ResourceId
hostedZoneId =
ResourceId
pHostedZoneId_
}
disableHostedZoneDNSSEC_hostedZoneId :: Lens.Lens' DisableHostedZoneDNSSEC ResourceId
disableHostedZoneDNSSEC_hostedZoneId :: Lens' DisableHostedZoneDNSSEC ResourceId
disableHostedZoneDNSSEC_hostedZoneId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisableHostedZoneDNSSEC' {ResourceId
hostedZoneId :: ResourceId
$sel:hostedZoneId:DisableHostedZoneDNSSEC' :: DisableHostedZoneDNSSEC -> ResourceId
hostedZoneId} -> ResourceId
hostedZoneId) (\s :: DisableHostedZoneDNSSEC
s@DisableHostedZoneDNSSEC' {} ResourceId
a -> DisableHostedZoneDNSSEC
s {$sel:hostedZoneId:DisableHostedZoneDNSSEC' :: ResourceId
hostedZoneId = ResourceId
a} :: DisableHostedZoneDNSSEC)
instance Core.AWSRequest DisableHostedZoneDNSSEC where
type
AWSResponse DisableHostedZoneDNSSEC =
DisableHostedZoneDNSSECResponse
request :: (Service -> Service)
-> DisableHostedZoneDNSSEC -> Request DisableHostedZoneDNSSEC
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.post (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DisableHostedZoneDNSSEC
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DisableHostedZoneDNSSEC)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Int -> ChangeInfo -> DisableHostedZoneDNSSECResponse
DisableHostedZoneDNSSECResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"ChangeInfo")
)
instance Prelude.Hashable DisableHostedZoneDNSSEC where
hashWithSalt :: Int -> DisableHostedZoneDNSSEC -> Int
hashWithSalt Int
_salt DisableHostedZoneDNSSEC' {ResourceId
hostedZoneId :: ResourceId
$sel:hostedZoneId:DisableHostedZoneDNSSEC' :: DisableHostedZoneDNSSEC -> ResourceId
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ResourceId
hostedZoneId
instance Prelude.NFData DisableHostedZoneDNSSEC where
rnf :: DisableHostedZoneDNSSEC -> ()
rnf DisableHostedZoneDNSSEC' {ResourceId
hostedZoneId :: ResourceId
$sel:hostedZoneId:DisableHostedZoneDNSSEC' :: DisableHostedZoneDNSSEC -> ResourceId
..} =
forall a. NFData a => a -> ()
Prelude.rnf ResourceId
hostedZoneId
instance Data.ToHeaders DisableHostedZoneDNSSEC where
toHeaders :: DisableHostedZoneDNSSEC -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DisableHostedZoneDNSSEC where
toPath :: DisableHostedZoneDNSSEC -> ByteString
toPath DisableHostedZoneDNSSEC' {ResourceId
hostedZoneId :: ResourceId
$sel:hostedZoneId:DisableHostedZoneDNSSEC' :: DisableHostedZoneDNSSEC -> ResourceId
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/2013-04-01/hostedzone/",
forall a. ToByteString a => a -> ByteString
Data.toBS ResourceId
hostedZoneId,
ByteString
"/disable-dnssec"
]
instance Data.ToQuery DisableHostedZoneDNSSEC where
toQuery :: DisableHostedZoneDNSSEC -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DisableHostedZoneDNSSECResponse = DisableHostedZoneDNSSECResponse'
{
DisableHostedZoneDNSSECResponse -> Int
httpStatus :: Prelude.Int,
DisableHostedZoneDNSSECResponse -> ChangeInfo
changeInfo :: ChangeInfo
}
deriving (DisableHostedZoneDNSSECResponse
-> DisableHostedZoneDNSSECResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisableHostedZoneDNSSECResponse
-> DisableHostedZoneDNSSECResponse -> Bool
$c/= :: DisableHostedZoneDNSSECResponse
-> DisableHostedZoneDNSSECResponse -> Bool
== :: DisableHostedZoneDNSSECResponse
-> DisableHostedZoneDNSSECResponse -> Bool
$c== :: DisableHostedZoneDNSSECResponse
-> DisableHostedZoneDNSSECResponse -> Bool
Prelude.Eq, ReadPrec [DisableHostedZoneDNSSECResponse]
ReadPrec DisableHostedZoneDNSSECResponse
Int -> ReadS DisableHostedZoneDNSSECResponse
ReadS [DisableHostedZoneDNSSECResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisableHostedZoneDNSSECResponse]
$creadListPrec :: ReadPrec [DisableHostedZoneDNSSECResponse]
readPrec :: ReadPrec DisableHostedZoneDNSSECResponse
$creadPrec :: ReadPrec DisableHostedZoneDNSSECResponse
readList :: ReadS [DisableHostedZoneDNSSECResponse]
$creadList :: ReadS [DisableHostedZoneDNSSECResponse]
readsPrec :: Int -> ReadS DisableHostedZoneDNSSECResponse
$creadsPrec :: Int -> ReadS DisableHostedZoneDNSSECResponse
Prelude.Read, Int -> DisableHostedZoneDNSSECResponse -> ShowS
[DisableHostedZoneDNSSECResponse] -> ShowS
DisableHostedZoneDNSSECResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisableHostedZoneDNSSECResponse] -> ShowS
$cshowList :: [DisableHostedZoneDNSSECResponse] -> ShowS
show :: DisableHostedZoneDNSSECResponse -> String
$cshow :: DisableHostedZoneDNSSECResponse -> String
showsPrec :: Int -> DisableHostedZoneDNSSECResponse -> ShowS
$cshowsPrec :: Int -> DisableHostedZoneDNSSECResponse -> ShowS
Prelude.Show, forall x.
Rep DisableHostedZoneDNSSECResponse x
-> DisableHostedZoneDNSSECResponse
forall x.
DisableHostedZoneDNSSECResponse
-> Rep DisableHostedZoneDNSSECResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisableHostedZoneDNSSECResponse x
-> DisableHostedZoneDNSSECResponse
$cfrom :: forall x.
DisableHostedZoneDNSSECResponse
-> Rep DisableHostedZoneDNSSECResponse x
Prelude.Generic)
newDisableHostedZoneDNSSECResponse ::
Prelude.Int ->
ChangeInfo ->
DisableHostedZoneDNSSECResponse
newDisableHostedZoneDNSSECResponse :: Int -> ChangeInfo -> DisableHostedZoneDNSSECResponse
newDisableHostedZoneDNSSECResponse
Int
pHttpStatus_
ChangeInfo
pChangeInfo_ =
DisableHostedZoneDNSSECResponse'
{ $sel:httpStatus:DisableHostedZoneDNSSECResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:changeInfo:DisableHostedZoneDNSSECResponse' :: ChangeInfo
changeInfo = ChangeInfo
pChangeInfo_
}
disableHostedZoneDNSSECResponse_httpStatus :: Lens.Lens' DisableHostedZoneDNSSECResponse Prelude.Int
disableHostedZoneDNSSECResponse_httpStatus :: Lens' DisableHostedZoneDNSSECResponse Int
disableHostedZoneDNSSECResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisableHostedZoneDNSSECResponse' {Int
httpStatus :: Int
$sel:httpStatus:DisableHostedZoneDNSSECResponse' :: DisableHostedZoneDNSSECResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DisableHostedZoneDNSSECResponse
s@DisableHostedZoneDNSSECResponse' {} Int
a -> DisableHostedZoneDNSSECResponse
s {$sel:httpStatus:DisableHostedZoneDNSSECResponse' :: Int
httpStatus = Int
a} :: DisableHostedZoneDNSSECResponse)
disableHostedZoneDNSSECResponse_changeInfo :: Lens.Lens' DisableHostedZoneDNSSECResponse ChangeInfo
disableHostedZoneDNSSECResponse_changeInfo :: Lens' DisableHostedZoneDNSSECResponse ChangeInfo
disableHostedZoneDNSSECResponse_changeInfo = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisableHostedZoneDNSSECResponse' {ChangeInfo
changeInfo :: ChangeInfo
$sel:changeInfo:DisableHostedZoneDNSSECResponse' :: DisableHostedZoneDNSSECResponse -> ChangeInfo
changeInfo} -> ChangeInfo
changeInfo) (\s :: DisableHostedZoneDNSSECResponse
s@DisableHostedZoneDNSSECResponse' {} ChangeInfo
a -> DisableHostedZoneDNSSECResponse
s {$sel:changeInfo:DisableHostedZoneDNSSECResponse' :: ChangeInfo
changeInfo = ChangeInfo
a} :: DisableHostedZoneDNSSECResponse)
instance
Prelude.NFData
DisableHostedZoneDNSSECResponse
where
rnf :: DisableHostedZoneDNSSECResponse -> ()
rnf DisableHostedZoneDNSSECResponse' {Int
ChangeInfo
changeInfo :: ChangeInfo
httpStatus :: Int
$sel:changeInfo:DisableHostedZoneDNSSECResponse' :: DisableHostedZoneDNSSECResponse -> ChangeInfo
$sel:httpStatus:DisableHostedZoneDNSSECResponse' :: DisableHostedZoneDNSSECResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ChangeInfo
changeInfo