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