{-# 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.ChimeSdkMeetings.BatchUpdateAttendeeCapabilitiesExcept
(
BatchUpdateAttendeeCapabilitiesExcept (..),
newBatchUpdateAttendeeCapabilitiesExcept,
batchUpdateAttendeeCapabilitiesExcept_meetingId,
batchUpdateAttendeeCapabilitiesExcept_excludedAttendeeIds,
batchUpdateAttendeeCapabilitiesExcept_capabilities,
BatchUpdateAttendeeCapabilitiesExceptResponse (..),
newBatchUpdateAttendeeCapabilitiesExceptResponse,
)
where
import Amazonka.ChimeSdkMeetings.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 BatchUpdateAttendeeCapabilitiesExcept = BatchUpdateAttendeeCapabilitiesExcept'
{
BatchUpdateAttendeeCapabilitiesExcept -> Text
meetingId :: Prelude.Text,
BatchUpdateAttendeeCapabilitiesExcept -> NonEmpty AttendeeIdItem
excludedAttendeeIds :: Prelude.NonEmpty AttendeeIdItem,
BatchUpdateAttendeeCapabilitiesExcept -> AttendeeCapabilities
capabilities :: AttendeeCapabilities
}
deriving (BatchUpdateAttendeeCapabilitiesExcept
-> BatchUpdateAttendeeCapabilitiesExcept -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BatchUpdateAttendeeCapabilitiesExcept
-> BatchUpdateAttendeeCapabilitiesExcept -> Bool
$c/= :: BatchUpdateAttendeeCapabilitiesExcept
-> BatchUpdateAttendeeCapabilitiesExcept -> Bool
== :: BatchUpdateAttendeeCapabilitiesExcept
-> BatchUpdateAttendeeCapabilitiesExcept -> Bool
$c== :: BatchUpdateAttendeeCapabilitiesExcept
-> BatchUpdateAttendeeCapabilitiesExcept -> Bool
Prelude.Eq, ReadPrec [BatchUpdateAttendeeCapabilitiesExcept]
ReadPrec BatchUpdateAttendeeCapabilitiesExcept
Int -> ReadS BatchUpdateAttendeeCapabilitiesExcept
ReadS [BatchUpdateAttendeeCapabilitiesExcept]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [BatchUpdateAttendeeCapabilitiesExcept]
$creadListPrec :: ReadPrec [BatchUpdateAttendeeCapabilitiesExcept]
readPrec :: ReadPrec BatchUpdateAttendeeCapabilitiesExcept
$creadPrec :: ReadPrec BatchUpdateAttendeeCapabilitiesExcept
readList :: ReadS [BatchUpdateAttendeeCapabilitiesExcept]
$creadList :: ReadS [BatchUpdateAttendeeCapabilitiesExcept]
readsPrec :: Int -> ReadS BatchUpdateAttendeeCapabilitiesExcept
$creadsPrec :: Int -> ReadS BatchUpdateAttendeeCapabilitiesExcept
Prelude.Read, Int -> BatchUpdateAttendeeCapabilitiesExcept -> ShowS
[BatchUpdateAttendeeCapabilitiesExcept] -> ShowS
BatchUpdateAttendeeCapabilitiesExcept -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BatchUpdateAttendeeCapabilitiesExcept] -> ShowS
$cshowList :: [BatchUpdateAttendeeCapabilitiesExcept] -> ShowS
show :: BatchUpdateAttendeeCapabilitiesExcept -> String
$cshow :: BatchUpdateAttendeeCapabilitiesExcept -> String
showsPrec :: Int -> BatchUpdateAttendeeCapabilitiesExcept -> ShowS
$cshowsPrec :: Int -> BatchUpdateAttendeeCapabilitiesExcept -> ShowS
Prelude.Show, forall x.
Rep BatchUpdateAttendeeCapabilitiesExcept x
-> BatchUpdateAttendeeCapabilitiesExcept
forall x.
BatchUpdateAttendeeCapabilitiesExcept
-> Rep BatchUpdateAttendeeCapabilitiesExcept x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep BatchUpdateAttendeeCapabilitiesExcept x
-> BatchUpdateAttendeeCapabilitiesExcept
$cfrom :: forall x.
BatchUpdateAttendeeCapabilitiesExcept
-> Rep BatchUpdateAttendeeCapabilitiesExcept x
Prelude.Generic)
newBatchUpdateAttendeeCapabilitiesExcept ::
Prelude.Text ->
Prelude.NonEmpty AttendeeIdItem ->
AttendeeCapabilities ->
BatchUpdateAttendeeCapabilitiesExcept
newBatchUpdateAttendeeCapabilitiesExcept :: Text
-> NonEmpty AttendeeIdItem
-> AttendeeCapabilities
-> BatchUpdateAttendeeCapabilitiesExcept
newBatchUpdateAttendeeCapabilitiesExcept
Text
pMeetingId_
NonEmpty AttendeeIdItem
pExcludedAttendeeIds_
AttendeeCapabilities
pCapabilities_ =
BatchUpdateAttendeeCapabilitiesExcept'
{ $sel:meetingId:BatchUpdateAttendeeCapabilitiesExcept' :: Text
meetingId =
Text
pMeetingId_,
$sel:excludedAttendeeIds:BatchUpdateAttendeeCapabilitiesExcept' :: NonEmpty AttendeeIdItem
excludedAttendeeIds =
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
forall t b. AReview t b -> b -> t
Lens.# NonEmpty AttendeeIdItem
pExcludedAttendeeIds_,
$sel:capabilities:BatchUpdateAttendeeCapabilitiesExcept' :: AttendeeCapabilities
capabilities = AttendeeCapabilities
pCapabilities_
}
batchUpdateAttendeeCapabilitiesExcept_meetingId :: Lens.Lens' BatchUpdateAttendeeCapabilitiesExcept Prelude.Text
batchUpdateAttendeeCapabilitiesExcept_meetingId :: Lens' BatchUpdateAttendeeCapabilitiesExcept Text
batchUpdateAttendeeCapabilitiesExcept_meetingId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchUpdateAttendeeCapabilitiesExcept' {Text
meetingId :: Text
$sel:meetingId:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> Text
meetingId} -> Text
meetingId) (\s :: BatchUpdateAttendeeCapabilitiesExcept
s@BatchUpdateAttendeeCapabilitiesExcept' {} Text
a -> BatchUpdateAttendeeCapabilitiesExcept
s {$sel:meetingId:BatchUpdateAttendeeCapabilitiesExcept' :: Text
meetingId = Text
a} :: BatchUpdateAttendeeCapabilitiesExcept)
batchUpdateAttendeeCapabilitiesExcept_excludedAttendeeIds :: Lens.Lens' BatchUpdateAttendeeCapabilitiesExcept (Prelude.NonEmpty AttendeeIdItem)
batchUpdateAttendeeCapabilitiesExcept_excludedAttendeeIds :: Lens'
BatchUpdateAttendeeCapabilitiesExcept (NonEmpty AttendeeIdItem)
batchUpdateAttendeeCapabilitiesExcept_excludedAttendeeIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchUpdateAttendeeCapabilitiesExcept' {NonEmpty AttendeeIdItem
excludedAttendeeIds :: NonEmpty AttendeeIdItem
$sel:excludedAttendeeIds:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> NonEmpty AttendeeIdItem
excludedAttendeeIds} -> NonEmpty AttendeeIdItem
excludedAttendeeIds) (\s :: BatchUpdateAttendeeCapabilitiesExcept
s@BatchUpdateAttendeeCapabilitiesExcept' {} NonEmpty AttendeeIdItem
a -> BatchUpdateAttendeeCapabilitiesExcept
s {$sel:excludedAttendeeIds:BatchUpdateAttendeeCapabilitiesExcept' :: NonEmpty AttendeeIdItem
excludedAttendeeIds = NonEmpty AttendeeIdItem
a} :: BatchUpdateAttendeeCapabilitiesExcept) 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
batchUpdateAttendeeCapabilitiesExcept_capabilities :: Lens.Lens' BatchUpdateAttendeeCapabilitiesExcept AttendeeCapabilities
batchUpdateAttendeeCapabilitiesExcept_capabilities :: Lens' BatchUpdateAttendeeCapabilitiesExcept AttendeeCapabilities
batchUpdateAttendeeCapabilitiesExcept_capabilities = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BatchUpdateAttendeeCapabilitiesExcept' {AttendeeCapabilities
capabilities :: AttendeeCapabilities
$sel:capabilities:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> AttendeeCapabilities
capabilities} -> AttendeeCapabilities
capabilities) (\s :: BatchUpdateAttendeeCapabilitiesExcept
s@BatchUpdateAttendeeCapabilitiesExcept' {} AttendeeCapabilities
a -> BatchUpdateAttendeeCapabilitiesExcept
s {$sel:capabilities:BatchUpdateAttendeeCapabilitiesExcept' :: AttendeeCapabilities
capabilities = AttendeeCapabilities
a} :: BatchUpdateAttendeeCapabilitiesExcept)
instance
Core.AWSRequest
BatchUpdateAttendeeCapabilitiesExcept
where
type
AWSResponse
BatchUpdateAttendeeCapabilitiesExcept =
BatchUpdateAttendeeCapabilitiesExceptResponse
request :: (Service -> Service)
-> BatchUpdateAttendeeCapabilitiesExcept
-> Request BatchUpdateAttendeeCapabilitiesExcept
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy BatchUpdateAttendeeCapabilitiesExcept
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse BatchUpdateAttendeeCapabilitiesExcept)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
BatchUpdateAttendeeCapabilitiesExceptResponse
BatchUpdateAttendeeCapabilitiesExceptResponse'
instance
Prelude.Hashable
BatchUpdateAttendeeCapabilitiesExcept
where
hashWithSalt :: Int -> BatchUpdateAttendeeCapabilitiesExcept -> Int
hashWithSalt
Int
_salt
BatchUpdateAttendeeCapabilitiesExcept' {NonEmpty AttendeeIdItem
Text
AttendeeCapabilities
capabilities :: AttendeeCapabilities
excludedAttendeeIds :: NonEmpty AttendeeIdItem
meetingId :: Text
$sel:capabilities:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> AttendeeCapabilities
$sel:excludedAttendeeIds:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> NonEmpty AttendeeIdItem
$sel:meetingId:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
meetingId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` NonEmpty AttendeeIdItem
excludedAttendeeIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` AttendeeCapabilities
capabilities
instance
Prelude.NFData
BatchUpdateAttendeeCapabilitiesExcept
where
rnf :: BatchUpdateAttendeeCapabilitiesExcept -> ()
rnf BatchUpdateAttendeeCapabilitiesExcept' {NonEmpty AttendeeIdItem
Text
AttendeeCapabilities
capabilities :: AttendeeCapabilities
excludedAttendeeIds :: NonEmpty AttendeeIdItem
meetingId :: Text
$sel:capabilities:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> AttendeeCapabilities
$sel:excludedAttendeeIds:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> NonEmpty AttendeeIdItem
$sel:meetingId:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
meetingId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf NonEmpty AttendeeIdItem
excludedAttendeeIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf AttendeeCapabilities
capabilities
instance
Data.ToHeaders
BatchUpdateAttendeeCapabilitiesExcept
where
toHeaders :: BatchUpdateAttendeeCapabilitiesExcept -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToJSON
BatchUpdateAttendeeCapabilitiesExcept
where
toJSON :: BatchUpdateAttendeeCapabilitiesExcept -> Value
toJSON BatchUpdateAttendeeCapabilitiesExcept' {NonEmpty AttendeeIdItem
Text
AttendeeCapabilities
capabilities :: AttendeeCapabilities
excludedAttendeeIds :: NonEmpty AttendeeIdItem
meetingId :: Text
$sel:capabilities:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> AttendeeCapabilities
$sel:excludedAttendeeIds:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> NonEmpty AttendeeIdItem
$sel:meetingId:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"ExcludedAttendeeIds" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= NonEmpty AttendeeIdItem
excludedAttendeeIds),
forall a. a -> Maybe a
Prelude.Just (Key
"Capabilities" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= AttendeeCapabilities
capabilities)
]
)
instance
Data.ToPath
BatchUpdateAttendeeCapabilitiesExcept
where
toPath :: BatchUpdateAttendeeCapabilitiesExcept -> ByteString
toPath BatchUpdateAttendeeCapabilitiesExcept' {NonEmpty AttendeeIdItem
Text
AttendeeCapabilities
capabilities :: AttendeeCapabilities
excludedAttendeeIds :: NonEmpty AttendeeIdItem
meetingId :: Text
$sel:capabilities:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> AttendeeCapabilities
$sel:excludedAttendeeIds:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> NonEmpty AttendeeIdItem
$sel:meetingId:BatchUpdateAttendeeCapabilitiesExcept' :: BatchUpdateAttendeeCapabilitiesExcept -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/meetings/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
meetingId,
ByteString
"/attendees/capabilities"
]
instance
Data.ToQuery
BatchUpdateAttendeeCapabilitiesExcept
where
toQuery :: BatchUpdateAttendeeCapabilitiesExcept -> QueryString
toQuery =
forall a b. a -> b -> a
Prelude.const
(forall a. Monoid a => [a] -> a
Prelude.mconcat [QueryString
"operation=batch-update-except"])
data BatchUpdateAttendeeCapabilitiesExceptResponse = BatchUpdateAttendeeCapabilitiesExceptResponse'
{
}
deriving (BatchUpdateAttendeeCapabilitiesExceptResponse
-> BatchUpdateAttendeeCapabilitiesExceptResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BatchUpdateAttendeeCapabilitiesExceptResponse
-> BatchUpdateAttendeeCapabilitiesExceptResponse -> Bool
$c/= :: BatchUpdateAttendeeCapabilitiesExceptResponse
-> BatchUpdateAttendeeCapabilitiesExceptResponse -> Bool
== :: BatchUpdateAttendeeCapabilitiesExceptResponse
-> BatchUpdateAttendeeCapabilitiesExceptResponse -> Bool
$c== :: BatchUpdateAttendeeCapabilitiesExceptResponse
-> BatchUpdateAttendeeCapabilitiesExceptResponse -> Bool
Prelude.Eq, ReadPrec [BatchUpdateAttendeeCapabilitiesExceptResponse]
ReadPrec BatchUpdateAttendeeCapabilitiesExceptResponse
Int -> ReadS BatchUpdateAttendeeCapabilitiesExceptResponse
ReadS [BatchUpdateAttendeeCapabilitiesExceptResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [BatchUpdateAttendeeCapabilitiesExceptResponse]
$creadListPrec :: ReadPrec [BatchUpdateAttendeeCapabilitiesExceptResponse]
readPrec :: ReadPrec BatchUpdateAttendeeCapabilitiesExceptResponse
$creadPrec :: ReadPrec BatchUpdateAttendeeCapabilitiesExceptResponse
readList :: ReadS [BatchUpdateAttendeeCapabilitiesExceptResponse]
$creadList :: ReadS [BatchUpdateAttendeeCapabilitiesExceptResponse]
readsPrec :: Int -> ReadS BatchUpdateAttendeeCapabilitiesExceptResponse
$creadsPrec :: Int -> ReadS BatchUpdateAttendeeCapabilitiesExceptResponse
Prelude.Read, Int -> BatchUpdateAttendeeCapabilitiesExceptResponse -> ShowS
[BatchUpdateAttendeeCapabilitiesExceptResponse] -> ShowS
BatchUpdateAttendeeCapabilitiesExceptResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BatchUpdateAttendeeCapabilitiesExceptResponse] -> ShowS
$cshowList :: [BatchUpdateAttendeeCapabilitiesExceptResponse] -> ShowS
show :: BatchUpdateAttendeeCapabilitiesExceptResponse -> String
$cshow :: BatchUpdateAttendeeCapabilitiesExceptResponse -> String
showsPrec :: Int -> BatchUpdateAttendeeCapabilitiesExceptResponse -> ShowS
$cshowsPrec :: Int -> BatchUpdateAttendeeCapabilitiesExceptResponse -> ShowS
Prelude.Show, forall x.
Rep BatchUpdateAttendeeCapabilitiesExceptResponse x
-> BatchUpdateAttendeeCapabilitiesExceptResponse
forall x.
BatchUpdateAttendeeCapabilitiesExceptResponse
-> Rep BatchUpdateAttendeeCapabilitiesExceptResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep BatchUpdateAttendeeCapabilitiesExceptResponse x
-> BatchUpdateAttendeeCapabilitiesExceptResponse
$cfrom :: forall x.
BatchUpdateAttendeeCapabilitiesExceptResponse
-> Rep BatchUpdateAttendeeCapabilitiesExceptResponse x
Prelude.Generic)
newBatchUpdateAttendeeCapabilitiesExceptResponse ::
BatchUpdateAttendeeCapabilitiesExceptResponse
newBatchUpdateAttendeeCapabilitiesExceptResponse :: BatchUpdateAttendeeCapabilitiesExceptResponse
newBatchUpdateAttendeeCapabilitiesExceptResponse =
BatchUpdateAttendeeCapabilitiesExceptResponse
BatchUpdateAttendeeCapabilitiesExceptResponse'
instance
Prelude.NFData
BatchUpdateAttendeeCapabilitiesExceptResponse
where
rnf :: BatchUpdateAttendeeCapabilitiesExceptResponse -> ()
rnf BatchUpdateAttendeeCapabilitiesExceptResponse
_ = ()