{-# 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.SQS.DeleteMessage
(
DeleteMessage (..),
newDeleteMessage,
deleteMessage_queueUrl,
deleteMessage_receiptHandle,
DeleteMessageResponse (..),
newDeleteMessageResponse,
)
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.SQS.Types
data DeleteMessage = DeleteMessage'
{
DeleteMessage -> Text
queueUrl :: Prelude.Text,
DeleteMessage -> Text
receiptHandle :: Prelude.Text
}
deriving (DeleteMessage -> DeleteMessage -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteMessage -> DeleteMessage -> Bool
$c/= :: DeleteMessage -> DeleteMessage -> Bool
== :: DeleteMessage -> DeleteMessage -> Bool
$c== :: DeleteMessage -> DeleteMessage -> Bool
Prelude.Eq, ReadPrec [DeleteMessage]
ReadPrec DeleteMessage
Int -> ReadS DeleteMessage
ReadS [DeleteMessage]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteMessage]
$creadListPrec :: ReadPrec [DeleteMessage]
readPrec :: ReadPrec DeleteMessage
$creadPrec :: ReadPrec DeleteMessage
readList :: ReadS [DeleteMessage]
$creadList :: ReadS [DeleteMessage]
readsPrec :: Int -> ReadS DeleteMessage
$creadsPrec :: Int -> ReadS DeleteMessage
Prelude.Read, Int -> DeleteMessage -> ShowS
[DeleteMessage] -> ShowS
DeleteMessage -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteMessage] -> ShowS
$cshowList :: [DeleteMessage] -> ShowS
show :: DeleteMessage -> String
$cshow :: DeleteMessage -> String
showsPrec :: Int -> DeleteMessage -> ShowS
$cshowsPrec :: Int -> DeleteMessage -> ShowS
Prelude.Show, forall x. Rep DeleteMessage x -> DeleteMessage
forall x. DeleteMessage -> Rep DeleteMessage x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteMessage x -> DeleteMessage
$cfrom :: forall x. DeleteMessage -> Rep DeleteMessage x
Prelude.Generic)
newDeleteMessage ::
Prelude.Text ->
Prelude.Text ->
DeleteMessage
newDeleteMessage :: Text -> Text -> DeleteMessage
newDeleteMessage Text
pQueueUrl_ Text
pReceiptHandle_ =
DeleteMessage'
{ $sel:queueUrl:DeleteMessage' :: Text
queueUrl = Text
pQueueUrl_,
$sel:receiptHandle:DeleteMessage' :: Text
receiptHandle = Text
pReceiptHandle_
}
deleteMessage_queueUrl :: Lens.Lens' DeleteMessage Prelude.Text
deleteMessage_queueUrl :: Lens' DeleteMessage Text
deleteMessage_queueUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteMessage' {Text
queueUrl :: Text
$sel:queueUrl:DeleteMessage' :: DeleteMessage -> Text
queueUrl} -> Text
queueUrl) (\s :: DeleteMessage
s@DeleteMessage' {} Text
a -> DeleteMessage
s {$sel:queueUrl:DeleteMessage' :: Text
queueUrl = Text
a} :: DeleteMessage)
deleteMessage_receiptHandle :: Lens.Lens' DeleteMessage Prelude.Text
deleteMessage_receiptHandle :: Lens' DeleteMessage Text
deleteMessage_receiptHandle = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteMessage' {Text
receiptHandle :: Text
$sel:receiptHandle:DeleteMessage' :: DeleteMessage -> Text
receiptHandle} -> Text
receiptHandle) (\s :: DeleteMessage
s@DeleteMessage' {} Text
a -> DeleteMessage
s {$sel:receiptHandle:DeleteMessage' :: Text
receiptHandle = Text
a} :: DeleteMessage)
instance Core.AWSRequest DeleteMessage where
type
AWSResponse DeleteMessage =
DeleteMessageResponse
request :: (Service -> Service) -> DeleteMessage -> Request DeleteMessage
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteMessage
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteMessage)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteMessageResponse
DeleteMessageResponse'
instance Prelude.Hashable DeleteMessage where
hashWithSalt :: Int -> DeleteMessage -> Int
hashWithSalt Int
_salt DeleteMessage' {Text
receiptHandle :: Text
queueUrl :: Text
$sel:receiptHandle:DeleteMessage' :: DeleteMessage -> Text
$sel:queueUrl:DeleteMessage' :: DeleteMessage -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
queueUrl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
receiptHandle
instance Prelude.NFData DeleteMessage where
rnf :: DeleteMessage -> ()
rnf DeleteMessage' {Text
receiptHandle :: Text
queueUrl :: Text
$sel:receiptHandle:DeleteMessage' :: DeleteMessage -> Text
$sel:queueUrl:DeleteMessage' :: DeleteMessage -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
queueUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
receiptHandle
instance Data.ToHeaders DeleteMessage where
toHeaders :: DeleteMessage -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeleteMessage where
toPath :: DeleteMessage -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeleteMessage where
toQuery :: DeleteMessage -> QueryString
toQuery DeleteMessage' {Text
receiptHandle :: Text
queueUrl :: Text
$sel:receiptHandle:DeleteMessage' :: DeleteMessage -> Text
$sel:queueUrl:DeleteMessage' :: DeleteMessage -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DeleteMessage" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2012-11-05" :: Prelude.ByteString),
ByteString
"QueueUrl" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
queueUrl,
ByteString
"ReceiptHandle" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
receiptHandle
]
data DeleteMessageResponse = DeleteMessageResponse'
{
}
deriving (DeleteMessageResponse -> DeleteMessageResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteMessageResponse -> DeleteMessageResponse -> Bool
$c/= :: DeleteMessageResponse -> DeleteMessageResponse -> Bool
== :: DeleteMessageResponse -> DeleteMessageResponse -> Bool
$c== :: DeleteMessageResponse -> DeleteMessageResponse -> Bool
Prelude.Eq, ReadPrec [DeleteMessageResponse]
ReadPrec DeleteMessageResponse
Int -> ReadS DeleteMessageResponse
ReadS [DeleteMessageResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteMessageResponse]
$creadListPrec :: ReadPrec [DeleteMessageResponse]
readPrec :: ReadPrec DeleteMessageResponse
$creadPrec :: ReadPrec DeleteMessageResponse
readList :: ReadS [DeleteMessageResponse]
$creadList :: ReadS [DeleteMessageResponse]
readsPrec :: Int -> ReadS DeleteMessageResponse
$creadsPrec :: Int -> ReadS DeleteMessageResponse
Prelude.Read, Int -> DeleteMessageResponse -> ShowS
[DeleteMessageResponse] -> ShowS
DeleteMessageResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteMessageResponse] -> ShowS
$cshowList :: [DeleteMessageResponse] -> ShowS
show :: DeleteMessageResponse -> String
$cshow :: DeleteMessageResponse -> String
showsPrec :: Int -> DeleteMessageResponse -> ShowS
$cshowsPrec :: Int -> DeleteMessageResponse -> ShowS
Prelude.Show, forall x. Rep DeleteMessageResponse x -> DeleteMessageResponse
forall x. DeleteMessageResponse -> Rep DeleteMessageResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteMessageResponse x -> DeleteMessageResponse
$cfrom :: forall x. DeleteMessageResponse -> Rep DeleteMessageResponse x
Prelude.Generic)
newDeleteMessageResponse ::
DeleteMessageResponse
newDeleteMessageResponse :: DeleteMessageResponse
newDeleteMessageResponse = DeleteMessageResponse
DeleteMessageResponse'
instance Prelude.NFData DeleteMessageResponse where
rnf :: DeleteMessageResponse -> ()
rnf DeleteMessageResponse
_ = ()