{-# 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.DescribeChannelModeratedByAppInstanceUser
(
DescribeChannelModeratedByAppInstanceUser (..),
newDescribeChannelModeratedByAppInstanceUser,
describeChannelModeratedByAppInstanceUser_chimeBearer,
describeChannelModeratedByAppInstanceUser_channelArn,
describeChannelModeratedByAppInstanceUser_appInstanceUserArn,
DescribeChannelModeratedByAppInstanceUserResponse (..),
newDescribeChannelModeratedByAppInstanceUserResponse,
describeChannelModeratedByAppInstanceUserResponse_channel,
describeChannelModeratedByAppInstanceUserResponse_httpStatus,
)
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 DescribeChannelModeratedByAppInstanceUser = DescribeChannelModeratedByAppInstanceUser'
{
DescribeChannelModeratedByAppInstanceUser -> Maybe Text
chimeBearer :: Prelude.Maybe Prelude.Text,
DescribeChannelModeratedByAppInstanceUser -> Text
channelArn :: Prelude.Text,
DescribeChannelModeratedByAppInstanceUser -> Text
appInstanceUserArn :: Prelude.Text
}
deriving (DescribeChannelModeratedByAppInstanceUser
-> DescribeChannelModeratedByAppInstanceUser -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeChannelModeratedByAppInstanceUser
-> DescribeChannelModeratedByAppInstanceUser -> Bool
$c/= :: DescribeChannelModeratedByAppInstanceUser
-> DescribeChannelModeratedByAppInstanceUser -> Bool
== :: DescribeChannelModeratedByAppInstanceUser
-> DescribeChannelModeratedByAppInstanceUser -> Bool
$c== :: DescribeChannelModeratedByAppInstanceUser
-> DescribeChannelModeratedByAppInstanceUser -> Bool
Prelude.Eq, ReadPrec [DescribeChannelModeratedByAppInstanceUser]
ReadPrec DescribeChannelModeratedByAppInstanceUser
Int -> ReadS DescribeChannelModeratedByAppInstanceUser
ReadS [DescribeChannelModeratedByAppInstanceUser]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeChannelModeratedByAppInstanceUser]
$creadListPrec :: ReadPrec [DescribeChannelModeratedByAppInstanceUser]
readPrec :: ReadPrec DescribeChannelModeratedByAppInstanceUser
$creadPrec :: ReadPrec DescribeChannelModeratedByAppInstanceUser
readList :: ReadS [DescribeChannelModeratedByAppInstanceUser]
$creadList :: ReadS [DescribeChannelModeratedByAppInstanceUser]
readsPrec :: Int -> ReadS DescribeChannelModeratedByAppInstanceUser
$creadsPrec :: Int -> ReadS DescribeChannelModeratedByAppInstanceUser
Prelude.Read, Int -> DescribeChannelModeratedByAppInstanceUser -> ShowS
[DescribeChannelModeratedByAppInstanceUser] -> ShowS
DescribeChannelModeratedByAppInstanceUser -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeChannelModeratedByAppInstanceUser] -> ShowS
$cshowList :: [DescribeChannelModeratedByAppInstanceUser] -> ShowS
show :: DescribeChannelModeratedByAppInstanceUser -> String
$cshow :: DescribeChannelModeratedByAppInstanceUser -> String
showsPrec :: Int -> DescribeChannelModeratedByAppInstanceUser -> ShowS
$cshowsPrec :: Int -> DescribeChannelModeratedByAppInstanceUser -> ShowS
Prelude.Show, forall x.
Rep DescribeChannelModeratedByAppInstanceUser x
-> DescribeChannelModeratedByAppInstanceUser
forall x.
DescribeChannelModeratedByAppInstanceUser
-> Rep DescribeChannelModeratedByAppInstanceUser x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeChannelModeratedByAppInstanceUser x
-> DescribeChannelModeratedByAppInstanceUser
$cfrom :: forall x.
DescribeChannelModeratedByAppInstanceUser
-> Rep DescribeChannelModeratedByAppInstanceUser x
Prelude.Generic)
newDescribeChannelModeratedByAppInstanceUser ::
Prelude.Text ->
Prelude.Text ->
DescribeChannelModeratedByAppInstanceUser
newDescribeChannelModeratedByAppInstanceUser :: Text -> Text -> DescribeChannelModeratedByAppInstanceUser
newDescribeChannelModeratedByAppInstanceUser
Text
pChannelArn_
Text
pAppInstanceUserArn_ =
DescribeChannelModeratedByAppInstanceUser'
{ $sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: Maybe Text
chimeBearer =
forall a. Maybe a
Prelude.Nothing,
$sel:channelArn:DescribeChannelModeratedByAppInstanceUser' :: Text
channelArn = Text
pChannelArn_,
$sel:appInstanceUserArn:DescribeChannelModeratedByAppInstanceUser' :: Text
appInstanceUserArn =
Text
pAppInstanceUserArn_
}
describeChannelModeratedByAppInstanceUser_chimeBearer :: Lens.Lens' DescribeChannelModeratedByAppInstanceUser (Prelude.Maybe Prelude.Text)
describeChannelModeratedByAppInstanceUser_chimeBearer :: Lens' DescribeChannelModeratedByAppInstanceUser (Maybe Text)
describeChannelModeratedByAppInstanceUser_chimeBearer = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeChannelModeratedByAppInstanceUser' {Maybe Text
chimeBearer :: Maybe Text
$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Maybe Text
chimeBearer} -> Maybe Text
chimeBearer) (\s :: DescribeChannelModeratedByAppInstanceUser
s@DescribeChannelModeratedByAppInstanceUser' {} Maybe Text
a -> DescribeChannelModeratedByAppInstanceUser
s {$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: Maybe Text
chimeBearer = Maybe Text
a} :: DescribeChannelModeratedByAppInstanceUser)
describeChannelModeratedByAppInstanceUser_channelArn :: Lens.Lens' DescribeChannelModeratedByAppInstanceUser Prelude.Text
describeChannelModeratedByAppInstanceUser_channelArn :: Lens' DescribeChannelModeratedByAppInstanceUser Text
describeChannelModeratedByAppInstanceUser_channelArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeChannelModeratedByAppInstanceUser' {Text
channelArn :: Text
$sel:channelArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
channelArn} -> Text
channelArn) (\s :: DescribeChannelModeratedByAppInstanceUser
s@DescribeChannelModeratedByAppInstanceUser' {} Text
a -> DescribeChannelModeratedByAppInstanceUser
s {$sel:channelArn:DescribeChannelModeratedByAppInstanceUser' :: Text
channelArn = Text
a} :: DescribeChannelModeratedByAppInstanceUser)
describeChannelModeratedByAppInstanceUser_appInstanceUserArn :: Lens.Lens' DescribeChannelModeratedByAppInstanceUser Prelude.Text
describeChannelModeratedByAppInstanceUser_appInstanceUserArn :: Lens' DescribeChannelModeratedByAppInstanceUser Text
describeChannelModeratedByAppInstanceUser_appInstanceUserArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeChannelModeratedByAppInstanceUser' {Text
appInstanceUserArn :: Text
$sel:appInstanceUserArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
appInstanceUserArn} -> Text
appInstanceUserArn) (\s :: DescribeChannelModeratedByAppInstanceUser
s@DescribeChannelModeratedByAppInstanceUser' {} Text
a -> DescribeChannelModeratedByAppInstanceUser
s {$sel:appInstanceUserArn:DescribeChannelModeratedByAppInstanceUser' :: Text
appInstanceUserArn = Text
a} :: DescribeChannelModeratedByAppInstanceUser)
instance
Core.AWSRequest
DescribeChannelModeratedByAppInstanceUser
where
type
AWSResponse
DescribeChannelModeratedByAppInstanceUser =
DescribeChannelModeratedByAppInstanceUserResponse
request :: (Service -> Service)
-> DescribeChannelModeratedByAppInstanceUser
-> Request DescribeChannelModeratedByAppInstanceUser
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeChannelModeratedByAppInstanceUser
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DescribeChannelModeratedByAppInstanceUser)))
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 ChannelModeratedByAppInstanceUserSummary
-> Int -> DescribeChannelModeratedByAppInstanceUserResponse
DescribeChannelModeratedByAppInstanceUserResponse'
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
"Channel")
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
DescribeChannelModeratedByAppInstanceUser
where
hashWithSalt :: Int -> DescribeChannelModeratedByAppInstanceUser -> Int
hashWithSalt
Int
_salt
DescribeChannelModeratedByAppInstanceUser' {Maybe Text
Text
appInstanceUserArn :: Text
channelArn :: Text
chimeBearer :: Maybe Text
$sel:appInstanceUserArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:channelArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
chimeBearer
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
channelArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
appInstanceUserArn
instance
Prelude.NFData
DescribeChannelModeratedByAppInstanceUser
where
rnf :: DescribeChannelModeratedByAppInstanceUser -> ()
rnf DescribeChannelModeratedByAppInstanceUser' {Maybe Text
Text
appInstanceUserArn :: Text
channelArn :: Text
chimeBearer :: Maybe Text
$sel:appInstanceUserArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:channelArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
chimeBearer
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
channelArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
appInstanceUserArn
instance
Data.ToHeaders
DescribeChannelModeratedByAppInstanceUser
where
toHeaders :: DescribeChannelModeratedByAppInstanceUser -> ResponseHeaders
toHeaders
DescribeChannelModeratedByAppInstanceUser' {Maybe Text
Text
appInstanceUserArn :: Text
channelArn :: Text
chimeBearer :: Maybe Text
$sel:appInstanceUserArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:channelArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[HeaderName
"x-amz-chime-bearer" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
chimeBearer]
instance
Data.ToPath
DescribeChannelModeratedByAppInstanceUser
where
toPath :: DescribeChannelModeratedByAppInstanceUser -> ByteString
toPath DescribeChannelModeratedByAppInstanceUser' {Maybe Text
Text
appInstanceUserArn :: Text
channelArn :: Text
chimeBearer :: Maybe Text
$sel:appInstanceUserArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:channelArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/channels/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
channelArn]
instance
Data.ToQuery
DescribeChannelModeratedByAppInstanceUser
where
toQuery :: DescribeChannelModeratedByAppInstanceUser -> QueryString
toQuery
DescribeChannelModeratedByAppInstanceUser' {Maybe Text
Text
appInstanceUserArn :: Text
channelArn :: Text
chimeBearer :: Maybe Text
$sel:appInstanceUserArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:channelArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"app-instance-user-arn" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
appInstanceUserArn,
QueryString
"scope=app-instance-user-moderated-channel"
]
data DescribeChannelModeratedByAppInstanceUserResponse = DescribeChannelModeratedByAppInstanceUserResponse'
{
DescribeChannelModeratedByAppInstanceUserResponse
-> Maybe ChannelModeratedByAppInstanceUserSummary
channel :: Prelude.Maybe ChannelModeratedByAppInstanceUserSummary,
DescribeChannelModeratedByAppInstanceUserResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeChannelModeratedByAppInstanceUserResponse
-> DescribeChannelModeratedByAppInstanceUserResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeChannelModeratedByAppInstanceUserResponse
-> DescribeChannelModeratedByAppInstanceUserResponse -> Bool
$c/= :: DescribeChannelModeratedByAppInstanceUserResponse
-> DescribeChannelModeratedByAppInstanceUserResponse -> Bool
== :: DescribeChannelModeratedByAppInstanceUserResponse
-> DescribeChannelModeratedByAppInstanceUserResponse -> Bool
$c== :: DescribeChannelModeratedByAppInstanceUserResponse
-> DescribeChannelModeratedByAppInstanceUserResponse -> Bool
Prelude.Eq, Int -> DescribeChannelModeratedByAppInstanceUserResponse -> ShowS
[DescribeChannelModeratedByAppInstanceUserResponse] -> ShowS
DescribeChannelModeratedByAppInstanceUserResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeChannelModeratedByAppInstanceUserResponse] -> ShowS
$cshowList :: [DescribeChannelModeratedByAppInstanceUserResponse] -> ShowS
show :: DescribeChannelModeratedByAppInstanceUserResponse -> String
$cshow :: DescribeChannelModeratedByAppInstanceUserResponse -> String
showsPrec :: Int -> DescribeChannelModeratedByAppInstanceUserResponse -> ShowS
$cshowsPrec :: Int -> DescribeChannelModeratedByAppInstanceUserResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeChannelModeratedByAppInstanceUserResponse x
-> DescribeChannelModeratedByAppInstanceUserResponse
forall x.
DescribeChannelModeratedByAppInstanceUserResponse
-> Rep DescribeChannelModeratedByAppInstanceUserResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeChannelModeratedByAppInstanceUserResponse x
-> DescribeChannelModeratedByAppInstanceUserResponse
$cfrom :: forall x.
DescribeChannelModeratedByAppInstanceUserResponse
-> Rep DescribeChannelModeratedByAppInstanceUserResponse x
Prelude.Generic)
newDescribeChannelModeratedByAppInstanceUserResponse ::
Prelude.Int ->
DescribeChannelModeratedByAppInstanceUserResponse
newDescribeChannelModeratedByAppInstanceUserResponse :: Int -> DescribeChannelModeratedByAppInstanceUserResponse
newDescribeChannelModeratedByAppInstanceUserResponse
Int
pHttpStatus_ =
DescribeChannelModeratedByAppInstanceUserResponse'
{ $sel:channel:DescribeChannelModeratedByAppInstanceUserResponse' :: Maybe ChannelModeratedByAppInstanceUserSummary
channel =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeChannelModeratedByAppInstanceUserResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
describeChannelModeratedByAppInstanceUserResponse_channel :: Lens.Lens' DescribeChannelModeratedByAppInstanceUserResponse (Prelude.Maybe ChannelModeratedByAppInstanceUserSummary)
describeChannelModeratedByAppInstanceUserResponse_channel :: Lens'
DescribeChannelModeratedByAppInstanceUserResponse
(Maybe ChannelModeratedByAppInstanceUserSummary)
describeChannelModeratedByAppInstanceUserResponse_channel = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeChannelModeratedByAppInstanceUserResponse' {Maybe ChannelModeratedByAppInstanceUserSummary
channel :: Maybe ChannelModeratedByAppInstanceUserSummary
$sel:channel:DescribeChannelModeratedByAppInstanceUserResponse' :: DescribeChannelModeratedByAppInstanceUserResponse
-> Maybe ChannelModeratedByAppInstanceUserSummary
channel} -> Maybe ChannelModeratedByAppInstanceUserSummary
channel) (\s :: DescribeChannelModeratedByAppInstanceUserResponse
s@DescribeChannelModeratedByAppInstanceUserResponse' {} Maybe ChannelModeratedByAppInstanceUserSummary
a -> DescribeChannelModeratedByAppInstanceUserResponse
s {$sel:channel:DescribeChannelModeratedByAppInstanceUserResponse' :: Maybe ChannelModeratedByAppInstanceUserSummary
channel = Maybe ChannelModeratedByAppInstanceUserSummary
a} :: DescribeChannelModeratedByAppInstanceUserResponse)
describeChannelModeratedByAppInstanceUserResponse_httpStatus :: Lens.Lens' DescribeChannelModeratedByAppInstanceUserResponse Prelude.Int
describeChannelModeratedByAppInstanceUserResponse_httpStatus :: Lens' DescribeChannelModeratedByAppInstanceUserResponse Int
describeChannelModeratedByAppInstanceUserResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeChannelModeratedByAppInstanceUserResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeChannelModeratedByAppInstanceUserResponse' :: DescribeChannelModeratedByAppInstanceUserResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeChannelModeratedByAppInstanceUserResponse
s@DescribeChannelModeratedByAppInstanceUserResponse' {} Int
a -> DescribeChannelModeratedByAppInstanceUserResponse
s {$sel:httpStatus:DescribeChannelModeratedByAppInstanceUserResponse' :: Int
httpStatus = Int
a} :: DescribeChannelModeratedByAppInstanceUserResponse)
instance
Prelude.NFData
DescribeChannelModeratedByAppInstanceUserResponse
where
rnf :: DescribeChannelModeratedByAppInstanceUserResponse -> ()
rnf
DescribeChannelModeratedByAppInstanceUserResponse' {Int
Maybe ChannelModeratedByAppInstanceUserSummary
httpStatus :: Int
channel :: Maybe ChannelModeratedByAppInstanceUserSummary
$sel:httpStatus:DescribeChannelModeratedByAppInstanceUserResponse' :: DescribeChannelModeratedByAppInstanceUserResponse -> Int
$sel:channel:DescribeChannelModeratedByAppInstanceUserResponse' :: DescribeChannelModeratedByAppInstanceUserResponse
-> Maybe ChannelModeratedByAppInstanceUserSummary
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ChannelModeratedByAppInstanceUserSummary
channel
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus