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