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