{-# 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.Connect.DeleteQuickConnect
(
DeleteQuickConnect (..),
newDeleteQuickConnect,
deleteQuickConnect_instanceId,
deleteQuickConnect_quickConnectId,
DeleteQuickConnectResponse (..),
newDeleteQuickConnectResponse,
)
where
import Amazonka.Connect.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 DeleteQuickConnect = DeleteQuickConnect'
{
DeleteQuickConnect -> Text
instanceId :: Prelude.Text,
DeleteQuickConnect -> Text
quickConnectId :: Prelude.Text
}
deriving (DeleteQuickConnect -> DeleteQuickConnect -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteQuickConnect -> DeleteQuickConnect -> Bool
$c/= :: DeleteQuickConnect -> DeleteQuickConnect -> Bool
== :: DeleteQuickConnect -> DeleteQuickConnect -> Bool
$c== :: DeleteQuickConnect -> DeleteQuickConnect -> Bool
Prelude.Eq, ReadPrec [DeleteQuickConnect]
ReadPrec DeleteQuickConnect
Int -> ReadS DeleteQuickConnect
ReadS [DeleteQuickConnect]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteQuickConnect]
$creadListPrec :: ReadPrec [DeleteQuickConnect]
readPrec :: ReadPrec DeleteQuickConnect
$creadPrec :: ReadPrec DeleteQuickConnect
readList :: ReadS [DeleteQuickConnect]
$creadList :: ReadS [DeleteQuickConnect]
readsPrec :: Int -> ReadS DeleteQuickConnect
$creadsPrec :: Int -> ReadS DeleteQuickConnect
Prelude.Read, Int -> DeleteQuickConnect -> ShowS
[DeleteQuickConnect] -> ShowS
DeleteQuickConnect -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteQuickConnect] -> ShowS
$cshowList :: [DeleteQuickConnect] -> ShowS
show :: DeleteQuickConnect -> String
$cshow :: DeleteQuickConnect -> String
showsPrec :: Int -> DeleteQuickConnect -> ShowS
$cshowsPrec :: Int -> DeleteQuickConnect -> ShowS
Prelude.Show, forall x. Rep DeleteQuickConnect x -> DeleteQuickConnect
forall x. DeleteQuickConnect -> Rep DeleteQuickConnect x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteQuickConnect x -> DeleteQuickConnect
$cfrom :: forall x. DeleteQuickConnect -> Rep DeleteQuickConnect x
Prelude.Generic)
newDeleteQuickConnect ::
Prelude.Text ->
Prelude.Text ->
DeleteQuickConnect
newDeleteQuickConnect :: Text -> Text -> DeleteQuickConnect
newDeleteQuickConnect Text
pInstanceId_ Text
pQuickConnectId_ =
DeleteQuickConnect'
{ $sel:instanceId:DeleteQuickConnect' :: Text
instanceId = Text
pInstanceId_,
$sel:quickConnectId:DeleteQuickConnect' :: Text
quickConnectId = Text
pQuickConnectId_
}
deleteQuickConnect_instanceId :: Lens.Lens' DeleteQuickConnect Prelude.Text
deleteQuickConnect_instanceId :: Lens' DeleteQuickConnect Text
deleteQuickConnect_instanceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteQuickConnect' {Text
instanceId :: Text
$sel:instanceId:DeleteQuickConnect' :: DeleteQuickConnect -> Text
instanceId} -> Text
instanceId) (\s :: DeleteQuickConnect
s@DeleteQuickConnect' {} Text
a -> DeleteQuickConnect
s {$sel:instanceId:DeleteQuickConnect' :: Text
instanceId = Text
a} :: DeleteQuickConnect)
deleteQuickConnect_quickConnectId :: Lens.Lens' DeleteQuickConnect Prelude.Text
deleteQuickConnect_quickConnectId :: Lens' DeleteQuickConnect Text
deleteQuickConnect_quickConnectId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteQuickConnect' {Text
quickConnectId :: Text
$sel:quickConnectId:DeleteQuickConnect' :: DeleteQuickConnect -> Text
quickConnectId} -> Text
quickConnectId) (\s :: DeleteQuickConnect
s@DeleteQuickConnect' {} Text
a -> DeleteQuickConnect
s {$sel:quickConnectId:DeleteQuickConnect' :: Text
quickConnectId = Text
a} :: DeleteQuickConnect)
instance Core.AWSRequest DeleteQuickConnect where
type
AWSResponse DeleteQuickConnect =
DeleteQuickConnectResponse
request :: (Service -> Service)
-> DeleteQuickConnect -> Request DeleteQuickConnect
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 DeleteQuickConnect
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteQuickConnect)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeleteQuickConnectResponse
DeleteQuickConnectResponse'
instance Prelude.Hashable DeleteQuickConnect where
hashWithSalt :: Int -> DeleteQuickConnect -> Int
hashWithSalt Int
_salt DeleteQuickConnect' {Text
quickConnectId :: Text
instanceId :: Text
$sel:quickConnectId:DeleteQuickConnect' :: DeleteQuickConnect -> Text
$sel:instanceId:DeleteQuickConnect' :: DeleteQuickConnect -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
instanceId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
quickConnectId
instance Prelude.NFData DeleteQuickConnect where
rnf :: DeleteQuickConnect -> ()
rnf DeleteQuickConnect' {Text
quickConnectId :: Text
instanceId :: Text
$sel:quickConnectId:DeleteQuickConnect' :: DeleteQuickConnect -> Text
$sel:instanceId:DeleteQuickConnect' :: DeleteQuickConnect -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
instanceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
quickConnectId
instance Data.ToHeaders DeleteQuickConnect where
toHeaders :: DeleteQuickConnect -> [Header]
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 -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DeleteQuickConnect where
toPath :: DeleteQuickConnect -> ByteString
toPath DeleteQuickConnect' {Text
quickConnectId :: Text
instanceId :: Text
$sel:quickConnectId:DeleteQuickConnect' :: DeleteQuickConnect -> Text
$sel:instanceId:DeleteQuickConnect' :: DeleteQuickConnect -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/quick-connects/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
instanceId,
ByteString
"/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
quickConnectId
]
instance Data.ToQuery DeleteQuickConnect where
toQuery :: DeleteQuickConnect -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteQuickConnectResponse = DeleteQuickConnectResponse'
{
}
deriving (DeleteQuickConnectResponse -> DeleteQuickConnectResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteQuickConnectResponse -> DeleteQuickConnectResponse -> Bool
$c/= :: DeleteQuickConnectResponse -> DeleteQuickConnectResponse -> Bool
== :: DeleteQuickConnectResponse -> DeleteQuickConnectResponse -> Bool
$c== :: DeleteQuickConnectResponse -> DeleteQuickConnectResponse -> Bool
Prelude.Eq, ReadPrec [DeleteQuickConnectResponse]
ReadPrec DeleteQuickConnectResponse
Int -> ReadS DeleteQuickConnectResponse
ReadS [DeleteQuickConnectResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteQuickConnectResponse]
$creadListPrec :: ReadPrec [DeleteQuickConnectResponse]
readPrec :: ReadPrec DeleteQuickConnectResponse
$creadPrec :: ReadPrec DeleteQuickConnectResponse
readList :: ReadS [DeleteQuickConnectResponse]
$creadList :: ReadS [DeleteQuickConnectResponse]
readsPrec :: Int -> ReadS DeleteQuickConnectResponse
$creadsPrec :: Int -> ReadS DeleteQuickConnectResponse
Prelude.Read, Int -> DeleteQuickConnectResponse -> ShowS
[DeleteQuickConnectResponse] -> ShowS
DeleteQuickConnectResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteQuickConnectResponse] -> ShowS
$cshowList :: [DeleteQuickConnectResponse] -> ShowS
show :: DeleteQuickConnectResponse -> String
$cshow :: DeleteQuickConnectResponse -> String
showsPrec :: Int -> DeleteQuickConnectResponse -> ShowS
$cshowsPrec :: Int -> DeleteQuickConnectResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteQuickConnectResponse x -> DeleteQuickConnectResponse
forall x.
DeleteQuickConnectResponse -> Rep DeleteQuickConnectResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteQuickConnectResponse x -> DeleteQuickConnectResponse
$cfrom :: forall x.
DeleteQuickConnectResponse -> Rep DeleteQuickConnectResponse x
Prelude.Generic)
newDeleteQuickConnectResponse ::
DeleteQuickConnectResponse
newDeleteQuickConnectResponse :: DeleteQuickConnectResponse
newDeleteQuickConnectResponse =
DeleteQuickConnectResponse
DeleteQuickConnectResponse'
instance Prelude.NFData DeleteQuickConnectResponse where
rnf :: DeleteQuickConnectResponse -> ()
rnf DeleteQuickConnectResponse
_ = ()