{-# 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.CreateRoom
(
CreateRoom (..),
newCreateRoom,
createRoom_loggingConfigurationIdentifiers,
createRoom_maximumMessageLength,
createRoom_maximumMessageRatePerSecond,
createRoom_messageReviewHandler,
createRoom_name,
createRoom_tags,
CreateRoomResponse (..),
newCreateRoomResponse,
createRoomResponse_arn,
createRoomResponse_createTime,
createRoomResponse_id,
createRoomResponse_loggingConfigurationIdentifiers,
createRoomResponse_maximumMessageLength,
createRoomResponse_maximumMessageRatePerSecond,
createRoomResponse_messageReviewHandler,
createRoomResponse_name,
createRoomResponse_tags,
createRoomResponse_updateTime,
createRoomResponse_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 CreateRoom = CreateRoom'
{
CreateRoom -> Maybe [Text]
loggingConfigurationIdentifiers :: Prelude.Maybe [Prelude.Text],
CreateRoom -> Maybe Natural
maximumMessageLength :: Prelude.Maybe Prelude.Natural,
CreateRoom -> Maybe Natural
maximumMessageRatePerSecond :: Prelude.Maybe Prelude.Natural,
CreateRoom -> Maybe MessageReviewHandler
messageReviewHandler :: Prelude.Maybe MessageReviewHandler,
CreateRoom -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
CreateRoom -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text)
}
deriving (CreateRoom -> CreateRoom -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateRoom -> CreateRoom -> Bool
$c/= :: CreateRoom -> CreateRoom -> Bool
== :: CreateRoom -> CreateRoom -> Bool
$c== :: CreateRoom -> CreateRoom -> Bool
Prelude.Eq, ReadPrec [CreateRoom]
ReadPrec CreateRoom
Int -> ReadS CreateRoom
ReadS [CreateRoom]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateRoom]
$creadListPrec :: ReadPrec [CreateRoom]
readPrec :: ReadPrec CreateRoom
$creadPrec :: ReadPrec CreateRoom
readList :: ReadS [CreateRoom]
$creadList :: ReadS [CreateRoom]
readsPrec :: Int -> ReadS CreateRoom
$creadsPrec :: Int -> ReadS CreateRoom
Prelude.Read, Int -> CreateRoom -> ShowS
[CreateRoom] -> ShowS
CreateRoom -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateRoom] -> ShowS
$cshowList :: [CreateRoom] -> ShowS
show :: CreateRoom -> String
$cshow :: CreateRoom -> String
showsPrec :: Int -> CreateRoom -> ShowS
$cshowsPrec :: Int -> CreateRoom -> ShowS
Prelude.Show, forall x. Rep CreateRoom x -> CreateRoom
forall x. CreateRoom -> Rep CreateRoom x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateRoom x -> CreateRoom
$cfrom :: forall x. CreateRoom -> Rep CreateRoom x
Prelude.Generic)
newCreateRoom ::
CreateRoom
newCreateRoom :: CreateRoom
newCreateRoom =
CreateRoom'
{ $sel:loggingConfigurationIdentifiers:CreateRoom' :: Maybe [Text]
loggingConfigurationIdentifiers =
forall a. Maybe a
Prelude.Nothing,
$sel:maximumMessageLength:CreateRoom' :: Maybe Natural
maximumMessageLength = forall a. Maybe a
Prelude.Nothing,
$sel:maximumMessageRatePerSecond:CreateRoom' :: Maybe Natural
maximumMessageRatePerSecond = forall a. Maybe a
Prelude.Nothing,
$sel:messageReviewHandler:CreateRoom' :: Maybe MessageReviewHandler
messageReviewHandler = forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateRoom' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateRoom' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing
}
createRoom_loggingConfigurationIdentifiers :: Lens.Lens' CreateRoom (Prelude.Maybe [Prelude.Text])
createRoom_loggingConfigurationIdentifiers :: Lens' CreateRoom (Maybe [Text])
createRoom_loggingConfigurationIdentifiers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoom' {Maybe [Text]
loggingConfigurationIdentifiers :: Maybe [Text]
$sel:loggingConfigurationIdentifiers:CreateRoom' :: CreateRoom -> Maybe [Text]
loggingConfigurationIdentifiers} -> Maybe [Text]
loggingConfigurationIdentifiers) (\s :: CreateRoom
s@CreateRoom' {} Maybe [Text]
a -> CreateRoom
s {$sel:loggingConfigurationIdentifiers:CreateRoom' :: Maybe [Text]
loggingConfigurationIdentifiers = Maybe [Text]
a} :: CreateRoom) 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
createRoom_maximumMessageLength :: Lens.Lens' CreateRoom (Prelude.Maybe Prelude.Natural)
createRoom_maximumMessageLength :: Lens' CreateRoom (Maybe Natural)
createRoom_maximumMessageLength = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoom' {Maybe Natural
maximumMessageLength :: Maybe Natural
$sel:maximumMessageLength:CreateRoom' :: CreateRoom -> Maybe Natural
maximumMessageLength} -> Maybe Natural
maximumMessageLength) (\s :: CreateRoom
s@CreateRoom' {} Maybe Natural
a -> CreateRoom
s {$sel:maximumMessageLength:CreateRoom' :: Maybe Natural
maximumMessageLength = Maybe Natural
a} :: CreateRoom)
createRoom_maximumMessageRatePerSecond :: Lens.Lens' CreateRoom (Prelude.Maybe Prelude.Natural)
createRoom_maximumMessageRatePerSecond :: Lens' CreateRoom (Maybe Natural)
createRoom_maximumMessageRatePerSecond = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoom' {Maybe Natural
maximumMessageRatePerSecond :: Maybe Natural
$sel:maximumMessageRatePerSecond:CreateRoom' :: CreateRoom -> Maybe Natural
maximumMessageRatePerSecond} -> Maybe Natural
maximumMessageRatePerSecond) (\s :: CreateRoom
s@CreateRoom' {} Maybe Natural
a -> CreateRoom
s {$sel:maximumMessageRatePerSecond:CreateRoom' :: Maybe Natural
maximumMessageRatePerSecond = Maybe Natural
a} :: CreateRoom)
createRoom_messageReviewHandler :: Lens.Lens' CreateRoom (Prelude.Maybe MessageReviewHandler)
createRoom_messageReviewHandler :: Lens' CreateRoom (Maybe MessageReviewHandler)
createRoom_messageReviewHandler = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoom' {Maybe MessageReviewHandler
messageReviewHandler :: Maybe MessageReviewHandler
$sel:messageReviewHandler:CreateRoom' :: CreateRoom -> Maybe MessageReviewHandler
messageReviewHandler} -> Maybe MessageReviewHandler
messageReviewHandler) (\s :: CreateRoom
s@CreateRoom' {} Maybe MessageReviewHandler
a -> CreateRoom
s {$sel:messageReviewHandler:CreateRoom' :: Maybe MessageReviewHandler
messageReviewHandler = Maybe MessageReviewHandler
a} :: CreateRoom)
createRoom_name :: Lens.Lens' CreateRoom (Prelude.Maybe Prelude.Text)
createRoom_name :: Lens' CreateRoom (Maybe Text)
createRoom_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoom' {Maybe Text
name :: Maybe Text
$sel:name:CreateRoom' :: CreateRoom -> Maybe Text
name} -> Maybe Text
name) (\s :: CreateRoom
s@CreateRoom' {} Maybe Text
a -> CreateRoom
s {$sel:name:CreateRoom' :: Maybe Text
name = Maybe Text
a} :: CreateRoom)
createRoom_tags :: Lens.Lens' CreateRoom (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createRoom_tags :: Lens' CreateRoom (Maybe (HashMap Text Text))
createRoom_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoom' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateRoom' :: CreateRoom -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateRoom
s@CreateRoom' {} Maybe (HashMap Text Text)
a -> CreateRoom
s {$sel:tags:CreateRoom' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateRoom) 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
instance Core.AWSRequest CreateRoom where
type AWSResponse CreateRoom = CreateRoomResponse
request :: (Service -> Service) -> CreateRoom -> Request CreateRoom
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 CreateRoom
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateRoom)))
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
-> CreateRoomResponse
CreateRoomResponse'
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 CreateRoom where
hashWithSalt :: Int -> CreateRoom -> Int
hashWithSalt Int
_salt CreateRoom' {Maybe Natural
Maybe [Text]
Maybe Text
Maybe (HashMap Text Text)
Maybe MessageReviewHandler
tags :: Maybe (HashMap Text Text)
name :: Maybe Text
messageReviewHandler :: Maybe MessageReviewHandler
maximumMessageRatePerSecond :: Maybe Natural
maximumMessageLength :: Maybe Natural
loggingConfigurationIdentifiers :: Maybe [Text]
$sel:tags:CreateRoom' :: CreateRoom -> Maybe (HashMap Text Text)
$sel:name:CreateRoom' :: CreateRoom -> Maybe Text
$sel:messageReviewHandler:CreateRoom' :: CreateRoom -> Maybe MessageReviewHandler
$sel:maximumMessageRatePerSecond:CreateRoom' :: CreateRoom -> Maybe Natural
$sel:maximumMessageLength:CreateRoom' :: CreateRoom -> Maybe Natural
$sel:loggingConfigurationIdentifiers:CreateRoom' :: CreateRoom -> 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` Maybe (HashMap Text Text)
tags
instance Prelude.NFData CreateRoom where
rnf :: CreateRoom -> ()
rnf CreateRoom' {Maybe Natural
Maybe [Text]
Maybe Text
Maybe (HashMap Text Text)
Maybe MessageReviewHandler
tags :: Maybe (HashMap Text Text)
name :: Maybe Text
messageReviewHandler :: Maybe MessageReviewHandler
maximumMessageRatePerSecond :: Maybe Natural
maximumMessageLength :: Maybe Natural
loggingConfigurationIdentifiers :: Maybe [Text]
$sel:tags:CreateRoom' :: CreateRoom -> Maybe (HashMap Text Text)
$sel:name:CreateRoom' :: CreateRoom -> Maybe Text
$sel:messageReviewHandler:CreateRoom' :: CreateRoom -> Maybe MessageReviewHandler
$sel:maximumMessageRatePerSecond:CreateRoom' :: CreateRoom -> Maybe Natural
$sel:maximumMessageLength:CreateRoom' :: CreateRoom -> Maybe Natural
$sel:loggingConfigurationIdentifiers:CreateRoom' :: CreateRoom -> 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 Maybe (HashMap Text Text)
tags
instance Data.ToHeaders CreateRoom where
toHeaders :: CreateRoom -> 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 CreateRoom where
toJSON :: CreateRoom -> Value
toJSON CreateRoom' {Maybe Natural
Maybe [Text]
Maybe Text
Maybe (HashMap Text Text)
Maybe MessageReviewHandler
tags :: Maybe (HashMap Text Text)
name :: Maybe Text
messageReviewHandler :: Maybe MessageReviewHandler
maximumMessageRatePerSecond :: Maybe Natural
maximumMessageLength :: Maybe Natural
loggingConfigurationIdentifiers :: Maybe [Text]
$sel:tags:CreateRoom' :: CreateRoom -> Maybe (HashMap Text Text)
$sel:name:CreateRoom' :: CreateRoom -> Maybe Text
$sel:messageReviewHandler:CreateRoom' :: CreateRoom -> Maybe MessageReviewHandler
$sel:maximumMessageRatePerSecond:CreateRoom' :: CreateRoom -> Maybe Natural
$sel:maximumMessageLength:CreateRoom' :: CreateRoom -> Maybe Natural
$sel:loggingConfigurationIdentifiers:CreateRoom' :: CreateRoom -> 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,
(Key
"tags" 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 (HashMap Text Text)
tags
]
)
instance Data.ToPath CreateRoom where
toPath :: CreateRoom -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/CreateRoom"
instance Data.ToQuery CreateRoom where
toQuery :: CreateRoom -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateRoomResponse = CreateRoomResponse'
{
CreateRoomResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
CreateRoomResponse -> Maybe ISO8601
createTime :: Prelude.Maybe Data.ISO8601,
CreateRoomResponse -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
CreateRoomResponse -> Maybe [Text]
loggingConfigurationIdentifiers :: Prelude.Maybe [Prelude.Text],
CreateRoomResponse -> Maybe Natural
maximumMessageLength :: Prelude.Maybe Prelude.Natural,
CreateRoomResponse -> Maybe Natural
maximumMessageRatePerSecond :: Prelude.Maybe Prelude.Natural,
CreateRoomResponse -> Maybe MessageReviewHandler
messageReviewHandler :: Prelude.Maybe MessageReviewHandler,
CreateRoomResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
CreateRoomResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateRoomResponse -> Maybe ISO8601
updateTime :: Prelude.Maybe Data.ISO8601,
CreateRoomResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateRoomResponse -> CreateRoomResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateRoomResponse -> CreateRoomResponse -> Bool
$c/= :: CreateRoomResponse -> CreateRoomResponse -> Bool
== :: CreateRoomResponse -> CreateRoomResponse -> Bool
$c== :: CreateRoomResponse -> CreateRoomResponse -> Bool
Prelude.Eq, ReadPrec [CreateRoomResponse]
ReadPrec CreateRoomResponse
Int -> ReadS CreateRoomResponse
ReadS [CreateRoomResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateRoomResponse]
$creadListPrec :: ReadPrec [CreateRoomResponse]
readPrec :: ReadPrec CreateRoomResponse
$creadPrec :: ReadPrec CreateRoomResponse
readList :: ReadS [CreateRoomResponse]
$creadList :: ReadS [CreateRoomResponse]
readsPrec :: Int -> ReadS CreateRoomResponse
$creadsPrec :: Int -> ReadS CreateRoomResponse
Prelude.Read, Int -> CreateRoomResponse -> ShowS
[CreateRoomResponse] -> ShowS
CreateRoomResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateRoomResponse] -> ShowS
$cshowList :: [CreateRoomResponse] -> ShowS
show :: CreateRoomResponse -> String
$cshow :: CreateRoomResponse -> String
showsPrec :: Int -> CreateRoomResponse -> ShowS
$cshowsPrec :: Int -> CreateRoomResponse -> ShowS
Prelude.Show, forall x. Rep CreateRoomResponse x -> CreateRoomResponse
forall x. CreateRoomResponse -> Rep CreateRoomResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateRoomResponse x -> CreateRoomResponse
$cfrom :: forall x. CreateRoomResponse -> Rep CreateRoomResponse x
Prelude.Generic)
newCreateRoomResponse ::
Prelude.Int ->
CreateRoomResponse
newCreateRoomResponse :: Int -> CreateRoomResponse
newCreateRoomResponse Int
pHttpStatus_ =
CreateRoomResponse'
{ $sel:arn:CreateRoomResponse' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
$sel:createTime:CreateRoomResponse' :: Maybe ISO8601
createTime = forall a. Maybe a
Prelude.Nothing,
$sel:id:CreateRoomResponse' :: Maybe Text
id = forall a. Maybe a
Prelude.Nothing,
$sel:loggingConfigurationIdentifiers:CreateRoomResponse' :: Maybe [Text]
loggingConfigurationIdentifiers = forall a. Maybe a
Prelude.Nothing,
$sel:maximumMessageLength:CreateRoomResponse' :: Maybe Natural
maximumMessageLength = forall a. Maybe a
Prelude.Nothing,
$sel:maximumMessageRatePerSecond:CreateRoomResponse' :: Maybe Natural
maximumMessageRatePerSecond = forall a. Maybe a
Prelude.Nothing,
$sel:messageReviewHandler:CreateRoomResponse' :: Maybe MessageReviewHandler
messageReviewHandler = forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateRoomResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateRoomResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:updateTime:CreateRoomResponse' :: Maybe ISO8601
updateTime = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateRoomResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createRoomResponse_arn :: Lens.Lens' CreateRoomResponse (Prelude.Maybe Prelude.Text)
createRoomResponse_arn :: Lens' CreateRoomResponse (Maybe Text)
createRoomResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoomResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:CreateRoomResponse' :: CreateRoomResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: CreateRoomResponse
s@CreateRoomResponse' {} Maybe Text
a -> CreateRoomResponse
s {$sel:arn:CreateRoomResponse' :: Maybe Text
arn = Maybe Text
a} :: CreateRoomResponse)
createRoomResponse_createTime :: Lens.Lens' CreateRoomResponse (Prelude.Maybe Prelude.UTCTime)
createRoomResponse_createTime :: Lens' CreateRoomResponse (Maybe UTCTime)
createRoomResponse_createTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoomResponse' {Maybe ISO8601
createTime :: Maybe ISO8601
$sel:createTime:CreateRoomResponse' :: CreateRoomResponse -> Maybe ISO8601
createTime} -> Maybe ISO8601
createTime) (\s :: CreateRoomResponse
s@CreateRoomResponse' {} Maybe ISO8601
a -> CreateRoomResponse
s {$sel:createTime:CreateRoomResponse' :: Maybe ISO8601
createTime = Maybe ISO8601
a} :: CreateRoomResponse) 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
createRoomResponse_id :: Lens.Lens' CreateRoomResponse (Prelude.Maybe Prelude.Text)
createRoomResponse_id :: Lens' CreateRoomResponse (Maybe Text)
createRoomResponse_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoomResponse' {Maybe Text
id :: Maybe Text
$sel:id:CreateRoomResponse' :: CreateRoomResponse -> Maybe Text
id} -> Maybe Text
id) (\s :: CreateRoomResponse
s@CreateRoomResponse' {} Maybe Text
a -> CreateRoomResponse
s {$sel:id:CreateRoomResponse' :: Maybe Text
id = Maybe Text
a} :: CreateRoomResponse)
createRoomResponse_loggingConfigurationIdentifiers :: Lens.Lens' CreateRoomResponse (Prelude.Maybe [Prelude.Text])
createRoomResponse_loggingConfigurationIdentifiers :: Lens' CreateRoomResponse (Maybe [Text])
createRoomResponse_loggingConfigurationIdentifiers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoomResponse' {Maybe [Text]
loggingConfigurationIdentifiers :: Maybe [Text]
$sel:loggingConfigurationIdentifiers:CreateRoomResponse' :: CreateRoomResponse -> Maybe [Text]
loggingConfigurationIdentifiers} -> Maybe [Text]
loggingConfigurationIdentifiers) (\s :: CreateRoomResponse
s@CreateRoomResponse' {} Maybe [Text]
a -> CreateRoomResponse
s {$sel:loggingConfigurationIdentifiers:CreateRoomResponse' :: Maybe [Text]
loggingConfigurationIdentifiers = Maybe [Text]
a} :: CreateRoomResponse) 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
createRoomResponse_maximumMessageLength :: Lens.Lens' CreateRoomResponse (Prelude.Maybe Prelude.Natural)
createRoomResponse_maximumMessageLength :: Lens' CreateRoomResponse (Maybe Natural)
createRoomResponse_maximumMessageLength = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoomResponse' {Maybe Natural
maximumMessageLength :: Maybe Natural
$sel:maximumMessageLength:CreateRoomResponse' :: CreateRoomResponse -> Maybe Natural
maximumMessageLength} -> Maybe Natural
maximumMessageLength) (\s :: CreateRoomResponse
s@CreateRoomResponse' {} Maybe Natural
a -> CreateRoomResponse
s {$sel:maximumMessageLength:CreateRoomResponse' :: Maybe Natural
maximumMessageLength = Maybe Natural
a} :: CreateRoomResponse)
createRoomResponse_maximumMessageRatePerSecond :: Lens.Lens' CreateRoomResponse (Prelude.Maybe Prelude.Natural)
createRoomResponse_maximumMessageRatePerSecond :: Lens' CreateRoomResponse (Maybe Natural)
createRoomResponse_maximumMessageRatePerSecond = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoomResponse' {Maybe Natural
maximumMessageRatePerSecond :: Maybe Natural
$sel:maximumMessageRatePerSecond:CreateRoomResponse' :: CreateRoomResponse -> Maybe Natural
maximumMessageRatePerSecond} -> Maybe Natural
maximumMessageRatePerSecond) (\s :: CreateRoomResponse
s@CreateRoomResponse' {} Maybe Natural
a -> CreateRoomResponse
s {$sel:maximumMessageRatePerSecond:CreateRoomResponse' :: Maybe Natural
maximumMessageRatePerSecond = Maybe Natural
a} :: CreateRoomResponse)
createRoomResponse_messageReviewHandler :: Lens.Lens' CreateRoomResponse (Prelude.Maybe MessageReviewHandler)
createRoomResponse_messageReviewHandler :: Lens' CreateRoomResponse (Maybe MessageReviewHandler)
createRoomResponse_messageReviewHandler = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoomResponse' {Maybe MessageReviewHandler
messageReviewHandler :: Maybe MessageReviewHandler
$sel:messageReviewHandler:CreateRoomResponse' :: CreateRoomResponse -> Maybe MessageReviewHandler
messageReviewHandler} -> Maybe MessageReviewHandler
messageReviewHandler) (\s :: CreateRoomResponse
s@CreateRoomResponse' {} Maybe MessageReviewHandler
a -> CreateRoomResponse
s {$sel:messageReviewHandler:CreateRoomResponse' :: Maybe MessageReviewHandler
messageReviewHandler = Maybe MessageReviewHandler
a} :: CreateRoomResponse)
createRoomResponse_name :: Lens.Lens' CreateRoomResponse (Prelude.Maybe Prelude.Text)
createRoomResponse_name :: Lens' CreateRoomResponse (Maybe Text)
createRoomResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoomResponse' {Maybe Text
name :: Maybe Text
$sel:name:CreateRoomResponse' :: CreateRoomResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: CreateRoomResponse
s@CreateRoomResponse' {} Maybe Text
a -> CreateRoomResponse
s {$sel:name:CreateRoomResponse' :: Maybe Text
name = Maybe Text
a} :: CreateRoomResponse)
createRoomResponse_tags :: Lens.Lens' CreateRoomResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createRoomResponse_tags :: Lens' CreateRoomResponse (Maybe (HashMap Text Text))
createRoomResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoomResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateRoomResponse' :: CreateRoomResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateRoomResponse
s@CreateRoomResponse' {} Maybe (HashMap Text Text)
a -> CreateRoomResponse
s {$sel:tags:CreateRoomResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateRoomResponse) 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
createRoomResponse_updateTime :: Lens.Lens' CreateRoomResponse (Prelude.Maybe Prelude.UTCTime)
createRoomResponse_updateTime :: Lens' CreateRoomResponse (Maybe UTCTime)
createRoomResponse_updateTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoomResponse' {Maybe ISO8601
updateTime :: Maybe ISO8601
$sel:updateTime:CreateRoomResponse' :: CreateRoomResponse -> Maybe ISO8601
updateTime} -> Maybe ISO8601
updateTime) (\s :: CreateRoomResponse
s@CreateRoomResponse' {} Maybe ISO8601
a -> CreateRoomResponse
s {$sel:updateTime:CreateRoomResponse' :: Maybe ISO8601
updateTime = Maybe ISO8601
a} :: CreateRoomResponse) 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
createRoomResponse_httpStatus :: Lens.Lens' CreateRoomResponse Prelude.Int
createRoomResponse_httpStatus :: Lens' CreateRoomResponse Int
createRoomResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateRoomResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateRoomResponse' :: CreateRoomResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateRoomResponse
s@CreateRoomResponse' {} Int
a -> CreateRoomResponse
s {$sel:httpStatus:CreateRoomResponse' :: Int
httpStatus = Int
a} :: CreateRoomResponse)
instance Prelude.NFData CreateRoomResponse where
rnf :: CreateRoomResponse -> ()
rnf CreateRoomResponse' {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:CreateRoomResponse' :: CreateRoomResponse -> Int
$sel:updateTime:CreateRoomResponse' :: CreateRoomResponse -> Maybe ISO8601
$sel:tags:CreateRoomResponse' :: CreateRoomResponse -> Maybe (HashMap Text Text)
$sel:name:CreateRoomResponse' :: CreateRoomResponse -> Maybe Text
$sel:messageReviewHandler:CreateRoomResponse' :: CreateRoomResponse -> Maybe MessageReviewHandler
$sel:maximumMessageRatePerSecond:CreateRoomResponse' :: CreateRoomResponse -> Maybe Natural
$sel:maximumMessageLength:CreateRoomResponse' :: CreateRoomResponse -> Maybe Natural
$sel:loggingConfigurationIdentifiers:CreateRoomResponse' :: CreateRoomResponse -> Maybe [Text]
$sel:id:CreateRoomResponse' :: CreateRoomResponse -> Maybe Text
$sel:createTime:CreateRoomResponse' :: CreateRoomResponse -> Maybe ISO8601
$sel:arn:CreateRoomResponse' :: CreateRoomResponse -> 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