{-# 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.PutChannelMembershipPreferences
(
PutChannelMembershipPreferences (..),
newPutChannelMembershipPreferences,
putChannelMembershipPreferences_channelArn,
putChannelMembershipPreferences_memberArn,
putChannelMembershipPreferences_chimeBearer,
putChannelMembershipPreferences_preferences,
PutChannelMembershipPreferencesResponse (..),
newPutChannelMembershipPreferencesResponse,
putChannelMembershipPreferencesResponse_channelArn,
putChannelMembershipPreferencesResponse_member,
putChannelMembershipPreferencesResponse_preferences,
putChannelMembershipPreferencesResponse_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 PutChannelMembershipPreferences = PutChannelMembershipPreferences'
{
PutChannelMembershipPreferences -> Text
channelArn :: Prelude.Text,
PutChannelMembershipPreferences -> Text
memberArn :: Prelude.Text,
PutChannelMembershipPreferences -> Text
chimeBearer :: Prelude.Text,
PutChannelMembershipPreferences -> ChannelMembershipPreferences
preferences :: ChannelMembershipPreferences
}
deriving (PutChannelMembershipPreferences
-> PutChannelMembershipPreferences -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutChannelMembershipPreferences
-> PutChannelMembershipPreferences -> Bool
$c/= :: PutChannelMembershipPreferences
-> PutChannelMembershipPreferences -> Bool
== :: PutChannelMembershipPreferences
-> PutChannelMembershipPreferences -> Bool
$c== :: PutChannelMembershipPreferences
-> PutChannelMembershipPreferences -> Bool
Prelude.Eq, Int -> PutChannelMembershipPreferences -> ShowS
[PutChannelMembershipPreferences] -> ShowS
PutChannelMembershipPreferences -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutChannelMembershipPreferences] -> ShowS
$cshowList :: [PutChannelMembershipPreferences] -> ShowS
show :: PutChannelMembershipPreferences -> String
$cshow :: PutChannelMembershipPreferences -> String
showsPrec :: Int -> PutChannelMembershipPreferences -> ShowS
$cshowsPrec :: Int -> PutChannelMembershipPreferences -> ShowS
Prelude.Show, forall x.
Rep PutChannelMembershipPreferences x
-> PutChannelMembershipPreferences
forall x.
PutChannelMembershipPreferences
-> Rep PutChannelMembershipPreferences x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutChannelMembershipPreferences x
-> PutChannelMembershipPreferences
$cfrom :: forall x.
PutChannelMembershipPreferences
-> Rep PutChannelMembershipPreferences x
Prelude.Generic)
newPutChannelMembershipPreferences ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
ChannelMembershipPreferences ->
PutChannelMembershipPreferences
newPutChannelMembershipPreferences :: Text
-> Text
-> Text
-> ChannelMembershipPreferences
-> PutChannelMembershipPreferences
newPutChannelMembershipPreferences
Text
pChannelArn_
Text
pMemberArn_
Text
pChimeBearer_
ChannelMembershipPreferences
pPreferences_ =
PutChannelMembershipPreferences'
{ $sel:channelArn:PutChannelMembershipPreferences' :: Text
channelArn =
Text
pChannelArn_,
$sel:memberArn:PutChannelMembershipPreferences' :: Text
memberArn = Text
pMemberArn_,
$sel:chimeBearer:PutChannelMembershipPreferences' :: Text
chimeBearer = Text
pChimeBearer_,
$sel:preferences:PutChannelMembershipPreferences' :: ChannelMembershipPreferences
preferences = ChannelMembershipPreferences
pPreferences_
}
putChannelMembershipPreferences_channelArn :: Lens.Lens' PutChannelMembershipPreferences Prelude.Text
putChannelMembershipPreferences_channelArn :: Lens' PutChannelMembershipPreferences Text
putChannelMembershipPreferences_channelArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutChannelMembershipPreferences' {Text
channelArn :: Text
$sel:channelArn:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
channelArn} -> Text
channelArn) (\s :: PutChannelMembershipPreferences
s@PutChannelMembershipPreferences' {} Text
a -> PutChannelMembershipPreferences
s {$sel:channelArn:PutChannelMembershipPreferences' :: Text
channelArn = Text
a} :: PutChannelMembershipPreferences)
putChannelMembershipPreferences_memberArn :: Lens.Lens' PutChannelMembershipPreferences Prelude.Text
putChannelMembershipPreferences_memberArn :: Lens' PutChannelMembershipPreferences Text
putChannelMembershipPreferences_memberArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutChannelMembershipPreferences' {Text
memberArn :: Text
$sel:memberArn:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
memberArn} -> Text
memberArn) (\s :: PutChannelMembershipPreferences
s@PutChannelMembershipPreferences' {} Text
a -> PutChannelMembershipPreferences
s {$sel:memberArn:PutChannelMembershipPreferences' :: Text
memberArn = Text
a} :: PutChannelMembershipPreferences)
putChannelMembershipPreferences_chimeBearer :: Lens.Lens' PutChannelMembershipPreferences Prelude.Text
putChannelMembershipPreferences_chimeBearer :: Lens' PutChannelMembershipPreferences Text
putChannelMembershipPreferences_chimeBearer = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutChannelMembershipPreferences' {Text
chimeBearer :: Text
$sel:chimeBearer:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
chimeBearer} -> Text
chimeBearer) (\s :: PutChannelMembershipPreferences
s@PutChannelMembershipPreferences' {} Text
a -> PutChannelMembershipPreferences
s {$sel:chimeBearer:PutChannelMembershipPreferences' :: Text
chimeBearer = Text
a} :: PutChannelMembershipPreferences)
putChannelMembershipPreferences_preferences :: Lens.Lens' PutChannelMembershipPreferences ChannelMembershipPreferences
putChannelMembershipPreferences_preferences :: Lens' PutChannelMembershipPreferences ChannelMembershipPreferences
putChannelMembershipPreferences_preferences = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutChannelMembershipPreferences' {ChannelMembershipPreferences
preferences :: ChannelMembershipPreferences
$sel:preferences:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> ChannelMembershipPreferences
preferences} -> ChannelMembershipPreferences
preferences) (\s :: PutChannelMembershipPreferences
s@PutChannelMembershipPreferences' {} ChannelMembershipPreferences
a -> PutChannelMembershipPreferences
s {$sel:preferences:PutChannelMembershipPreferences' :: ChannelMembershipPreferences
preferences = ChannelMembershipPreferences
a} :: PutChannelMembershipPreferences)
instance
Core.AWSRequest
PutChannelMembershipPreferences
where
type
AWSResponse PutChannelMembershipPreferences =
PutChannelMembershipPreferencesResponse
request :: (Service -> Service)
-> PutChannelMembershipPreferences
-> Request PutChannelMembershipPreferences
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy PutChannelMembershipPreferences
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse PutChannelMembershipPreferences)))
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 Identity
-> Maybe ChannelMembershipPreferences
-> Int
-> PutChannelMembershipPreferencesResponse
PutChannelMembershipPreferencesResponse'
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
"ChannelArn")
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
"Member")
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
"Preferences")
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
PutChannelMembershipPreferences
where
hashWithSalt :: Int -> PutChannelMembershipPreferences -> Int
hashWithSalt
Int
_salt
PutChannelMembershipPreferences' {Text
ChannelMembershipPreferences
preferences :: ChannelMembershipPreferences
chimeBearer :: Text
memberArn :: Text
channelArn :: Text
$sel:preferences:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> ChannelMembershipPreferences
$sel:chimeBearer:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
$sel:memberArn:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
$sel:channelArn:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
channelArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
memberArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
chimeBearer
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ChannelMembershipPreferences
preferences
instance
Prelude.NFData
PutChannelMembershipPreferences
where
rnf :: PutChannelMembershipPreferences -> ()
rnf PutChannelMembershipPreferences' {Text
ChannelMembershipPreferences
preferences :: ChannelMembershipPreferences
chimeBearer :: Text
memberArn :: Text
channelArn :: Text
$sel:preferences:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> ChannelMembershipPreferences
$sel:chimeBearer:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
$sel:memberArn:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
$sel:channelArn:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> 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
memberArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
chimeBearer
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ChannelMembershipPreferences
preferences
instance
Data.ToHeaders
PutChannelMembershipPreferences
where
toHeaders :: PutChannelMembershipPreferences -> ResponseHeaders
toHeaders PutChannelMembershipPreferences' {Text
ChannelMembershipPreferences
preferences :: ChannelMembershipPreferences
chimeBearer :: Text
memberArn :: Text
channelArn :: Text
$sel:preferences:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> ChannelMembershipPreferences
$sel:chimeBearer:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
$sel:memberArn:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
$sel:channelArn:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> 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.ToJSON PutChannelMembershipPreferences where
toJSON :: PutChannelMembershipPreferences -> Value
toJSON PutChannelMembershipPreferences' {Text
ChannelMembershipPreferences
preferences :: ChannelMembershipPreferences
chimeBearer :: Text
memberArn :: Text
channelArn :: Text
$sel:preferences:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> ChannelMembershipPreferences
$sel:chimeBearer:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
$sel:memberArn:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
$sel:channelArn:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"Preferences" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= ChannelMembershipPreferences
preferences)]
)
instance Data.ToPath PutChannelMembershipPreferences where
toPath :: PutChannelMembershipPreferences -> ByteString
toPath PutChannelMembershipPreferences' {Text
ChannelMembershipPreferences
preferences :: ChannelMembershipPreferences
chimeBearer :: Text
memberArn :: Text
channelArn :: Text
$sel:preferences:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> ChannelMembershipPreferences
$sel:chimeBearer:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
$sel:memberArn:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
$sel:channelArn:PutChannelMembershipPreferences' :: PutChannelMembershipPreferences -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/channels/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
channelArn,
ByteString
"/memberships/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
memberArn,
ByteString
"/preferences"
]
instance Data.ToQuery PutChannelMembershipPreferences where
toQuery :: PutChannelMembershipPreferences -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data PutChannelMembershipPreferencesResponse = PutChannelMembershipPreferencesResponse'
{
PutChannelMembershipPreferencesResponse -> Maybe Text
channelArn :: Prelude.Maybe Prelude.Text,
PutChannelMembershipPreferencesResponse -> Maybe Identity
member :: Prelude.Maybe Identity,
PutChannelMembershipPreferencesResponse
-> Maybe ChannelMembershipPreferences
preferences :: Prelude.Maybe ChannelMembershipPreferences,
PutChannelMembershipPreferencesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutChannelMembershipPreferencesResponse
-> PutChannelMembershipPreferencesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutChannelMembershipPreferencesResponse
-> PutChannelMembershipPreferencesResponse -> Bool
$c/= :: PutChannelMembershipPreferencesResponse
-> PutChannelMembershipPreferencesResponse -> Bool
== :: PutChannelMembershipPreferencesResponse
-> PutChannelMembershipPreferencesResponse -> Bool
$c== :: PutChannelMembershipPreferencesResponse
-> PutChannelMembershipPreferencesResponse -> Bool
Prelude.Eq, Int -> PutChannelMembershipPreferencesResponse -> ShowS
[PutChannelMembershipPreferencesResponse] -> ShowS
PutChannelMembershipPreferencesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutChannelMembershipPreferencesResponse] -> ShowS
$cshowList :: [PutChannelMembershipPreferencesResponse] -> ShowS
show :: PutChannelMembershipPreferencesResponse -> String
$cshow :: PutChannelMembershipPreferencesResponse -> String
showsPrec :: Int -> PutChannelMembershipPreferencesResponse -> ShowS
$cshowsPrec :: Int -> PutChannelMembershipPreferencesResponse -> ShowS
Prelude.Show, forall x.
Rep PutChannelMembershipPreferencesResponse x
-> PutChannelMembershipPreferencesResponse
forall x.
PutChannelMembershipPreferencesResponse
-> Rep PutChannelMembershipPreferencesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutChannelMembershipPreferencesResponse x
-> PutChannelMembershipPreferencesResponse
$cfrom :: forall x.
PutChannelMembershipPreferencesResponse
-> Rep PutChannelMembershipPreferencesResponse x
Prelude.Generic)
newPutChannelMembershipPreferencesResponse ::
Prelude.Int ->
PutChannelMembershipPreferencesResponse
newPutChannelMembershipPreferencesResponse :: Int -> PutChannelMembershipPreferencesResponse
newPutChannelMembershipPreferencesResponse
Int
pHttpStatus_ =
PutChannelMembershipPreferencesResponse'
{ $sel:channelArn:PutChannelMembershipPreferencesResponse' :: Maybe Text
channelArn =
forall a. Maybe a
Prelude.Nothing,
$sel:member:PutChannelMembershipPreferencesResponse' :: Maybe Identity
member = forall a. Maybe a
Prelude.Nothing,
$sel:preferences:PutChannelMembershipPreferencesResponse' :: Maybe ChannelMembershipPreferences
preferences = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:PutChannelMembershipPreferencesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
putChannelMembershipPreferencesResponse_channelArn :: Lens.Lens' PutChannelMembershipPreferencesResponse (Prelude.Maybe Prelude.Text)
putChannelMembershipPreferencesResponse_channelArn :: Lens' PutChannelMembershipPreferencesResponse (Maybe Text)
putChannelMembershipPreferencesResponse_channelArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutChannelMembershipPreferencesResponse' {Maybe Text
channelArn :: Maybe Text
$sel:channelArn:PutChannelMembershipPreferencesResponse' :: PutChannelMembershipPreferencesResponse -> Maybe Text
channelArn} -> Maybe Text
channelArn) (\s :: PutChannelMembershipPreferencesResponse
s@PutChannelMembershipPreferencesResponse' {} Maybe Text
a -> PutChannelMembershipPreferencesResponse
s {$sel:channelArn:PutChannelMembershipPreferencesResponse' :: Maybe Text
channelArn = Maybe Text
a} :: PutChannelMembershipPreferencesResponse)
putChannelMembershipPreferencesResponse_member :: Lens.Lens' PutChannelMembershipPreferencesResponse (Prelude.Maybe Identity)
putChannelMembershipPreferencesResponse_member :: Lens' PutChannelMembershipPreferencesResponse (Maybe Identity)
putChannelMembershipPreferencesResponse_member = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutChannelMembershipPreferencesResponse' {Maybe Identity
member :: Maybe Identity
$sel:member:PutChannelMembershipPreferencesResponse' :: PutChannelMembershipPreferencesResponse -> Maybe Identity
member} -> Maybe Identity
member) (\s :: PutChannelMembershipPreferencesResponse
s@PutChannelMembershipPreferencesResponse' {} Maybe Identity
a -> PutChannelMembershipPreferencesResponse
s {$sel:member:PutChannelMembershipPreferencesResponse' :: Maybe Identity
member = Maybe Identity
a} :: PutChannelMembershipPreferencesResponse)
putChannelMembershipPreferencesResponse_preferences :: Lens.Lens' PutChannelMembershipPreferencesResponse (Prelude.Maybe ChannelMembershipPreferences)
putChannelMembershipPreferencesResponse_preferences :: Lens'
PutChannelMembershipPreferencesResponse
(Maybe ChannelMembershipPreferences)
putChannelMembershipPreferencesResponse_preferences = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutChannelMembershipPreferencesResponse' {Maybe ChannelMembershipPreferences
preferences :: Maybe ChannelMembershipPreferences
$sel:preferences:PutChannelMembershipPreferencesResponse' :: PutChannelMembershipPreferencesResponse
-> Maybe ChannelMembershipPreferences
preferences} -> Maybe ChannelMembershipPreferences
preferences) (\s :: PutChannelMembershipPreferencesResponse
s@PutChannelMembershipPreferencesResponse' {} Maybe ChannelMembershipPreferences
a -> PutChannelMembershipPreferencesResponse
s {$sel:preferences:PutChannelMembershipPreferencesResponse' :: Maybe ChannelMembershipPreferences
preferences = Maybe ChannelMembershipPreferences
a} :: PutChannelMembershipPreferencesResponse)
putChannelMembershipPreferencesResponse_httpStatus :: Lens.Lens' PutChannelMembershipPreferencesResponse Prelude.Int
putChannelMembershipPreferencesResponse_httpStatus :: Lens' PutChannelMembershipPreferencesResponse Int
putChannelMembershipPreferencesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutChannelMembershipPreferencesResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutChannelMembershipPreferencesResponse' :: PutChannelMembershipPreferencesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutChannelMembershipPreferencesResponse
s@PutChannelMembershipPreferencesResponse' {} Int
a -> PutChannelMembershipPreferencesResponse
s {$sel:httpStatus:PutChannelMembershipPreferencesResponse' :: Int
httpStatus = Int
a} :: PutChannelMembershipPreferencesResponse)
instance
Prelude.NFData
PutChannelMembershipPreferencesResponse
where
rnf :: PutChannelMembershipPreferencesResponse -> ()
rnf PutChannelMembershipPreferencesResponse' {Int
Maybe Text
Maybe Identity
Maybe ChannelMembershipPreferences
httpStatus :: Int
preferences :: Maybe ChannelMembershipPreferences
member :: Maybe Identity
channelArn :: Maybe Text
$sel:httpStatus:PutChannelMembershipPreferencesResponse' :: PutChannelMembershipPreferencesResponse -> Int
$sel:preferences:PutChannelMembershipPreferencesResponse' :: PutChannelMembershipPreferencesResponse
-> Maybe ChannelMembershipPreferences
$sel:member:PutChannelMembershipPreferencesResponse' :: PutChannelMembershipPreferencesResponse -> Maybe Identity
$sel:channelArn:PutChannelMembershipPreferencesResponse' :: PutChannelMembershipPreferencesResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
channelArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Identity
member
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ChannelMembershipPreferences
preferences
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus