{-# 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.ChimeSDKMessaging.DescribeChannelModeratedByAppInstanceUser
(
DescribeChannelModeratedByAppInstanceUser (..),
newDescribeChannelModeratedByAppInstanceUser,
describeChannelModeratedByAppInstanceUser_channelArn,
describeChannelModeratedByAppInstanceUser_appInstanceUserArn,
describeChannelModeratedByAppInstanceUser_chimeBearer,
DescribeChannelModeratedByAppInstanceUserResponse (..),
newDescribeChannelModeratedByAppInstanceUserResponse,
describeChannelModeratedByAppInstanceUserResponse_channel,
describeChannelModeratedByAppInstanceUserResponse_httpStatus,
)
where
import Amazonka.ChimeSDKMessaging.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 -> Text
channelArn :: Prelude.Text,
DescribeChannelModeratedByAppInstanceUser -> Text
appInstanceUserArn :: Prelude.Text,
DescribeChannelModeratedByAppInstanceUser -> Text
chimeBearer :: 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 ->
Prelude.Text ->
DescribeChannelModeratedByAppInstanceUser
newDescribeChannelModeratedByAppInstanceUser :: Text -> Text -> Text -> DescribeChannelModeratedByAppInstanceUser
newDescribeChannelModeratedByAppInstanceUser
Text
pChannelArn_
Text
pAppInstanceUserArn_
Text
pChimeBearer_ =
DescribeChannelModeratedByAppInstanceUser'
{ $sel:channelArn:DescribeChannelModeratedByAppInstanceUser' :: Text
channelArn =
Text
pChannelArn_,
$sel:appInstanceUserArn:DescribeChannelModeratedByAppInstanceUser' :: Text
appInstanceUserArn =
Text
pAppInstanceUserArn_,
$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: Text
chimeBearer = Text
pChimeBearer_
}
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)
describeChannelModeratedByAppInstanceUser_chimeBearer :: Lens.Lens' DescribeChannelModeratedByAppInstanceUser Prelude.Text
describeChannelModeratedByAppInstanceUser_chimeBearer :: Lens' DescribeChannelModeratedByAppInstanceUser Text
describeChannelModeratedByAppInstanceUser_chimeBearer = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeChannelModeratedByAppInstanceUser' {Text
chimeBearer :: Text
$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
chimeBearer} -> Text
chimeBearer) (\s :: DescribeChannelModeratedByAppInstanceUser
s@DescribeChannelModeratedByAppInstanceUser' {} Text
a -> DescribeChannelModeratedByAppInstanceUser
s {$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: Text
chimeBearer = 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' {Text
chimeBearer :: Text
appInstanceUserArn :: Text
channelArn :: Text
$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:appInstanceUserArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:channelArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
channelArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
appInstanceUserArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
chimeBearer
instance
Prelude.NFData
DescribeChannelModeratedByAppInstanceUser
where
rnf :: DescribeChannelModeratedByAppInstanceUser -> ()
rnf DescribeChannelModeratedByAppInstanceUser' {Text
chimeBearer :: Text
appInstanceUserArn :: Text
channelArn :: Text
$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:appInstanceUserArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:channelArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
..} =
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
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
chimeBearer
instance
Data.ToHeaders
DescribeChannelModeratedByAppInstanceUser
where
toHeaders :: DescribeChannelModeratedByAppInstanceUser -> ResponseHeaders
toHeaders
DescribeChannelModeratedByAppInstanceUser' {Text
chimeBearer :: Text
appInstanceUserArn :: Text
channelArn :: Text
$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:appInstanceUserArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:channelArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[HeaderName
"x-amz-chime-bearer" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Text
chimeBearer]
instance
Data.ToPath
DescribeChannelModeratedByAppInstanceUser
where
toPath :: DescribeChannelModeratedByAppInstanceUser -> ByteString
toPath DescribeChannelModeratedByAppInstanceUser' {Text
chimeBearer :: Text
appInstanceUserArn :: Text
channelArn :: Text
$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:appInstanceUserArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:channelArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> 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' {Text
chimeBearer :: Text
appInstanceUserArn :: Text
channelArn :: Text
$sel:chimeBearer:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:appInstanceUserArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> Text
$sel:channelArn:DescribeChannelModeratedByAppInstanceUser' :: DescribeChannelModeratedByAppInstanceUser -> 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