{-# 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.DeleteResolverQueryLogConfig
(
DeleteResolverQueryLogConfig (..),
newDeleteResolverQueryLogConfig,
deleteResolverQueryLogConfig_resolverQueryLogConfigId,
DeleteResolverQueryLogConfigResponse (..),
newDeleteResolverQueryLogConfigResponse,
deleteResolverQueryLogConfigResponse_resolverQueryLogConfig,
deleteResolverQueryLogConfigResponse_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 DeleteResolverQueryLogConfig = DeleteResolverQueryLogConfig'
{
DeleteResolverQueryLogConfig -> Text
resolverQueryLogConfigId :: Prelude.Text
}
deriving (DeleteResolverQueryLogConfig
-> DeleteResolverQueryLogConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteResolverQueryLogConfig
-> DeleteResolverQueryLogConfig -> Bool
$c/= :: DeleteResolverQueryLogConfig
-> DeleteResolverQueryLogConfig -> Bool
== :: DeleteResolverQueryLogConfig
-> DeleteResolverQueryLogConfig -> Bool
$c== :: DeleteResolverQueryLogConfig
-> DeleteResolverQueryLogConfig -> Bool
Prelude.Eq, ReadPrec [DeleteResolverQueryLogConfig]
ReadPrec DeleteResolverQueryLogConfig
Int -> ReadS DeleteResolverQueryLogConfig
ReadS [DeleteResolverQueryLogConfig]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteResolverQueryLogConfig]
$creadListPrec :: ReadPrec [DeleteResolverQueryLogConfig]
readPrec :: ReadPrec DeleteResolverQueryLogConfig
$creadPrec :: ReadPrec DeleteResolverQueryLogConfig
readList :: ReadS [DeleteResolverQueryLogConfig]
$creadList :: ReadS [DeleteResolverQueryLogConfig]
readsPrec :: Int -> ReadS DeleteResolverQueryLogConfig
$creadsPrec :: Int -> ReadS DeleteResolverQueryLogConfig
Prelude.Read, Int -> DeleteResolverQueryLogConfig -> ShowS
[DeleteResolverQueryLogConfig] -> ShowS
DeleteResolverQueryLogConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteResolverQueryLogConfig] -> ShowS
$cshowList :: [DeleteResolverQueryLogConfig] -> ShowS
show :: DeleteResolverQueryLogConfig -> String
$cshow :: DeleteResolverQueryLogConfig -> String
showsPrec :: Int -> DeleteResolverQueryLogConfig -> ShowS
$cshowsPrec :: Int -> DeleteResolverQueryLogConfig -> ShowS
Prelude.Show, forall x.
Rep DeleteResolverQueryLogConfig x -> DeleteResolverQueryLogConfig
forall x.
DeleteResolverQueryLogConfig -> Rep DeleteResolverQueryLogConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteResolverQueryLogConfig x -> DeleteResolverQueryLogConfig
$cfrom :: forall x.
DeleteResolverQueryLogConfig -> Rep DeleteResolverQueryLogConfig x
Prelude.Generic)
newDeleteResolverQueryLogConfig ::
Prelude.Text ->
DeleteResolverQueryLogConfig
newDeleteResolverQueryLogConfig :: Text -> DeleteResolverQueryLogConfig
newDeleteResolverQueryLogConfig
Text
pResolverQueryLogConfigId_ =
DeleteResolverQueryLogConfig'
{ $sel:resolverQueryLogConfigId:DeleteResolverQueryLogConfig' :: Text
resolverQueryLogConfigId =
Text
pResolverQueryLogConfigId_
}
deleteResolverQueryLogConfig_resolverQueryLogConfigId :: Lens.Lens' DeleteResolverQueryLogConfig Prelude.Text
deleteResolverQueryLogConfig_resolverQueryLogConfigId :: Lens' DeleteResolverQueryLogConfig Text
deleteResolverQueryLogConfig_resolverQueryLogConfigId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteResolverQueryLogConfig' {Text
resolverQueryLogConfigId :: Text
$sel:resolverQueryLogConfigId:DeleteResolverQueryLogConfig' :: DeleteResolverQueryLogConfig -> Text
resolverQueryLogConfigId} -> Text
resolverQueryLogConfigId) (\s :: DeleteResolverQueryLogConfig
s@DeleteResolverQueryLogConfig' {} Text
a -> DeleteResolverQueryLogConfig
s {$sel:resolverQueryLogConfigId:DeleteResolverQueryLogConfig' :: Text
resolverQueryLogConfigId = Text
a} :: DeleteResolverQueryLogConfig)
instance Core.AWSRequest DeleteResolverQueryLogConfig where
type
AWSResponse DeleteResolverQueryLogConfig =
DeleteResolverQueryLogConfigResponse
request :: (Service -> Service)
-> DeleteResolverQueryLogConfig
-> Request DeleteResolverQueryLogConfig
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 DeleteResolverQueryLogConfig
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteResolverQueryLogConfig)))
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 ResolverQueryLogConfig
-> Int -> DeleteResolverQueryLogConfigResponse
DeleteResolverQueryLogConfigResponse'
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
"ResolverQueryLogConfig")
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
DeleteResolverQueryLogConfig
where
hashWithSalt :: Int -> DeleteResolverQueryLogConfig -> Int
hashWithSalt Int
_salt DeleteResolverQueryLogConfig' {Text
resolverQueryLogConfigId :: Text
$sel:resolverQueryLogConfigId:DeleteResolverQueryLogConfig' :: DeleteResolverQueryLogConfig -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
resolverQueryLogConfigId
instance Prelude.NFData DeleteResolverQueryLogConfig where
rnf :: DeleteResolverQueryLogConfig -> ()
rnf DeleteResolverQueryLogConfig' {Text
resolverQueryLogConfigId :: Text
$sel:resolverQueryLogConfigId:DeleteResolverQueryLogConfig' :: DeleteResolverQueryLogConfig -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
resolverQueryLogConfigId
instance Data.ToHeaders DeleteResolverQueryLogConfig where
toHeaders :: DeleteResolverQueryLogConfig -> 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.DeleteResolverQueryLogConfig" ::
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 DeleteResolverQueryLogConfig where
toJSON :: DeleteResolverQueryLogConfig -> Value
toJSON DeleteResolverQueryLogConfig' {Text
resolverQueryLogConfigId :: Text
$sel:resolverQueryLogConfigId:DeleteResolverQueryLogConfig' :: DeleteResolverQueryLogConfig -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"ResolverQueryLogConfigId"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
resolverQueryLogConfigId
)
]
)
instance Data.ToPath DeleteResolverQueryLogConfig where
toPath :: DeleteResolverQueryLogConfig -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteResolverQueryLogConfig where
toQuery :: DeleteResolverQueryLogConfig -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteResolverQueryLogConfigResponse = DeleteResolverQueryLogConfigResponse'
{
DeleteResolverQueryLogConfigResponse
-> Maybe ResolverQueryLogConfig
resolverQueryLogConfig :: Prelude.Maybe ResolverQueryLogConfig,
DeleteResolverQueryLogConfigResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteResolverQueryLogConfigResponse
-> DeleteResolverQueryLogConfigResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteResolverQueryLogConfigResponse
-> DeleteResolverQueryLogConfigResponse -> Bool
$c/= :: DeleteResolverQueryLogConfigResponse
-> DeleteResolverQueryLogConfigResponse -> Bool
== :: DeleteResolverQueryLogConfigResponse
-> DeleteResolverQueryLogConfigResponse -> Bool
$c== :: DeleteResolverQueryLogConfigResponse
-> DeleteResolverQueryLogConfigResponse -> Bool
Prelude.Eq, ReadPrec [DeleteResolverQueryLogConfigResponse]
ReadPrec DeleteResolverQueryLogConfigResponse
Int -> ReadS DeleteResolverQueryLogConfigResponse
ReadS [DeleteResolverQueryLogConfigResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteResolverQueryLogConfigResponse]
$creadListPrec :: ReadPrec [DeleteResolverQueryLogConfigResponse]
readPrec :: ReadPrec DeleteResolverQueryLogConfigResponse
$creadPrec :: ReadPrec DeleteResolverQueryLogConfigResponse
readList :: ReadS [DeleteResolverQueryLogConfigResponse]
$creadList :: ReadS [DeleteResolverQueryLogConfigResponse]
readsPrec :: Int -> ReadS DeleteResolverQueryLogConfigResponse
$creadsPrec :: Int -> ReadS DeleteResolverQueryLogConfigResponse
Prelude.Read, Int -> DeleteResolverQueryLogConfigResponse -> ShowS
[DeleteResolverQueryLogConfigResponse] -> ShowS
DeleteResolverQueryLogConfigResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteResolverQueryLogConfigResponse] -> ShowS
$cshowList :: [DeleteResolverQueryLogConfigResponse] -> ShowS
show :: DeleteResolverQueryLogConfigResponse -> String
$cshow :: DeleteResolverQueryLogConfigResponse -> String
showsPrec :: Int -> DeleteResolverQueryLogConfigResponse -> ShowS
$cshowsPrec :: Int -> DeleteResolverQueryLogConfigResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteResolverQueryLogConfigResponse x
-> DeleteResolverQueryLogConfigResponse
forall x.
DeleteResolverQueryLogConfigResponse
-> Rep DeleteResolverQueryLogConfigResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteResolverQueryLogConfigResponse x
-> DeleteResolverQueryLogConfigResponse
$cfrom :: forall x.
DeleteResolverQueryLogConfigResponse
-> Rep DeleteResolverQueryLogConfigResponse x
Prelude.Generic)
newDeleteResolverQueryLogConfigResponse ::
Prelude.Int ->
DeleteResolverQueryLogConfigResponse
newDeleteResolverQueryLogConfigResponse :: Int -> DeleteResolverQueryLogConfigResponse
newDeleteResolverQueryLogConfigResponse Int
pHttpStatus_ =
DeleteResolverQueryLogConfigResponse'
{ $sel:resolverQueryLogConfig:DeleteResolverQueryLogConfigResponse' :: Maybe ResolverQueryLogConfig
resolverQueryLogConfig =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteResolverQueryLogConfigResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteResolverQueryLogConfigResponse_resolverQueryLogConfig :: Lens.Lens' DeleteResolverQueryLogConfigResponse (Prelude.Maybe ResolverQueryLogConfig)
deleteResolverQueryLogConfigResponse_resolverQueryLogConfig :: Lens'
DeleteResolverQueryLogConfigResponse (Maybe ResolverQueryLogConfig)
deleteResolverQueryLogConfigResponse_resolverQueryLogConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteResolverQueryLogConfigResponse' {Maybe ResolverQueryLogConfig
resolverQueryLogConfig :: Maybe ResolverQueryLogConfig
$sel:resolverQueryLogConfig:DeleteResolverQueryLogConfigResponse' :: DeleteResolverQueryLogConfigResponse
-> Maybe ResolverQueryLogConfig
resolverQueryLogConfig} -> Maybe ResolverQueryLogConfig
resolverQueryLogConfig) (\s :: DeleteResolverQueryLogConfigResponse
s@DeleteResolverQueryLogConfigResponse' {} Maybe ResolverQueryLogConfig
a -> DeleteResolverQueryLogConfigResponse
s {$sel:resolverQueryLogConfig:DeleteResolverQueryLogConfigResponse' :: Maybe ResolverQueryLogConfig
resolverQueryLogConfig = Maybe ResolverQueryLogConfig
a} :: DeleteResolverQueryLogConfigResponse)
deleteResolverQueryLogConfigResponse_httpStatus :: Lens.Lens' DeleteResolverQueryLogConfigResponse Prelude.Int
deleteResolverQueryLogConfigResponse_httpStatus :: Lens' DeleteResolverQueryLogConfigResponse Int
deleteResolverQueryLogConfigResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteResolverQueryLogConfigResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteResolverQueryLogConfigResponse' :: DeleteResolverQueryLogConfigResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteResolverQueryLogConfigResponse
s@DeleteResolverQueryLogConfigResponse' {} Int
a -> DeleteResolverQueryLogConfigResponse
s {$sel:httpStatus:DeleteResolverQueryLogConfigResponse' :: Int
httpStatus = Int
a} :: DeleteResolverQueryLogConfigResponse)
instance
Prelude.NFData
DeleteResolverQueryLogConfigResponse
where
rnf :: DeleteResolverQueryLogConfigResponse -> ()
rnf DeleteResolverQueryLogConfigResponse' {Int
Maybe ResolverQueryLogConfig
httpStatus :: Int
resolverQueryLogConfig :: Maybe ResolverQueryLogConfig
$sel:httpStatus:DeleteResolverQueryLogConfigResponse' :: DeleteResolverQueryLogConfigResponse -> Int
$sel:resolverQueryLogConfig:DeleteResolverQueryLogConfigResponse' :: DeleteResolverQueryLogConfigResponse
-> Maybe ResolverQueryLogConfig
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ResolverQueryLogConfig
resolverQueryLogConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus