{-# 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.Route53Resolver.GetResolverDnssecConfig
(
GetResolverDnssecConfig (..),
newGetResolverDnssecConfig,
getResolverDnssecConfig_resourceId,
GetResolverDnssecConfigResponse (..),
newGetResolverDnssecConfigResponse,
getResolverDnssecConfigResponse_resolverDNSSECConfig,
getResolverDnssecConfigResponse_httpStatus,
)
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.Route53Resolver.Types
data GetResolverDnssecConfig = GetResolverDnssecConfig'
{
GetResolverDnssecConfig -> Text
resourceId :: Prelude.Text
}
deriving (GetResolverDnssecConfig -> GetResolverDnssecConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetResolverDnssecConfig -> GetResolverDnssecConfig -> Bool
$c/= :: GetResolverDnssecConfig -> GetResolverDnssecConfig -> Bool
== :: GetResolverDnssecConfig -> GetResolverDnssecConfig -> Bool
$c== :: GetResolverDnssecConfig -> GetResolverDnssecConfig -> Bool
Prelude.Eq, ReadPrec [GetResolverDnssecConfig]
ReadPrec GetResolverDnssecConfig
Int -> ReadS GetResolverDnssecConfig
ReadS [GetResolverDnssecConfig]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetResolverDnssecConfig]
$creadListPrec :: ReadPrec [GetResolverDnssecConfig]
readPrec :: ReadPrec GetResolverDnssecConfig
$creadPrec :: ReadPrec GetResolverDnssecConfig
readList :: ReadS [GetResolverDnssecConfig]
$creadList :: ReadS [GetResolverDnssecConfig]
readsPrec :: Int -> ReadS GetResolverDnssecConfig
$creadsPrec :: Int -> ReadS GetResolverDnssecConfig
Prelude.Read, Int -> GetResolverDnssecConfig -> ShowS
[GetResolverDnssecConfig] -> ShowS
GetResolverDnssecConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetResolverDnssecConfig] -> ShowS
$cshowList :: [GetResolverDnssecConfig] -> ShowS
show :: GetResolverDnssecConfig -> String
$cshow :: GetResolverDnssecConfig -> String
showsPrec :: Int -> GetResolverDnssecConfig -> ShowS
$cshowsPrec :: Int -> GetResolverDnssecConfig -> ShowS
Prelude.Show, forall x. Rep GetResolverDnssecConfig x -> GetResolverDnssecConfig
forall x. GetResolverDnssecConfig -> Rep GetResolverDnssecConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetResolverDnssecConfig x -> GetResolverDnssecConfig
$cfrom :: forall x. GetResolverDnssecConfig -> Rep GetResolverDnssecConfig x
Prelude.Generic)
newGetResolverDnssecConfig ::
Prelude.Text ->
GetResolverDnssecConfig
newGetResolverDnssecConfig :: Text -> GetResolverDnssecConfig
newGetResolverDnssecConfig Text
pResourceId_ =
GetResolverDnssecConfig' {$sel:resourceId:GetResolverDnssecConfig' :: Text
resourceId = Text
pResourceId_}
getResolverDnssecConfig_resourceId :: Lens.Lens' GetResolverDnssecConfig Prelude.Text
getResolverDnssecConfig_resourceId :: Lens' GetResolverDnssecConfig Text
getResolverDnssecConfig_resourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResolverDnssecConfig' {Text
resourceId :: Text
$sel:resourceId:GetResolverDnssecConfig' :: GetResolverDnssecConfig -> Text
resourceId} -> Text
resourceId) (\s :: GetResolverDnssecConfig
s@GetResolverDnssecConfig' {} Text
a -> GetResolverDnssecConfig
s {$sel:resourceId:GetResolverDnssecConfig' :: Text
resourceId = Text
a} :: GetResolverDnssecConfig)
instance Core.AWSRequest GetResolverDnssecConfig where
type
AWSResponse GetResolverDnssecConfig =
GetResolverDnssecConfigResponse
request :: (Service -> Service)
-> GetResolverDnssecConfig -> Request GetResolverDnssecConfig
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetResolverDnssecConfig
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetResolverDnssecConfig)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe ResolverDnssecConfig
-> Int -> GetResolverDnssecConfigResponse
GetResolverDnssecConfigResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"ResolverDNSSECConfig")
forall (f :: * -> *) a b. Applicative f => 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))
)
instance Prelude.Hashable GetResolverDnssecConfig where
hashWithSalt :: Int -> GetResolverDnssecConfig -> Int
hashWithSalt Int
_salt GetResolverDnssecConfig' {Text
resourceId :: Text
$sel:resourceId:GetResolverDnssecConfig' :: GetResolverDnssecConfig -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
resourceId
instance Prelude.NFData GetResolverDnssecConfig where
rnf :: GetResolverDnssecConfig -> ()
rnf GetResolverDnssecConfig' {Text
resourceId :: Text
$sel:resourceId:GetResolverDnssecConfig' :: GetResolverDnssecConfig -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
resourceId
instance Data.ToHeaders GetResolverDnssecConfig where
toHeaders :: GetResolverDnssecConfig -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"Route53Resolver.GetResolverDnssecConfig" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON GetResolverDnssecConfig where
toJSON :: GetResolverDnssecConfig -> Value
toJSON GetResolverDnssecConfig' {Text
resourceId :: Text
$sel:resourceId:GetResolverDnssecConfig' :: GetResolverDnssecConfig -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"ResourceId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
resourceId)]
)
instance Data.ToPath GetResolverDnssecConfig where
toPath :: GetResolverDnssecConfig -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery GetResolverDnssecConfig where
toQuery :: GetResolverDnssecConfig -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetResolverDnssecConfigResponse = GetResolverDnssecConfigResponse'
{
GetResolverDnssecConfigResponse -> Maybe ResolverDnssecConfig
resolverDNSSECConfig :: Prelude.Maybe ResolverDnssecConfig,
GetResolverDnssecConfigResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetResolverDnssecConfigResponse
-> GetResolverDnssecConfigResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetResolverDnssecConfigResponse
-> GetResolverDnssecConfigResponse -> Bool
$c/= :: GetResolverDnssecConfigResponse
-> GetResolverDnssecConfigResponse -> Bool
== :: GetResolverDnssecConfigResponse
-> GetResolverDnssecConfigResponse -> Bool
$c== :: GetResolverDnssecConfigResponse
-> GetResolverDnssecConfigResponse -> Bool
Prelude.Eq, ReadPrec [GetResolverDnssecConfigResponse]
ReadPrec GetResolverDnssecConfigResponse
Int -> ReadS GetResolverDnssecConfigResponse
ReadS [GetResolverDnssecConfigResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetResolverDnssecConfigResponse]
$creadListPrec :: ReadPrec [GetResolverDnssecConfigResponse]
readPrec :: ReadPrec GetResolverDnssecConfigResponse
$creadPrec :: ReadPrec GetResolverDnssecConfigResponse
readList :: ReadS [GetResolverDnssecConfigResponse]
$creadList :: ReadS [GetResolverDnssecConfigResponse]
readsPrec :: Int -> ReadS GetResolverDnssecConfigResponse
$creadsPrec :: Int -> ReadS GetResolverDnssecConfigResponse
Prelude.Read, Int -> GetResolverDnssecConfigResponse -> ShowS
[GetResolverDnssecConfigResponse] -> ShowS
GetResolverDnssecConfigResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetResolverDnssecConfigResponse] -> ShowS
$cshowList :: [GetResolverDnssecConfigResponse] -> ShowS
show :: GetResolverDnssecConfigResponse -> String
$cshow :: GetResolverDnssecConfigResponse -> String
showsPrec :: Int -> GetResolverDnssecConfigResponse -> ShowS
$cshowsPrec :: Int -> GetResolverDnssecConfigResponse -> ShowS
Prelude.Show, forall x.
Rep GetResolverDnssecConfigResponse x
-> GetResolverDnssecConfigResponse
forall x.
GetResolverDnssecConfigResponse
-> Rep GetResolverDnssecConfigResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetResolverDnssecConfigResponse x
-> GetResolverDnssecConfigResponse
$cfrom :: forall x.
GetResolverDnssecConfigResponse
-> Rep GetResolverDnssecConfigResponse x
Prelude.Generic)
newGetResolverDnssecConfigResponse ::
Prelude.Int ->
GetResolverDnssecConfigResponse
newGetResolverDnssecConfigResponse :: Int -> GetResolverDnssecConfigResponse
newGetResolverDnssecConfigResponse Int
pHttpStatus_ =
GetResolverDnssecConfigResponse'
{ $sel:resolverDNSSECConfig:GetResolverDnssecConfigResponse' :: Maybe ResolverDnssecConfig
resolverDNSSECConfig =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetResolverDnssecConfigResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getResolverDnssecConfigResponse_resolverDNSSECConfig :: Lens.Lens' GetResolverDnssecConfigResponse (Prelude.Maybe ResolverDnssecConfig)
getResolverDnssecConfigResponse_resolverDNSSECConfig :: Lens' GetResolverDnssecConfigResponse (Maybe ResolverDnssecConfig)
getResolverDnssecConfigResponse_resolverDNSSECConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResolverDnssecConfigResponse' {Maybe ResolverDnssecConfig
resolverDNSSECConfig :: Maybe ResolverDnssecConfig
$sel:resolverDNSSECConfig:GetResolverDnssecConfigResponse' :: GetResolverDnssecConfigResponse -> Maybe ResolverDnssecConfig
resolverDNSSECConfig} -> Maybe ResolverDnssecConfig
resolverDNSSECConfig) (\s :: GetResolverDnssecConfigResponse
s@GetResolverDnssecConfigResponse' {} Maybe ResolverDnssecConfig
a -> GetResolverDnssecConfigResponse
s {$sel:resolverDNSSECConfig:GetResolverDnssecConfigResponse' :: Maybe ResolverDnssecConfig
resolverDNSSECConfig = Maybe ResolverDnssecConfig
a} :: GetResolverDnssecConfigResponse)
getResolverDnssecConfigResponse_httpStatus :: Lens.Lens' GetResolverDnssecConfigResponse Prelude.Int
getResolverDnssecConfigResponse_httpStatus :: Lens' GetResolverDnssecConfigResponse Int
getResolverDnssecConfigResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResolverDnssecConfigResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetResolverDnssecConfigResponse' :: GetResolverDnssecConfigResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetResolverDnssecConfigResponse
s@GetResolverDnssecConfigResponse' {} Int
a -> GetResolverDnssecConfigResponse
s {$sel:httpStatus:GetResolverDnssecConfigResponse' :: Int
httpStatus = Int
a} :: GetResolverDnssecConfigResponse)
instance
Prelude.NFData
GetResolverDnssecConfigResponse
where
rnf :: GetResolverDnssecConfigResponse -> ()
rnf GetResolverDnssecConfigResponse' {Int
Maybe ResolverDnssecConfig
httpStatus :: Int
resolverDNSSECConfig :: Maybe ResolverDnssecConfig
$sel:httpStatus:GetResolverDnssecConfigResponse' :: GetResolverDnssecConfigResponse -> Int
$sel:resolverDNSSECConfig:GetResolverDnssecConfigResponse' :: GetResolverDnssecConfigResponse -> Maybe ResolverDnssecConfig
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ResolverDnssecConfig
resolverDNSSECConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus