{-# 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.Chime.TagMeeting
(
TagMeeting (..),
newTagMeeting,
tagMeeting_meetingId,
tagMeeting_tags,
TagMeetingResponse (..),
newTagMeetingResponse,
)
where
import Amazonka.Chime.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 TagMeeting = TagMeeting'
{
TagMeeting -> Text
meetingId :: Prelude.Text,
TagMeeting -> NonEmpty Tag
tags :: Prelude.NonEmpty Tag
}
deriving (TagMeeting -> TagMeeting -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TagMeeting -> TagMeeting -> Bool
$c/= :: TagMeeting -> TagMeeting -> Bool
== :: TagMeeting -> TagMeeting -> Bool
$c== :: TagMeeting -> TagMeeting -> Bool
Prelude.Eq, Int -> TagMeeting -> ShowS
[TagMeeting] -> ShowS
TagMeeting -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TagMeeting] -> ShowS
$cshowList :: [TagMeeting] -> ShowS
show :: TagMeeting -> String
$cshow :: TagMeeting -> String
showsPrec :: Int -> TagMeeting -> ShowS
$cshowsPrec :: Int -> TagMeeting -> ShowS
Prelude.Show, forall x. Rep TagMeeting x -> TagMeeting
forall x. TagMeeting -> Rep TagMeeting x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep TagMeeting x -> TagMeeting
$cfrom :: forall x. TagMeeting -> Rep TagMeeting x
Prelude.Generic)
newTagMeeting ::
Prelude.Text ->
Prelude.NonEmpty Tag ->
TagMeeting
newTagMeeting :: Text -> NonEmpty Tag -> TagMeeting
newTagMeeting Text
pMeetingId_ NonEmpty Tag
pTags_ =
TagMeeting'
{ $sel:meetingId:TagMeeting' :: Text
meetingId = Text
pMeetingId_,
$sel:tags:TagMeeting' :: NonEmpty Tag
tags = 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 Tag
pTags_
}
tagMeeting_meetingId :: Lens.Lens' TagMeeting Prelude.Text
tagMeeting_meetingId :: Lens' TagMeeting Text
tagMeeting_meetingId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TagMeeting' {Text
meetingId :: Text
$sel:meetingId:TagMeeting' :: TagMeeting -> Text
meetingId} -> Text
meetingId) (\s :: TagMeeting
s@TagMeeting' {} Text
a -> TagMeeting
s {$sel:meetingId:TagMeeting' :: Text
meetingId = Text
a} :: TagMeeting)
tagMeeting_tags :: Lens.Lens' TagMeeting (Prelude.NonEmpty Tag)
tagMeeting_tags :: Lens' TagMeeting (NonEmpty Tag)
tagMeeting_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\TagMeeting' {NonEmpty Tag
tags :: NonEmpty Tag
$sel:tags:TagMeeting' :: TagMeeting -> NonEmpty Tag
tags} -> NonEmpty Tag
tags) (\s :: TagMeeting
s@TagMeeting' {} NonEmpty Tag
a -> TagMeeting
s {$sel:tags:TagMeeting' :: NonEmpty Tag
tags = NonEmpty Tag
a} :: TagMeeting) 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 TagMeeting where
type AWSResponse TagMeeting = TagMeetingResponse
request :: (Service -> Service) -> TagMeeting -> Request TagMeeting
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 TagMeeting
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse TagMeeting)))
response = forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull TagMeetingResponse
TagMeetingResponse'
instance Prelude.Hashable TagMeeting where
hashWithSalt :: Int -> TagMeeting -> Int
hashWithSalt Int
_salt TagMeeting' {NonEmpty Tag
Text
tags :: NonEmpty Tag
meetingId :: Text
$sel:tags:TagMeeting' :: TagMeeting -> NonEmpty Tag
$sel:meetingId:TagMeeting' :: TagMeeting -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
meetingId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` NonEmpty Tag
tags
instance Prelude.NFData TagMeeting where
rnf :: TagMeeting -> ()
rnf TagMeeting' {NonEmpty Tag
Text
tags :: NonEmpty Tag
meetingId :: Text
$sel:tags:TagMeeting' :: TagMeeting -> NonEmpty Tag
$sel:meetingId:TagMeeting' :: TagMeeting -> 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 Tag
tags
instance Data.ToHeaders TagMeeting where
toHeaders :: TagMeeting -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToJSON TagMeeting where
toJSON :: TagMeeting -> Value
toJSON TagMeeting' {NonEmpty Tag
Text
tags :: NonEmpty Tag
meetingId :: Text
$sel:tags:TagMeeting' :: TagMeeting -> NonEmpty Tag
$sel:meetingId:TagMeeting' :: TagMeeting -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"Tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= NonEmpty Tag
tags)]
)
instance Data.ToPath TagMeeting where
toPath :: TagMeeting -> ByteString
toPath TagMeeting' {NonEmpty Tag
Text
tags :: NonEmpty Tag
meetingId :: Text
$sel:tags:TagMeeting' :: TagMeeting -> NonEmpty Tag
$sel:meetingId:TagMeeting' :: TagMeeting -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/meetings/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
meetingId, ByteString
"/tags"]
instance Data.ToQuery TagMeeting where
toQuery :: TagMeeting -> QueryString
toQuery =
forall a b. a -> b -> a
Prelude.const (forall a. Monoid a => [a] -> a
Prelude.mconcat [QueryString
"operation=add"])
data TagMeetingResponse = TagMeetingResponse'
{
}
deriving (TagMeetingResponse -> TagMeetingResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TagMeetingResponse -> TagMeetingResponse -> Bool
$c/= :: TagMeetingResponse -> TagMeetingResponse -> Bool
== :: TagMeetingResponse -> TagMeetingResponse -> Bool
$c== :: TagMeetingResponse -> TagMeetingResponse -> Bool
Prelude.Eq, ReadPrec [TagMeetingResponse]
ReadPrec TagMeetingResponse
Int -> ReadS TagMeetingResponse
ReadS [TagMeetingResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [TagMeetingResponse]
$creadListPrec :: ReadPrec [TagMeetingResponse]
readPrec :: ReadPrec TagMeetingResponse
$creadPrec :: ReadPrec TagMeetingResponse
readList :: ReadS [TagMeetingResponse]
$creadList :: ReadS [TagMeetingResponse]
readsPrec :: Int -> ReadS TagMeetingResponse
$creadsPrec :: Int -> ReadS TagMeetingResponse
Prelude.Read, Int -> TagMeetingResponse -> ShowS
[TagMeetingResponse] -> ShowS
TagMeetingResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TagMeetingResponse] -> ShowS
$cshowList :: [TagMeetingResponse] -> ShowS
show :: TagMeetingResponse -> String
$cshow :: TagMeetingResponse -> String
showsPrec :: Int -> TagMeetingResponse -> ShowS
$cshowsPrec :: Int -> TagMeetingResponse -> ShowS
Prelude.Show, forall x. Rep TagMeetingResponse x -> TagMeetingResponse
forall x. TagMeetingResponse -> Rep TagMeetingResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep TagMeetingResponse x -> TagMeetingResponse
$cfrom :: forall x. TagMeetingResponse -> Rep TagMeetingResponse x
Prelude.Generic)
newTagMeetingResponse ::
TagMeetingResponse
newTagMeetingResponse :: TagMeetingResponse
newTagMeetingResponse = TagMeetingResponse
TagMeetingResponse'
instance Prelude.NFData TagMeetingResponse where
rnf :: TagMeetingResponse -> ()
rnf TagMeetingResponse
_ = ()