{-# 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.IVSChat.UpdateRoom
(
UpdateRoom (..),
newUpdateRoom,
updateRoom_loggingConfigurationIdentifiers,
updateRoom_maximumMessageLength,
updateRoom_maximumMessageRatePerSecond,
updateRoom_messageReviewHandler,
updateRoom_name,
updateRoom_identifier,
UpdateRoomResponse (..),
newUpdateRoomResponse,
updateRoomResponse_arn,
updateRoomResponse_createTime,
updateRoomResponse_id,
updateRoomResponse_loggingConfigurationIdentifiers,
updateRoomResponse_maximumMessageLength,
updateRoomResponse_maximumMessageRatePerSecond,
updateRoomResponse_messageReviewHandler,
updateRoomResponse_name,
updateRoomResponse_tags,
updateRoomResponse_updateTime,
updateRoomResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IVSChat.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateRoom = UpdateRoom'
{
UpdateRoom -> Maybe [Text]
loggingConfigurationIdentifiers :: Prelude.Maybe [Prelude.Text],
UpdateRoom -> Maybe Natural
maximumMessageLength :: Prelude.Maybe Prelude.Natural,
UpdateRoom -> Maybe Natural
maximumMessageRatePerSecond :: Prelude.Maybe Prelude.Natural,
UpdateRoom -> Maybe MessageReviewHandler
messageReviewHandler :: Prelude.Maybe MessageReviewHandler,
UpdateRoom -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
UpdateRoom -> Text
identifier :: Prelude.Text
}
deriving (UpdateRoom -> UpdateRoom -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateRoom -> UpdateRoom -> Bool
$c/= :: UpdateRoom -> UpdateRoom -> Bool
== :: UpdateRoom -> UpdateRoom -> Bool
$c== :: UpdateRoom -> UpdateRoom -> Bool
Prelude.Eq, ReadPrec [UpdateRoom]
ReadPrec UpdateRoom
Int -> ReadS UpdateRoom
ReadS [UpdateRoom]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateRoom]
$creadListPrec :: ReadPrec [UpdateRoom]
readPrec :: ReadPrec UpdateRoom
$creadPrec :: ReadPrec UpdateRoom
readList :: ReadS [UpdateRoom]
$creadList :: ReadS [UpdateRoom]
readsPrec :: Int -> ReadS UpdateRoom
$creadsPrec :: Int -> ReadS UpdateRoom
Prelude.Read, Int -> UpdateRoom -> ShowS
[UpdateRoom] -> ShowS
UpdateRoom -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateRoom] -> ShowS
$cshowList :: [UpdateRoom] -> ShowS
show :: UpdateRoom -> String
$cshow :: UpdateRoom -> String
showsPrec :: Int -> UpdateRoom -> ShowS
$cshowsPrec :: Int -> UpdateRoom -> ShowS
Prelude.Show, forall x. Rep UpdateRoom x -> UpdateRoom
forall x. UpdateRoom -> Rep UpdateRoom x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateRoom x -> UpdateRoom
$cfrom :: forall x. UpdateRoom -> Rep UpdateRoom x
Prelude.Generic)
newUpdateRoom ::
Prelude.Text ->
UpdateRoom
newUpdateRoom :: Text -> UpdateRoom
newUpdateRoom Text
pIdentifier_ =
UpdateRoom'
{ $sel:loggingConfigurationIdentifiers:UpdateRoom' :: Maybe [Text]
loggingConfigurationIdentifiers =
forall a. Maybe a
Prelude.Nothing,
$sel:maximumMessageLength:UpdateRoom' :: Maybe Natural
maximumMessageLength = forall a. Maybe a
Prelude.Nothing,
$sel:maximumMessageRatePerSecond:UpdateRoom' :: Maybe Natural
maximumMessageRatePerSecond = forall a. Maybe a
Prelude.Nothing,
$sel:messageReviewHandler:UpdateRoom' :: Maybe MessageReviewHandler
messageReviewHandler = forall a. Maybe a
Prelude.Nothing,
$sel:name:UpdateRoom' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:identifier:UpdateRoom' :: Text
identifier = Text
pIdentifier_
}
updateRoom_loggingConfigurationIdentifiers :: Lens.Lens' UpdateRoom (Prelude.Maybe [Prelude.Text])
updateRoom_loggingConfigurationIdentifiers :: Lens' UpdateRoom (Maybe [Text])
updateRoom_loggingConfigurationIdentifiers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoom' {Maybe [Text]
loggingConfigurationIdentifiers :: Maybe [Text]
$sel:loggingConfigurationIdentifiers:UpdateRoom' :: UpdateRoom -> Maybe [Text]
loggingConfigurationIdentifiers} -> Maybe [Text]
loggingConfigurationIdentifiers) (\s :: UpdateRoom
s@UpdateRoom' {} Maybe [Text]
a -> UpdateRoom
s {$sel:loggingConfigurationIdentifiers:UpdateRoom' :: Maybe [Text]
loggingConfigurationIdentifiers = Maybe [Text]
a} :: UpdateRoom) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
updateRoom_maximumMessageLength :: Lens.Lens' UpdateRoom (Prelude.Maybe Prelude.Natural)
updateRoom_maximumMessageLength :: Lens' UpdateRoom (Maybe Natural)
updateRoom_maximumMessageLength = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoom' {Maybe Natural
maximumMessageLength :: Maybe Natural
$sel:maximumMessageLength:UpdateRoom' :: UpdateRoom -> Maybe Natural
maximumMessageLength} -> Maybe Natural
maximumMessageLength) (\s :: UpdateRoom
s@UpdateRoom' {} Maybe Natural
a -> UpdateRoom
s {$sel:maximumMessageLength:UpdateRoom' :: Maybe Natural
maximumMessageLength = Maybe Natural
a} :: UpdateRoom)
updateRoom_maximumMessageRatePerSecond :: Lens.Lens' UpdateRoom (Prelude.Maybe Prelude.Natural)
updateRoom_maximumMessageRatePerSecond :: Lens' UpdateRoom (Maybe Natural)
updateRoom_maximumMessageRatePerSecond = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoom' {Maybe Natural
maximumMessageRatePerSecond :: Maybe Natural
$sel:maximumMessageRatePerSecond:UpdateRoom' :: UpdateRoom -> Maybe Natural
maximumMessageRatePerSecond} -> Maybe Natural
maximumMessageRatePerSecond) (\s :: UpdateRoom
s@UpdateRoom' {} Maybe Natural
a -> UpdateRoom
s {$sel:maximumMessageRatePerSecond:UpdateRoom' :: Maybe Natural
maximumMessageRatePerSecond = Maybe Natural
a} :: UpdateRoom)
updateRoom_messageReviewHandler :: Lens.Lens' UpdateRoom (Prelude.Maybe MessageReviewHandler)
updateRoom_messageReviewHandler :: Lens' UpdateRoom (Maybe MessageReviewHandler)
updateRoom_messageReviewHandler = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoom' {Maybe MessageReviewHandler
messageReviewHandler :: Maybe MessageReviewHandler
$sel:messageReviewHandler:UpdateRoom' :: UpdateRoom -> Maybe MessageReviewHandler
messageReviewHandler} -> Maybe MessageReviewHandler
messageReviewHandler) (\s :: UpdateRoom
s@UpdateRoom' {} Maybe MessageReviewHandler
a -> UpdateRoom
s {$sel:messageReviewHandler:UpdateRoom' :: Maybe MessageReviewHandler
messageReviewHandler = Maybe MessageReviewHandler
a} :: UpdateRoom)
updateRoom_name :: Lens.Lens' UpdateRoom (Prelude.Maybe Prelude.Text)
updateRoom_name :: Lens' UpdateRoom (Maybe Text)
updateRoom_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoom' {Maybe Text
name :: Maybe Text
$sel:name:UpdateRoom' :: UpdateRoom -> Maybe Text
name} -> Maybe Text
name) (\s :: UpdateRoom
s@UpdateRoom' {} Maybe Text
a -> UpdateRoom
s {$sel:name:UpdateRoom' :: Maybe Text
name = Maybe Text
a} :: UpdateRoom)
updateRoom_identifier :: Lens.Lens' UpdateRoom Prelude.Text
updateRoom_identifier :: Lens' UpdateRoom Text
updateRoom_identifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoom' {Text
identifier :: Text
$sel:identifier:UpdateRoom' :: UpdateRoom -> Text
identifier} -> Text
identifier) (\s :: UpdateRoom
s@UpdateRoom' {} Text
a -> UpdateRoom
s {$sel:identifier:UpdateRoom' :: Text
identifier = Text
a} :: UpdateRoom)
instance Core.AWSRequest UpdateRoom where
type AWSResponse UpdateRoom = UpdateRoomResponse
request :: (Service -> Service) -> UpdateRoom -> Request UpdateRoom
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 UpdateRoom
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UpdateRoom)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe ISO8601
-> Maybe Text
-> Maybe [Text]
-> Maybe Natural
-> Maybe Natural
-> Maybe MessageReviewHandler
-> Maybe Text
-> Maybe (HashMap Text Text)
-> Maybe ISO8601
-> Int
-> UpdateRoomResponse
UpdateRoomResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"arn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"createTime")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"id")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"loggingConfigurationIdentifiers"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"maximumMessageLength")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"maximumMessageRatePerSecond")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"messageReviewHandler")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"name")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"tags" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"updateTime")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable UpdateRoom where
hashWithSalt :: Int -> UpdateRoom -> Int
hashWithSalt Int
_salt UpdateRoom' {Maybe Natural
Maybe [Text]
Maybe Text
Maybe MessageReviewHandler
Text
identifier :: Text
name :: Maybe Text
messageReviewHandler :: Maybe MessageReviewHandler
maximumMessageRatePerSecond :: Maybe Natural
maximumMessageLength :: Maybe Natural
loggingConfigurationIdentifiers :: Maybe [Text]
$sel:identifier:UpdateRoom' :: UpdateRoom -> Text
$sel:name:UpdateRoom' :: UpdateRoom -> Maybe Text
$sel:messageReviewHandler:UpdateRoom' :: UpdateRoom -> Maybe MessageReviewHandler
$sel:maximumMessageRatePerSecond:UpdateRoom' :: UpdateRoom -> Maybe Natural
$sel:maximumMessageLength:UpdateRoom' :: UpdateRoom -> Maybe Natural
$sel:loggingConfigurationIdentifiers:UpdateRoom' :: UpdateRoom -> Maybe [Text]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
loggingConfigurationIdentifiers
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maximumMessageLength
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maximumMessageRatePerSecond
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe MessageReviewHandler
messageReviewHandler
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
identifier
instance Prelude.NFData UpdateRoom where
rnf :: UpdateRoom -> ()
rnf UpdateRoom' {Maybe Natural
Maybe [Text]
Maybe Text
Maybe MessageReviewHandler
Text
identifier :: Text
name :: Maybe Text
messageReviewHandler :: Maybe MessageReviewHandler
maximumMessageRatePerSecond :: Maybe Natural
maximumMessageLength :: Maybe Natural
loggingConfigurationIdentifiers :: Maybe [Text]
$sel:identifier:UpdateRoom' :: UpdateRoom -> Text
$sel:name:UpdateRoom' :: UpdateRoom -> Maybe Text
$sel:messageReviewHandler:UpdateRoom' :: UpdateRoom -> Maybe MessageReviewHandler
$sel:maximumMessageRatePerSecond:UpdateRoom' :: UpdateRoom -> Maybe Natural
$sel:maximumMessageLength:UpdateRoom' :: UpdateRoom -> Maybe Natural
$sel:loggingConfigurationIdentifiers:UpdateRoom' :: UpdateRoom -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
loggingConfigurationIdentifiers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maximumMessageLength
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maximumMessageRatePerSecond
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MessageReviewHandler
messageReviewHandler
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
identifier
instance Data.ToHeaders UpdateRoom where
toHeaders :: UpdateRoom -> ResponseHeaders
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 -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdateRoom where
toJSON :: UpdateRoom -> Value
toJSON UpdateRoom' {Maybe Natural
Maybe [Text]
Maybe Text
Maybe MessageReviewHandler
Text
identifier :: Text
name :: Maybe Text
messageReviewHandler :: Maybe MessageReviewHandler
maximumMessageRatePerSecond :: Maybe Natural
maximumMessageLength :: Maybe Natural
loggingConfigurationIdentifiers :: Maybe [Text]
$sel:identifier:UpdateRoom' :: UpdateRoom -> Text
$sel:name:UpdateRoom' :: UpdateRoom -> Maybe Text
$sel:messageReviewHandler:UpdateRoom' :: UpdateRoom -> Maybe MessageReviewHandler
$sel:maximumMessageRatePerSecond:UpdateRoom' :: UpdateRoom -> Maybe Natural
$sel:maximumMessageLength:UpdateRoom' :: UpdateRoom -> Maybe Natural
$sel:loggingConfigurationIdentifiers:UpdateRoom' :: UpdateRoom -> Maybe [Text]
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"loggingConfigurationIdentifiers" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
loggingConfigurationIdentifiers,
(Key
"maximumMessageLength" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
maximumMessageLength,
(Key
"maximumMessageRatePerSecond" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
maximumMessageRatePerSecond,
(Key
"messageReviewHandler" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MessageReviewHandler
messageReviewHandler,
(Key
"name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
name,
forall a. a -> Maybe a
Prelude.Just (Key
"identifier" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
identifier)
]
)
instance Data.ToPath UpdateRoom where
toPath :: UpdateRoom -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/UpdateRoom"
instance Data.ToQuery UpdateRoom where
toQuery :: UpdateRoom -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateRoomResponse = UpdateRoomResponse'
{
UpdateRoomResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
UpdateRoomResponse -> Maybe ISO8601
createTime :: Prelude.Maybe Data.ISO8601,
UpdateRoomResponse -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
UpdateRoomResponse -> Maybe [Text]
loggingConfigurationIdentifiers :: Prelude.Maybe [Prelude.Text],
UpdateRoomResponse -> Maybe Natural
maximumMessageLength :: Prelude.Maybe Prelude.Natural,
UpdateRoomResponse -> Maybe Natural
maximumMessageRatePerSecond :: Prelude.Maybe Prelude.Natural,
UpdateRoomResponse -> Maybe MessageReviewHandler
messageReviewHandler :: Prelude.Maybe MessageReviewHandler,
UpdateRoomResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
UpdateRoomResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
UpdateRoomResponse -> Maybe ISO8601
updateTime :: Prelude.Maybe Data.ISO8601,
UpdateRoomResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateRoomResponse -> UpdateRoomResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateRoomResponse -> UpdateRoomResponse -> Bool
$c/= :: UpdateRoomResponse -> UpdateRoomResponse -> Bool
== :: UpdateRoomResponse -> UpdateRoomResponse -> Bool
$c== :: UpdateRoomResponse -> UpdateRoomResponse -> Bool
Prelude.Eq, ReadPrec [UpdateRoomResponse]
ReadPrec UpdateRoomResponse
Int -> ReadS UpdateRoomResponse
ReadS [UpdateRoomResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateRoomResponse]
$creadListPrec :: ReadPrec [UpdateRoomResponse]
readPrec :: ReadPrec UpdateRoomResponse
$creadPrec :: ReadPrec UpdateRoomResponse
readList :: ReadS [UpdateRoomResponse]
$creadList :: ReadS [UpdateRoomResponse]
readsPrec :: Int -> ReadS UpdateRoomResponse
$creadsPrec :: Int -> ReadS UpdateRoomResponse
Prelude.Read, Int -> UpdateRoomResponse -> ShowS
[UpdateRoomResponse] -> ShowS
UpdateRoomResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateRoomResponse] -> ShowS
$cshowList :: [UpdateRoomResponse] -> ShowS
show :: UpdateRoomResponse -> String
$cshow :: UpdateRoomResponse -> String
showsPrec :: Int -> UpdateRoomResponse -> ShowS
$cshowsPrec :: Int -> UpdateRoomResponse -> ShowS
Prelude.Show, forall x. Rep UpdateRoomResponse x -> UpdateRoomResponse
forall x. UpdateRoomResponse -> Rep UpdateRoomResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateRoomResponse x -> UpdateRoomResponse
$cfrom :: forall x. UpdateRoomResponse -> Rep UpdateRoomResponse x
Prelude.Generic)
newUpdateRoomResponse ::
Prelude.Int ->
UpdateRoomResponse
newUpdateRoomResponse :: Int -> UpdateRoomResponse
newUpdateRoomResponse Int
pHttpStatus_ =
UpdateRoomResponse'
{ $sel:arn:UpdateRoomResponse' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
$sel:createTime:UpdateRoomResponse' :: Maybe ISO8601
createTime = forall a. Maybe a
Prelude.Nothing,
$sel:id:UpdateRoomResponse' :: Maybe Text
id = forall a. Maybe a
Prelude.Nothing,
$sel:loggingConfigurationIdentifiers:UpdateRoomResponse' :: Maybe [Text]
loggingConfigurationIdentifiers = forall a. Maybe a
Prelude.Nothing,
$sel:maximumMessageLength:UpdateRoomResponse' :: Maybe Natural
maximumMessageLength = forall a. Maybe a
Prelude.Nothing,
$sel:maximumMessageRatePerSecond:UpdateRoomResponse' :: Maybe Natural
maximumMessageRatePerSecond = forall a. Maybe a
Prelude.Nothing,
$sel:messageReviewHandler:UpdateRoomResponse' :: Maybe MessageReviewHandler
messageReviewHandler = forall a. Maybe a
Prelude.Nothing,
$sel:name:UpdateRoomResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:tags:UpdateRoomResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:updateTime:UpdateRoomResponse' :: Maybe ISO8601
updateTime = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateRoomResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateRoomResponse_arn :: Lens.Lens' UpdateRoomResponse (Prelude.Maybe Prelude.Text)
updateRoomResponse_arn :: Lens' UpdateRoomResponse (Maybe Text)
updateRoomResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoomResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: UpdateRoomResponse
s@UpdateRoomResponse' {} Maybe Text
a -> UpdateRoomResponse
s {$sel:arn:UpdateRoomResponse' :: Maybe Text
arn = Maybe Text
a} :: UpdateRoomResponse)
updateRoomResponse_createTime :: Lens.Lens' UpdateRoomResponse (Prelude.Maybe Prelude.UTCTime)
updateRoomResponse_createTime :: Lens' UpdateRoomResponse (Maybe UTCTime)
updateRoomResponse_createTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoomResponse' {Maybe ISO8601
createTime :: Maybe ISO8601
$sel:createTime:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe ISO8601
createTime} -> Maybe ISO8601
createTime) (\s :: UpdateRoomResponse
s@UpdateRoomResponse' {} Maybe ISO8601
a -> UpdateRoomResponse
s {$sel:createTime:UpdateRoomResponse' :: Maybe ISO8601
createTime = Maybe ISO8601
a} :: UpdateRoomResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
updateRoomResponse_id :: Lens.Lens' UpdateRoomResponse (Prelude.Maybe Prelude.Text)
updateRoomResponse_id :: Lens' UpdateRoomResponse (Maybe Text)
updateRoomResponse_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoomResponse' {Maybe Text
id :: Maybe Text
$sel:id:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe Text
id} -> Maybe Text
id) (\s :: UpdateRoomResponse
s@UpdateRoomResponse' {} Maybe Text
a -> UpdateRoomResponse
s {$sel:id:UpdateRoomResponse' :: Maybe Text
id = Maybe Text
a} :: UpdateRoomResponse)
updateRoomResponse_loggingConfigurationIdentifiers :: Lens.Lens' UpdateRoomResponse (Prelude.Maybe [Prelude.Text])
updateRoomResponse_loggingConfigurationIdentifiers :: Lens' UpdateRoomResponse (Maybe [Text])
updateRoomResponse_loggingConfigurationIdentifiers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoomResponse' {Maybe [Text]
loggingConfigurationIdentifiers :: Maybe [Text]
$sel:loggingConfigurationIdentifiers:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe [Text]
loggingConfigurationIdentifiers} -> Maybe [Text]
loggingConfigurationIdentifiers) (\s :: UpdateRoomResponse
s@UpdateRoomResponse' {} Maybe [Text]
a -> UpdateRoomResponse
s {$sel:loggingConfigurationIdentifiers:UpdateRoomResponse' :: Maybe [Text]
loggingConfigurationIdentifiers = Maybe [Text]
a} :: UpdateRoomResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
updateRoomResponse_maximumMessageLength :: Lens.Lens' UpdateRoomResponse (Prelude.Maybe Prelude.Natural)
updateRoomResponse_maximumMessageLength :: Lens' UpdateRoomResponse (Maybe Natural)
updateRoomResponse_maximumMessageLength = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoomResponse' {Maybe Natural
maximumMessageLength :: Maybe Natural
$sel:maximumMessageLength:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe Natural
maximumMessageLength} -> Maybe Natural
maximumMessageLength) (\s :: UpdateRoomResponse
s@UpdateRoomResponse' {} Maybe Natural
a -> UpdateRoomResponse
s {$sel:maximumMessageLength:UpdateRoomResponse' :: Maybe Natural
maximumMessageLength = Maybe Natural
a} :: UpdateRoomResponse)
updateRoomResponse_maximumMessageRatePerSecond :: Lens.Lens' UpdateRoomResponse (Prelude.Maybe Prelude.Natural)
updateRoomResponse_maximumMessageRatePerSecond :: Lens' UpdateRoomResponse (Maybe Natural)
updateRoomResponse_maximumMessageRatePerSecond = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoomResponse' {Maybe Natural
maximumMessageRatePerSecond :: Maybe Natural
$sel:maximumMessageRatePerSecond:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe Natural
maximumMessageRatePerSecond} -> Maybe Natural
maximumMessageRatePerSecond) (\s :: UpdateRoomResponse
s@UpdateRoomResponse' {} Maybe Natural
a -> UpdateRoomResponse
s {$sel:maximumMessageRatePerSecond:UpdateRoomResponse' :: Maybe Natural
maximumMessageRatePerSecond = Maybe Natural
a} :: UpdateRoomResponse)
updateRoomResponse_messageReviewHandler :: Lens.Lens' UpdateRoomResponse (Prelude.Maybe MessageReviewHandler)
updateRoomResponse_messageReviewHandler :: Lens' UpdateRoomResponse (Maybe MessageReviewHandler)
updateRoomResponse_messageReviewHandler = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoomResponse' {Maybe MessageReviewHandler
messageReviewHandler :: Maybe MessageReviewHandler
$sel:messageReviewHandler:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe MessageReviewHandler
messageReviewHandler} -> Maybe MessageReviewHandler
messageReviewHandler) (\s :: UpdateRoomResponse
s@UpdateRoomResponse' {} Maybe MessageReviewHandler
a -> UpdateRoomResponse
s {$sel:messageReviewHandler:UpdateRoomResponse' :: Maybe MessageReviewHandler
messageReviewHandler = Maybe MessageReviewHandler
a} :: UpdateRoomResponse)
updateRoomResponse_name :: Lens.Lens' UpdateRoomResponse (Prelude.Maybe Prelude.Text)
updateRoomResponse_name :: Lens' UpdateRoomResponse (Maybe Text)
updateRoomResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoomResponse' {Maybe Text
name :: Maybe Text
$sel:name:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: UpdateRoomResponse
s@UpdateRoomResponse' {} Maybe Text
a -> UpdateRoomResponse
s {$sel:name:UpdateRoomResponse' :: Maybe Text
name = Maybe Text
a} :: UpdateRoomResponse)
updateRoomResponse_tags :: Lens.Lens' UpdateRoomResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
updateRoomResponse_tags :: Lens' UpdateRoomResponse (Maybe (HashMap Text Text))
updateRoomResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoomResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: UpdateRoomResponse
s@UpdateRoomResponse' {} Maybe (HashMap Text Text)
a -> UpdateRoomResponse
s {$sel:tags:UpdateRoomResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: UpdateRoomResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
updateRoomResponse_updateTime :: Lens.Lens' UpdateRoomResponse (Prelude.Maybe Prelude.UTCTime)
updateRoomResponse_updateTime :: Lens' UpdateRoomResponse (Maybe UTCTime)
updateRoomResponse_updateTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoomResponse' {Maybe ISO8601
updateTime :: Maybe ISO8601
$sel:updateTime:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe ISO8601
updateTime} -> Maybe ISO8601
updateTime) (\s :: UpdateRoomResponse
s@UpdateRoomResponse' {} Maybe ISO8601
a -> UpdateRoomResponse
s {$sel:updateTime:UpdateRoomResponse' :: Maybe ISO8601
updateTime = Maybe ISO8601
a} :: UpdateRoomResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
updateRoomResponse_httpStatus :: Lens.Lens' UpdateRoomResponse Prelude.Int
updateRoomResponse_httpStatus :: Lens' UpdateRoomResponse Int
updateRoomResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRoomResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateRoomResponse' :: UpdateRoomResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateRoomResponse
s@UpdateRoomResponse' {} Int
a -> UpdateRoomResponse
s {$sel:httpStatus:UpdateRoomResponse' :: Int
httpStatus = Int
a} :: UpdateRoomResponse)
instance Prelude.NFData UpdateRoomResponse where
rnf :: UpdateRoomResponse -> ()
rnf UpdateRoomResponse' {Int
Maybe Natural
Maybe [Text]
Maybe Text
Maybe (HashMap Text Text)
Maybe ISO8601
Maybe MessageReviewHandler
httpStatus :: Int
updateTime :: Maybe ISO8601
tags :: Maybe (HashMap Text Text)
name :: Maybe Text
messageReviewHandler :: Maybe MessageReviewHandler
maximumMessageRatePerSecond :: Maybe Natural
maximumMessageLength :: Maybe Natural
loggingConfigurationIdentifiers :: Maybe [Text]
id :: Maybe Text
createTime :: Maybe ISO8601
arn :: Maybe Text
$sel:httpStatus:UpdateRoomResponse' :: UpdateRoomResponse -> Int
$sel:updateTime:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe ISO8601
$sel:tags:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe (HashMap Text Text)
$sel:name:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe Text
$sel:messageReviewHandler:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe MessageReviewHandler
$sel:maximumMessageRatePerSecond:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe Natural
$sel:maximumMessageLength:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe Natural
$sel:loggingConfigurationIdentifiers:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe [Text]
$sel:id:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe Text
$sel:createTime:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe ISO8601
$sel:arn:UpdateRoomResponse' :: UpdateRoomResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
createTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
id
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
loggingConfigurationIdentifiers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maximumMessageLength
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maximumMessageRatePerSecond
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MessageReviewHandler
messageReviewHandler
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
updateTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus