{-# 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.DeleteChannelBan
(
DeleteChannelBan (..),
newDeleteChannelBan,
deleteChannelBan_chimeBearer,
deleteChannelBan_channelArn,
deleteChannelBan_memberArn,
DeleteChannelBanResponse (..),
newDeleteChannelBanResponse,
)
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 DeleteChannelBan = DeleteChannelBan'
{
DeleteChannelBan -> Maybe Text
chimeBearer :: Prelude.Maybe Prelude.Text,
DeleteChannelBan -> Text
channelArn :: Prelude.Text,
DeleteChannelBan -> Text
memberArn :: Prelude.Text
}
deriving (DeleteChannelBan -> DeleteChannelBan -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteChannelBan -> DeleteChannelBan -> Bool
$c/= :: DeleteChannelBan -> DeleteChannelBan -> Bool
== :: DeleteChannelBan -> DeleteChannelBan -> Bool
$c== :: DeleteChannelBan -> DeleteChannelBan -> Bool
Prelude.Eq, ReadPrec [DeleteChannelBan]
ReadPrec DeleteChannelBan
Int -> ReadS DeleteChannelBan
ReadS [DeleteChannelBan]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteChannelBan]
$creadListPrec :: ReadPrec [DeleteChannelBan]
readPrec :: ReadPrec DeleteChannelBan
$creadPrec :: ReadPrec DeleteChannelBan
readList :: ReadS [DeleteChannelBan]
$creadList :: ReadS [DeleteChannelBan]
readsPrec :: Int -> ReadS DeleteChannelBan
$creadsPrec :: Int -> ReadS DeleteChannelBan
Prelude.Read, Int -> DeleteChannelBan -> ShowS
[DeleteChannelBan] -> ShowS
DeleteChannelBan -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteChannelBan] -> ShowS
$cshowList :: [DeleteChannelBan] -> ShowS
show :: DeleteChannelBan -> String
$cshow :: DeleteChannelBan -> String
showsPrec :: Int -> DeleteChannelBan -> ShowS
$cshowsPrec :: Int -> DeleteChannelBan -> ShowS
Prelude.Show, forall x. Rep DeleteChannelBan x -> DeleteChannelBan
forall x. DeleteChannelBan -> Rep DeleteChannelBan x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteChannelBan x -> DeleteChannelBan
$cfrom :: forall x. DeleteChannelBan -> Rep DeleteChannelBan x
Prelude.Generic)
newDeleteChannelBan ::
Prelude.Text ->
Prelude.Text ->
DeleteChannelBan
newDeleteChannelBan :: Text -> Text -> DeleteChannelBan
newDeleteChannelBan Text
pChannelArn_ Text
pMemberArn_ =
DeleteChannelBan'
{ $sel:chimeBearer:DeleteChannelBan' :: Maybe Text
chimeBearer = forall a. Maybe a
Prelude.Nothing,
$sel:channelArn:DeleteChannelBan' :: Text
channelArn = Text
pChannelArn_,
$sel:memberArn:DeleteChannelBan' :: Text
memberArn = Text
pMemberArn_
}
deleteChannelBan_chimeBearer :: Lens.Lens' DeleteChannelBan (Prelude.Maybe Prelude.Text)
deleteChannelBan_chimeBearer :: Lens' DeleteChannelBan (Maybe Text)
deleteChannelBan_chimeBearer = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteChannelBan' {Maybe Text
chimeBearer :: Maybe Text
$sel:chimeBearer:DeleteChannelBan' :: DeleteChannelBan -> Maybe Text
chimeBearer} -> Maybe Text
chimeBearer) (\s :: DeleteChannelBan
s@DeleteChannelBan' {} Maybe Text
a -> DeleteChannelBan
s {$sel:chimeBearer:DeleteChannelBan' :: Maybe Text
chimeBearer = Maybe Text
a} :: DeleteChannelBan)
deleteChannelBan_channelArn :: Lens.Lens' DeleteChannelBan Prelude.Text
deleteChannelBan_channelArn :: Lens' DeleteChannelBan Text
deleteChannelBan_channelArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteChannelBan' {Text
channelArn :: Text
$sel:channelArn:DeleteChannelBan' :: DeleteChannelBan -> Text
channelArn} -> Text
channelArn) (\s :: DeleteChannelBan
s@DeleteChannelBan' {} Text
a -> DeleteChannelBan
s {$sel:channelArn:DeleteChannelBan' :: Text
channelArn = Text
a} :: DeleteChannelBan)
deleteChannelBan_memberArn :: Lens.Lens' DeleteChannelBan Prelude.Text
deleteChannelBan_memberArn :: Lens' DeleteChannelBan Text
deleteChannelBan_memberArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteChannelBan' {Text
memberArn :: Text
$sel:memberArn:DeleteChannelBan' :: DeleteChannelBan -> Text
memberArn} -> Text
memberArn) (\s :: DeleteChannelBan
s@DeleteChannelBan' {} Text
a -> DeleteChannelBan
s {$sel:memberArn:DeleteChannelBan' :: Text
memberArn = Text
a} :: DeleteChannelBan)
instance Core.AWSRequest DeleteChannelBan where
type
AWSResponse DeleteChannelBan =
DeleteChannelBanResponse
request :: (Service -> Service)
-> DeleteChannelBan -> Request DeleteChannelBan
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeleteChannelBan
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeleteChannelBan)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteChannelBanResponse
DeleteChannelBanResponse'
instance Prelude.Hashable DeleteChannelBan where
hashWithSalt :: Int -> DeleteChannelBan -> Int
hashWithSalt Int
_salt DeleteChannelBan' {Maybe Text
Text
memberArn :: Text
channelArn :: Text
chimeBearer :: Maybe Text
$sel:memberArn:DeleteChannelBan' :: DeleteChannelBan -> Text
$sel:channelArn:DeleteChannelBan' :: DeleteChannelBan -> Text
$sel:chimeBearer:DeleteChannelBan' :: DeleteChannelBan -> 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
memberArn
instance Prelude.NFData DeleteChannelBan where
rnf :: DeleteChannelBan -> ()
rnf DeleteChannelBan' {Maybe Text
Text
memberArn :: Text
channelArn :: Text
chimeBearer :: Maybe Text
$sel:memberArn:DeleteChannelBan' :: DeleteChannelBan -> Text
$sel:channelArn:DeleteChannelBan' :: DeleteChannelBan -> Text
$sel:chimeBearer:DeleteChannelBan' :: DeleteChannelBan -> 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
memberArn
instance Data.ToHeaders DeleteChannelBan where
toHeaders :: DeleteChannelBan -> [Header]
toHeaders DeleteChannelBan' {Maybe Text
Text
memberArn :: Text
channelArn :: Text
chimeBearer :: Maybe Text
$sel:memberArn:DeleteChannelBan' :: DeleteChannelBan -> Text
$sel:channelArn:DeleteChannelBan' :: DeleteChannelBan -> Text
$sel:chimeBearer:DeleteChannelBan' :: DeleteChannelBan -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[HeaderName
"x-amz-chime-bearer" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe Text
chimeBearer]
instance Data.ToPath DeleteChannelBan where
toPath :: DeleteChannelBan -> ByteString
toPath DeleteChannelBan' {Maybe Text
Text
memberArn :: Text
channelArn :: Text
chimeBearer :: Maybe Text
$sel:memberArn:DeleteChannelBan' :: DeleteChannelBan -> Text
$sel:channelArn:DeleteChannelBan' :: DeleteChannelBan -> Text
$sel:chimeBearer:DeleteChannelBan' :: DeleteChannelBan -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/channels/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
channelArn,
ByteString
"/bans/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
memberArn
]
instance Data.ToQuery DeleteChannelBan where
toQuery :: DeleteChannelBan -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteChannelBanResponse = DeleteChannelBanResponse'
{
}
deriving (DeleteChannelBanResponse -> DeleteChannelBanResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteChannelBanResponse -> DeleteChannelBanResponse -> Bool
$c/= :: DeleteChannelBanResponse -> DeleteChannelBanResponse -> Bool
== :: DeleteChannelBanResponse -> DeleteChannelBanResponse -> Bool
$c== :: DeleteChannelBanResponse -> DeleteChannelBanResponse -> Bool
Prelude.Eq, ReadPrec [DeleteChannelBanResponse]
ReadPrec DeleteChannelBanResponse
Int -> ReadS DeleteChannelBanResponse
ReadS [DeleteChannelBanResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteChannelBanResponse]
$creadListPrec :: ReadPrec [DeleteChannelBanResponse]
readPrec :: ReadPrec DeleteChannelBanResponse
$creadPrec :: ReadPrec DeleteChannelBanResponse
readList :: ReadS [DeleteChannelBanResponse]
$creadList :: ReadS [DeleteChannelBanResponse]
readsPrec :: Int -> ReadS DeleteChannelBanResponse
$creadsPrec :: Int -> ReadS DeleteChannelBanResponse
Prelude.Read, Int -> DeleteChannelBanResponse -> ShowS
[DeleteChannelBanResponse] -> ShowS
DeleteChannelBanResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteChannelBanResponse] -> ShowS
$cshowList :: [DeleteChannelBanResponse] -> ShowS
show :: DeleteChannelBanResponse -> String
$cshow :: DeleteChannelBanResponse -> String
showsPrec :: Int -> DeleteChannelBanResponse -> ShowS
$cshowsPrec :: Int -> DeleteChannelBanResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteChannelBanResponse x -> DeleteChannelBanResponse
forall x.
DeleteChannelBanResponse -> Rep DeleteChannelBanResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteChannelBanResponse x -> DeleteChannelBanResponse
$cfrom :: forall x.
DeleteChannelBanResponse -> Rep DeleteChannelBanResponse x
Prelude.Generic)
newDeleteChannelBanResponse ::
DeleteChannelBanResponse
newDeleteChannelBanResponse :: DeleteChannelBanResponse
newDeleteChannelBanResponse =
DeleteChannelBanResponse
DeleteChannelBanResponse'
instance Prelude.NFData DeleteChannelBanResponse where
rnf :: DeleteChannelBanResponse -> ()
rnf DeleteChannelBanResponse
_ = ()