{-# 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.Connect.DisassociateRoutingProfileQueues
(
DisassociateRoutingProfileQueues (..),
newDisassociateRoutingProfileQueues,
disassociateRoutingProfileQueues_instanceId,
disassociateRoutingProfileQueues_routingProfileId,
disassociateRoutingProfileQueues_queueReferences,
DisassociateRoutingProfileQueuesResponse (..),
newDisassociateRoutingProfileQueuesResponse,
)
where
import Amazonka.Connect.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 DisassociateRoutingProfileQueues = DisassociateRoutingProfileQueues'
{
DisassociateRoutingProfileQueues -> Text
instanceId :: Prelude.Text,
DisassociateRoutingProfileQueues -> Text
routingProfileId :: Prelude.Text,
DisassociateRoutingProfileQueues -> [RoutingProfileQueueReference]
queueReferences :: [RoutingProfileQueueReference]
}
deriving (DisassociateRoutingProfileQueues
-> DisassociateRoutingProfileQueues -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateRoutingProfileQueues
-> DisassociateRoutingProfileQueues -> Bool
$c/= :: DisassociateRoutingProfileQueues
-> DisassociateRoutingProfileQueues -> Bool
== :: DisassociateRoutingProfileQueues
-> DisassociateRoutingProfileQueues -> Bool
$c== :: DisassociateRoutingProfileQueues
-> DisassociateRoutingProfileQueues -> Bool
Prelude.Eq, ReadPrec [DisassociateRoutingProfileQueues]
ReadPrec DisassociateRoutingProfileQueues
Int -> ReadS DisassociateRoutingProfileQueues
ReadS [DisassociateRoutingProfileQueues]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateRoutingProfileQueues]
$creadListPrec :: ReadPrec [DisassociateRoutingProfileQueues]
readPrec :: ReadPrec DisassociateRoutingProfileQueues
$creadPrec :: ReadPrec DisassociateRoutingProfileQueues
readList :: ReadS [DisassociateRoutingProfileQueues]
$creadList :: ReadS [DisassociateRoutingProfileQueues]
readsPrec :: Int -> ReadS DisassociateRoutingProfileQueues
$creadsPrec :: Int -> ReadS DisassociateRoutingProfileQueues
Prelude.Read, Int -> DisassociateRoutingProfileQueues -> ShowS
[DisassociateRoutingProfileQueues] -> ShowS
DisassociateRoutingProfileQueues -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateRoutingProfileQueues] -> ShowS
$cshowList :: [DisassociateRoutingProfileQueues] -> ShowS
show :: DisassociateRoutingProfileQueues -> String
$cshow :: DisassociateRoutingProfileQueues -> String
showsPrec :: Int -> DisassociateRoutingProfileQueues -> ShowS
$cshowsPrec :: Int -> DisassociateRoutingProfileQueues -> ShowS
Prelude.Show, forall x.
Rep DisassociateRoutingProfileQueues x
-> DisassociateRoutingProfileQueues
forall x.
DisassociateRoutingProfileQueues
-> Rep DisassociateRoutingProfileQueues x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateRoutingProfileQueues x
-> DisassociateRoutingProfileQueues
$cfrom :: forall x.
DisassociateRoutingProfileQueues
-> Rep DisassociateRoutingProfileQueues x
Prelude.Generic)
newDisassociateRoutingProfileQueues ::
Prelude.Text ->
Prelude.Text ->
DisassociateRoutingProfileQueues
newDisassociateRoutingProfileQueues :: Text -> Text -> DisassociateRoutingProfileQueues
newDisassociateRoutingProfileQueues
Text
pInstanceId_
Text
pRoutingProfileId_ =
DisassociateRoutingProfileQueues'
{ $sel:instanceId:DisassociateRoutingProfileQueues' :: Text
instanceId =
Text
pInstanceId_,
$sel:routingProfileId:DisassociateRoutingProfileQueues' :: Text
routingProfileId = Text
pRoutingProfileId_,
$sel:queueReferences:DisassociateRoutingProfileQueues' :: [RoutingProfileQueueReference]
queueReferences = forall a. Monoid a => a
Prelude.mempty
}
disassociateRoutingProfileQueues_instanceId :: Lens.Lens' DisassociateRoutingProfileQueues Prelude.Text
disassociateRoutingProfileQueues_instanceId :: Lens' DisassociateRoutingProfileQueues Text
disassociateRoutingProfileQueues_instanceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateRoutingProfileQueues' {Text
instanceId :: Text
$sel:instanceId:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> Text
instanceId} -> Text
instanceId) (\s :: DisassociateRoutingProfileQueues
s@DisassociateRoutingProfileQueues' {} Text
a -> DisassociateRoutingProfileQueues
s {$sel:instanceId:DisassociateRoutingProfileQueues' :: Text
instanceId = Text
a} :: DisassociateRoutingProfileQueues)
disassociateRoutingProfileQueues_routingProfileId :: Lens.Lens' DisassociateRoutingProfileQueues Prelude.Text
disassociateRoutingProfileQueues_routingProfileId :: Lens' DisassociateRoutingProfileQueues Text
disassociateRoutingProfileQueues_routingProfileId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateRoutingProfileQueues' {Text
routingProfileId :: Text
$sel:routingProfileId:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> Text
routingProfileId} -> Text
routingProfileId) (\s :: DisassociateRoutingProfileQueues
s@DisassociateRoutingProfileQueues' {} Text
a -> DisassociateRoutingProfileQueues
s {$sel:routingProfileId:DisassociateRoutingProfileQueues' :: Text
routingProfileId = Text
a} :: DisassociateRoutingProfileQueues)
disassociateRoutingProfileQueues_queueReferences :: Lens.Lens' DisassociateRoutingProfileQueues [RoutingProfileQueueReference]
disassociateRoutingProfileQueues_queueReferences :: Lens'
DisassociateRoutingProfileQueues [RoutingProfileQueueReference]
disassociateRoutingProfileQueues_queueReferences = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateRoutingProfileQueues' {[RoutingProfileQueueReference]
queueReferences :: [RoutingProfileQueueReference]
$sel:queueReferences:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> [RoutingProfileQueueReference]
queueReferences} -> [RoutingProfileQueueReference]
queueReferences) (\s :: DisassociateRoutingProfileQueues
s@DisassociateRoutingProfileQueues' {} [RoutingProfileQueueReference]
a -> DisassociateRoutingProfileQueues
s {$sel:queueReferences:DisassociateRoutingProfileQueues' :: [RoutingProfileQueueReference]
queueReferences = [RoutingProfileQueueReference]
a} :: DisassociateRoutingProfileQueues) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance
Core.AWSRequest
DisassociateRoutingProfileQueues
where
type
AWSResponse DisassociateRoutingProfileQueues =
DisassociateRoutingProfileQueuesResponse
request :: (Service -> Service)
-> DisassociateRoutingProfileQueues
-> Request DisassociateRoutingProfileQueues
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 DisassociateRoutingProfileQueues
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DisassociateRoutingProfileQueues)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DisassociateRoutingProfileQueuesResponse
DisassociateRoutingProfileQueuesResponse'
instance
Prelude.Hashable
DisassociateRoutingProfileQueues
where
hashWithSalt :: Int -> DisassociateRoutingProfileQueues -> Int
hashWithSalt
Int
_salt
DisassociateRoutingProfileQueues' {[RoutingProfileQueueReference]
Text
queueReferences :: [RoutingProfileQueueReference]
routingProfileId :: Text
instanceId :: Text
$sel:queueReferences:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> [RoutingProfileQueueReference]
$sel:routingProfileId:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> Text
$sel:instanceId:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
instanceId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
routingProfileId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [RoutingProfileQueueReference]
queueReferences
instance
Prelude.NFData
DisassociateRoutingProfileQueues
where
rnf :: DisassociateRoutingProfileQueues -> ()
rnf DisassociateRoutingProfileQueues' {[RoutingProfileQueueReference]
Text
queueReferences :: [RoutingProfileQueueReference]
routingProfileId :: Text
instanceId :: Text
$sel:queueReferences:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> [RoutingProfileQueueReference]
$sel:routingProfileId:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> Text
$sel:instanceId:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
instanceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
routingProfileId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [RoutingProfileQueueReference]
queueReferences
instance
Data.ToHeaders
DisassociateRoutingProfileQueues
where
toHeaders :: DisassociateRoutingProfileQueues -> [Header]
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DisassociateRoutingProfileQueues where
toJSON :: DisassociateRoutingProfileQueues -> Value
toJSON DisassociateRoutingProfileQueues' {[RoutingProfileQueueReference]
Text
queueReferences :: [RoutingProfileQueueReference]
routingProfileId :: Text
instanceId :: Text
$sel:queueReferences:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> [RoutingProfileQueueReference]
$sel:routingProfileId:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> Text
$sel:instanceId:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"QueueReferences" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [RoutingProfileQueueReference]
queueReferences)
]
)
instance Data.ToPath DisassociateRoutingProfileQueues where
toPath :: DisassociateRoutingProfileQueues -> ByteString
toPath DisassociateRoutingProfileQueues' {[RoutingProfileQueueReference]
Text
queueReferences :: [RoutingProfileQueueReference]
routingProfileId :: Text
instanceId :: Text
$sel:queueReferences:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> [RoutingProfileQueueReference]
$sel:routingProfileId:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> Text
$sel:instanceId:DisassociateRoutingProfileQueues' :: DisassociateRoutingProfileQueues -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/routing-profiles/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
instanceId,
ByteString
"/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
routingProfileId,
ByteString
"/disassociate-queues"
]
instance
Data.ToQuery
DisassociateRoutingProfileQueues
where
toQuery :: DisassociateRoutingProfileQueues -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DisassociateRoutingProfileQueuesResponse = DisassociateRoutingProfileQueuesResponse'
{
}
deriving (DisassociateRoutingProfileQueuesResponse
-> DisassociateRoutingProfileQueuesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateRoutingProfileQueuesResponse
-> DisassociateRoutingProfileQueuesResponse -> Bool
$c/= :: DisassociateRoutingProfileQueuesResponse
-> DisassociateRoutingProfileQueuesResponse -> Bool
== :: DisassociateRoutingProfileQueuesResponse
-> DisassociateRoutingProfileQueuesResponse -> Bool
$c== :: DisassociateRoutingProfileQueuesResponse
-> DisassociateRoutingProfileQueuesResponse -> Bool
Prelude.Eq, ReadPrec [DisassociateRoutingProfileQueuesResponse]
ReadPrec DisassociateRoutingProfileQueuesResponse
Int -> ReadS DisassociateRoutingProfileQueuesResponse
ReadS [DisassociateRoutingProfileQueuesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateRoutingProfileQueuesResponse]
$creadListPrec :: ReadPrec [DisassociateRoutingProfileQueuesResponse]
readPrec :: ReadPrec DisassociateRoutingProfileQueuesResponse
$creadPrec :: ReadPrec DisassociateRoutingProfileQueuesResponse
readList :: ReadS [DisassociateRoutingProfileQueuesResponse]
$creadList :: ReadS [DisassociateRoutingProfileQueuesResponse]
readsPrec :: Int -> ReadS DisassociateRoutingProfileQueuesResponse
$creadsPrec :: Int -> ReadS DisassociateRoutingProfileQueuesResponse
Prelude.Read, Int -> DisassociateRoutingProfileQueuesResponse -> ShowS
[DisassociateRoutingProfileQueuesResponse] -> ShowS
DisassociateRoutingProfileQueuesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateRoutingProfileQueuesResponse] -> ShowS
$cshowList :: [DisassociateRoutingProfileQueuesResponse] -> ShowS
show :: DisassociateRoutingProfileQueuesResponse -> String
$cshow :: DisassociateRoutingProfileQueuesResponse -> String
showsPrec :: Int -> DisassociateRoutingProfileQueuesResponse -> ShowS
$cshowsPrec :: Int -> DisassociateRoutingProfileQueuesResponse -> ShowS
Prelude.Show, forall x.
Rep DisassociateRoutingProfileQueuesResponse x
-> DisassociateRoutingProfileQueuesResponse
forall x.
DisassociateRoutingProfileQueuesResponse
-> Rep DisassociateRoutingProfileQueuesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateRoutingProfileQueuesResponse x
-> DisassociateRoutingProfileQueuesResponse
$cfrom :: forall x.
DisassociateRoutingProfileQueuesResponse
-> Rep DisassociateRoutingProfileQueuesResponse x
Prelude.Generic)
newDisassociateRoutingProfileQueuesResponse ::
DisassociateRoutingProfileQueuesResponse
newDisassociateRoutingProfileQueuesResponse :: DisassociateRoutingProfileQueuesResponse
newDisassociateRoutingProfileQueuesResponse =
DisassociateRoutingProfileQueuesResponse
DisassociateRoutingProfileQueuesResponse'
instance
Prelude.NFData
DisassociateRoutingProfileQueuesResponse
where
rnf :: DisassociateRoutingProfileQueuesResponse -> ()
rnf DisassociateRoutingProfileQueuesResponse
_ = ()