{-# 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.SupportApp.DeleteSlackWorkspaceConfiguration
(
DeleteSlackWorkspaceConfiguration (..),
newDeleteSlackWorkspaceConfiguration,
deleteSlackWorkspaceConfiguration_teamId,
DeleteSlackWorkspaceConfigurationResponse (..),
newDeleteSlackWorkspaceConfigurationResponse,
deleteSlackWorkspaceConfigurationResponse_httpStatus,
)
where
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
import Amazonka.SupportApp.Types
data DeleteSlackWorkspaceConfiguration = DeleteSlackWorkspaceConfiguration'
{
DeleteSlackWorkspaceConfiguration -> Text
teamId :: Prelude.Text
}
deriving (DeleteSlackWorkspaceConfiguration
-> DeleteSlackWorkspaceConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteSlackWorkspaceConfiguration
-> DeleteSlackWorkspaceConfiguration -> Bool
$c/= :: DeleteSlackWorkspaceConfiguration
-> DeleteSlackWorkspaceConfiguration -> Bool
== :: DeleteSlackWorkspaceConfiguration
-> DeleteSlackWorkspaceConfiguration -> Bool
$c== :: DeleteSlackWorkspaceConfiguration
-> DeleteSlackWorkspaceConfiguration -> Bool
Prelude.Eq, ReadPrec [DeleteSlackWorkspaceConfiguration]
ReadPrec DeleteSlackWorkspaceConfiguration
Int -> ReadS DeleteSlackWorkspaceConfiguration
ReadS [DeleteSlackWorkspaceConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteSlackWorkspaceConfiguration]
$creadListPrec :: ReadPrec [DeleteSlackWorkspaceConfiguration]
readPrec :: ReadPrec DeleteSlackWorkspaceConfiguration
$creadPrec :: ReadPrec DeleteSlackWorkspaceConfiguration
readList :: ReadS [DeleteSlackWorkspaceConfiguration]
$creadList :: ReadS [DeleteSlackWorkspaceConfiguration]
readsPrec :: Int -> ReadS DeleteSlackWorkspaceConfiguration
$creadsPrec :: Int -> ReadS DeleteSlackWorkspaceConfiguration
Prelude.Read, Int -> DeleteSlackWorkspaceConfiguration -> ShowS
[DeleteSlackWorkspaceConfiguration] -> ShowS
DeleteSlackWorkspaceConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteSlackWorkspaceConfiguration] -> ShowS
$cshowList :: [DeleteSlackWorkspaceConfiguration] -> ShowS
show :: DeleteSlackWorkspaceConfiguration -> String
$cshow :: DeleteSlackWorkspaceConfiguration -> String
showsPrec :: Int -> DeleteSlackWorkspaceConfiguration -> ShowS
$cshowsPrec :: Int -> DeleteSlackWorkspaceConfiguration -> ShowS
Prelude.Show, forall x.
Rep DeleteSlackWorkspaceConfiguration x
-> DeleteSlackWorkspaceConfiguration
forall x.
DeleteSlackWorkspaceConfiguration
-> Rep DeleteSlackWorkspaceConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteSlackWorkspaceConfiguration x
-> DeleteSlackWorkspaceConfiguration
$cfrom :: forall x.
DeleteSlackWorkspaceConfiguration
-> Rep DeleteSlackWorkspaceConfiguration x
Prelude.Generic)
newDeleteSlackWorkspaceConfiguration ::
Prelude.Text ->
DeleteSlackWorkspaceConfiguration
newDeleteSlackWorkspaceConfiguration :: Text -> DeleteSlackWorkspaceConfiguration
newDeleteSlackWorkspaceConfiguration Text
pTeamId_ =
DeleteSlackWorkspaceConfiguration'
{ $sel:teamId:DeleteSlackWorkspaceConfiguration' :: Text
teamId =
Text
pTeamId_
}
deleteSlackWorkspaceConfiguration_teamId :: Lens.Lens' DeleteSlackWorkspaceConfiguration Prelude.Text
deleteSlackWorkspaceConfiguration_teamId :: Lens' DeleteSlackWorkspaceConfiguration Text
deleteSlackWorkspaceConfiguration_teamId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSlackWorkspaceConfiguration' {Text
teamId :: Text
$sel:teamId:DeleteSlackWorkspaceConfiguration' :: DeleteSlackWorkspaceConfiguration -> Text
teamId} -> Text
teamId) (\s :: DeleteSlackWorkspaceConfiguration
s@DeleteSlackWorkspaceConfiguration' {} Text
a -> DeleteSlackWorkspaceConfiguration
s {$sel:teamId:DeleteSlackWorkspaceConfiguration' :: Text
teamId = Text
a} :: DeleteSlackWorkspaceConfiguration)
instance
Core.AWSRequest
DeleteSlackWorkspaceConfiguration
where
type
AWSResponse DeleteSlackWorkspaceConfiguration =
DeleteSlackWorkspaceConfigurationResponse
request :: (Service -> Service)
-> DeleteSlackWorkspaceConfiguration
-> Request DeleteSlackWorkspaceConfiguration
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 DeleteSlackWorkspaceConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DeleteSlackWorkspaceConfiguration)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> DeleteSlackWorkspaceConfigurationResponse
DeleteSlackWorkspaceConfigurationResponse'
forall (f :: * -> *) a b. Functor 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
DeleteSlackWorkspaceConfiguration
where
hashWithSalt :: Int -> DeleteSlackWorkspaceConfiguration -> Int
hashWithSalt
Int
_salt
DeleteSlackWorkspaceConfiguration' {Text
teamId :: Text
$sel:teamId:DeleteSlackWorkspaceConfiguration' :: DeleteSlackWorkspaceConfiguration -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
teamId
instance
Prelude.NFData
DeleteSlackWorkspaceConfiguration
where
rnf :: DeleteSlackWorkspaceConfiguration -> ()
rnf DeleteSlackWorkspaceConfiguration' {Text
teamId :: Text
$sel:teamId:DeleteSlackWorkspaceConfiguration' :: DeleteSlackWorkspaceConfiguration -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
teamId
instance
Data.ToHeaders
DeleteSlackWorkspaceConfiguration
where
toHeaders :: DeleteSlackWorkspaceConfiguration -> 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
DeleteSlackWorkspaceConfiguration
where
toJSON :: DeleteSlackWorkspaceConfiguration -> Value
toJSON DeleteSlackWorkspaceConfiguration' {Text
teamId :: Text
$sel:teamId:DeleteSlackWorkspaceConfiguration' :: DeleteSlackWorkspaceConfiguration -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"teamId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
teamId)]
)
instance
Data.ToPath
DeleteSlackWorkspaceConfiguration
where
toPath :: DeleteSlackWorkspaceConfiguration -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const
ByteString
"/control/delete-slack-workspace-configuration"
instance
Data.ToQuery
DeleteSlackWorkspaceConfiguration
where
toQuery :: DeleteSlackWorkspaceConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteSlackWorkspaceConfigurationResponse = DeleteSlackWorkspaceConfigurationResponse'
{
DeleteSlackWorkspaceConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteSlackWorkspaceConfigurationResponse
-> DeleteSlackWorkspaceConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteSlackWorkspaceConfigurationResponse
-> DeleteSlackWorkspaceConfigurationResponse -> Bool
$c/= :: DeleteSlackWorkspaceConfigurationResponse
-> DeleteSlackWorkspaceConfigurationResponse -> Bool
== :: DeleteSlackWorkspaceConfigurationResponse
-> DeleteSlackWorkspaceConfigurationResponse -> Bool
$c== :: DeleteSlackWorkspaceConfigurationResponse
-> DeleteSlackWorkspaceConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [DeleteSlackWorkspaceConfigurationResponse]
ReadPrec DeleteSlackWorkspaceConfigurationResponse
Int -> ReadS DeleteSlackWorkspaceConfigurationResponse
ReadS [DeleteSlackWorkspaceConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteSlackWorkspaceConfigurationResponse]
$creadListPrec :: ReadPrec [DeleteSlackWorkspaceConfigurationResponse]
readPrec :: ReadPrec DeleteSlackWorkspaceConfigurationResponse
$creadPrec :: ReadPrec DeleteSlackWorkspaceConfigurationResponse
readList :: ReadS [DeleteSlackWorkspaceConfigurationResponse]
$creadList :: ReadS [DeleteSlackWorkspaceConfigurationResponse]
readsPrec :: Int -> ReadS DeleteSlackWorkspaceConfigurationResponse
$creadsPrec :: Int -> ReadS DeleteSlackWorkspaceConfigurationResponse
Prelude.Read, Int -> DeleteSlackWorkspaceConfigurationResponse -> ShowS
[DeleteSlackWorkspaceConfigurationResponse] -> ShowS
DeleteSlackWorkspaceConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteSlackWorkspaceConfigurationResponse] -> ShowS
$cshowList :: [DeleteSlackWorkspaceConfigurationResponse] -> ShowS
show :: DeleteSlackWorkspaceConfigurationResponse -> String
$cshow :: DeleteSlackWorkspaceConfigurationResponse -> String
showsPrec :: Int -> DeleteSlackWorkspaceConfigurationResponse -> ShowS
$cshowsPrec :: Int -> DeleteSlackWorkspaceConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteSlackWorkspaceConfigurationResponse x
-> DeleteSlackWorkspaceConfigurationResponse
forall x.
DeleteSlackWorkspaceConfigurationResponse
-> Rep DeleteSlackWorkspaceConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteSlackWorkspaceConfigurationResponse x
-> DeleteSlackWorkspaceConfigurationResponse
$cfrom :: forall x.
DeleteSlackWorkspaceConfigurationResponse
-> Rep DeleteSlackWorkspaceConfigurationResponse x
Prelude.Generic)
newDeleteSlackWorkspaceConfigurationResponse ::
Prelude.Int ->
DeleteSlackWorkspaceConfigurationResponse
newDeleteSlackWorkspaceConfigurationResponse :: Int -> DeleteSlackWorkspaceConfigurationResponse
newDeleteSlackWorkspaceConfigurationResponse
Int
pHttpStatus_ =
DeleteSlackWorkspaceConfigurationResponse'
{ $sel:httpStatus:DeleteSlackWorkspaceConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
deleteSlackWorkspaceConfigurationResponse_httpStatus :: Lens.Lens' DeleteSlackWorkspaceConfigurationResponse Prelude.Int
deleteSlackWorkspaceConfigurationResponse_httpStatus :: Lens' DeleteSlackWorkspaceConfigurationResponse Int
deleteSlackWorkspaceConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteSlackWorkspaceConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteSlackWorkspaceConfigurationResponse' :: DeleteSlackWorkspaceConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteSlackWorkspaceConfigurationResponse
s@DeleteSlackWorkspaceConfigurationResponse' {} Int
a -> DeleteSlackWorkspaceConfigurationResponse
s {$sel:httpStatus:DeleteSlackWorkspaceConfigurationResponse' :: Int
httpStatus = Int
a} :: DeleteSlackWorkspaceConfigurationResponse)
instance
Prelude.NFData
DeleteSlackWorkspaceConfigurationResponse
where
rnf :: DeleteSlackWorkspaceConfigurationResponse -> ()
rnf DeleteSlackWorkspaceConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteSlackWorkspaceConfigurationResponse' :: DeleteSlackWorkspaceConfigurationResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus