{-# 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.WorkSpaces.DisassociateConnectionAlias
(
DisassociateConnectionAlias (..),
newDisassociateConnectionAlias,
disassociateConnectionAlias_aliasId,
DisassociateConnectionAliasResponse (..),
newDisassociateConnectionAliasResponse,
disassociateConnectionAliasResponse_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.WorkSpaces.Types
data DisassociateConnectionAlias = DisassociateConnectionAlias'
{
DisassociateConnectionAlias -> Text
aliasId :: Prelude.Text
}
deriving (DisassociateConnectionAlias -> DisassociateConnectionAlias -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateConnectionAlias -> DisassociateConnectionAlias -> Bool
$c/= :: DisassociateConnectionAlias -> DisassociateConnectionAlias -> Bool
== :: DisassociateConnectionAlias -> DisassociateConnectionAlias -> Bool
$c== :: DisassociateConnectionAlias -> DisassociateConnectionAlias -> Bool
Prelude.Eq, ReadPrec [DisassociateConnectionAlias]
ReadPrec DisassociateConnectionAlias
Int -> ReadS DisassociateConnectionAlias
ReadS [DisassociateConnectionAlias]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateConnectionAlias]
$creadListPrec :: ReadPrec [DisassociateConnectionAlias]
readPrec :: ReadPrec DisassociateConnectionAlias
$creadPrec :: ReadPrec DisassociateConnectionAlias
readList :: ReadS [DisassociateConnectionAlias]
$creadList :: ReadS [DisassociateConnectionAlias]
readsPrec :: Int -> ReadS DisassociateConnectionAlias
$creadsPrec :: Int -> ReadS DisassociateConnectionAlias
Prelude.Read, Int -> DisassociateConnectionAlias -> ShowS
[DisassociateConnectionAlias] -> ShowS
DisassociateConnectionAlias -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateConnectionAlias] -> ShowS
$cshowList :: [DisassociateConnectionAlias] -> ShowS
show :: DisassociateConnectionAlias -> String
$cshow :: DisassociateConnectionAlias -> String
showsPrec :: Int -> DisassociateConnectionAlias -> ShowS
$cshowsPrec :: Int -> DisassociateConnectionAlias -> ShowS
Prelude.Show, forall x.
Rep DisassociateConnectionAlias x -> DisassociateConnectionAlias
forall x.
DisassociateConnectionAlias -> Rep DisassociateConnectionAlias x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateConnectionAlias x -> DisassociateConnectionAlias
$cfrom :: forall x.
DisassociateConnectionAlias -> Rep DisassociateConnectionAlias x
Prelude.Generic)
newDisassociateConnectionAlias ::
Prelude.Text ->
DisassociateConnectionAlias
newDisassociateConnectionAlias :: Text -> DisassociateConnectionAlias
newDisassociateConnectionAlias Text
pAliasId_ =
DisassociateConnectionAlias' {$sel:aliasId:DisassociateConnectionAlias' :: Text
aliasId = Text
pAliasId_}
disassociateConnectionAlias_aliasId :: Lens.Lens' DisassociateConnectionAlias Prelude.Text
disassociateConnectionAlias_aliasId :: Lens' DisassociateConnectionAlias Text
disassociateConnectionAlias_aliasId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateConnectionAlias' {Text
aliasId :: Text
$sel:aliasId:DisassociateConnectionAlias' :: DisassociateConnectionAlias -> Text
aliasId} -> Text
aliasId) (\s :: DisassociateConnectionAlias
s@DisassociateConnectionAlias' {} Text
a -> DisassociateConnectionAlias
s {$sel:aliasId:DisassociateConnectionAlias' :: Text
aliasId = Text
a} :: DisassociateConnectionAlias)
instance Core.AWSRequest DisassociateConnectionAlias where
type
AWSResponse DisassociateConnectionAlias =
DisassociateConnectionAliasResponse
request :: (Service -> Service)
-> DisassociateConnectionAlias
-> Request DisassociateConnectionAlias
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 DisassociateConnectionAlias
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DisassociateConnectionAlias)))
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 -> DisassociateConnectionAliasResponse
DisassociateConnectionAliasResponse'
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 DisassociateConnectionAlias where
hashWithSalt :: Int -> DisassociateConnectionAlias -> Int
hashWithSalt Int
_salt DisassociateConnectionAlias' {Text
aliasId :: Text
$sel:aliasId:DisassociateConnectionAlias' :: DisassociateConnectionAlias -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
aliasId
instance Prelude.NFData DisassociateConnectionAlias where
rnf :: DisassociateConnectionAlias -> ()
rnf DisassociateConnectionAlias' {Text
aliasId :: Text
$sel:aliasId:DisassociateConnectionAlias' :: DisassociateConnectionAlias -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
aliasId
instance Data.ToHeaders DisassociateConnectionAlias where
toHeaders :: DisassociateConnectionAlias -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"WorkspacesService.DisassociateConnectionAlias" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DisassociateConnectionAlias where
toJSON :: DisassociateConnectionAlias -> Value
toJSON DisassociateConnectionAlias' {Text
aliasId :: Text
$sel:aliasId:DisassociateConnectionAlias' :: DisassociateConnectionAlias -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"AliasId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
aliasId)]
)
instance Data.ToPath DisassociateConnectionAlias where
toPath :: DisassociateConnectionAlias -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DisassociateConnectionAlias where
toQuery :: DisassociateConnectionAlias -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DisassociateConnectionAliasResponse = DisassociateConnectionAliasResponse'
{
DisassociateConnectionAliasResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DisassociateConnectionAliasResponse
-> DisassociateConnectionAliasResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DisassociateConnectionAliasResponse
-> DisassociateConnectionAliasResponse -> Bool
$c/= :: DisassociateConnectionAliasResponse
-> DisassociateConnectionAliasResponse -> Bool
== :: DisassociateConnectionAliasResponse
-> DisassociateConnectionAliasResponse -> Bool
$c== :: DisassociateConnectionAliasResponse
-> DisassociateConnectionAliasResponse -> Bool
Prelude.Eq, ReadPrec [DisassociateConnectionAliasResponse]
ReadPrec DisassociateConnectionAliasResponse
Int -> ReadS DisassociateConnectionAliasResponse
ReadS [DisassociateConnectionAliasResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DisassociateConnectionAliasResponse]
$creadListPrec :: ReadPrec [DisassociateConnectionAliasResponse]
readPrec :: ReadPrec DisassociateConnectionAliasResponse
$creadPrec :: ReadPrec DisassociateConnectionAliasResponse
readList :: ReadS [DisassociateConnectionAliasResponse]
$creadList :: ReadS [DisassociateConnectionAliasResponse]
readsPrec :: Int -> ReadS DisassociateConnectionAliasResponse
$creadsPrec :: Int -> ReadS DisassociateConnectionAliasResponse
Prelude.Read, Int -> DisassociateConnectionAliasResponse -> ShowS
[DisassociateConnectionAliasResponse] -> ShowS
DisassociateConnectionAliasResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DisassociateConnectionAliasResponse] -> ShowS
$cshowList :: [DisassociateConnectionAliasResponse] -> ShowS
show :: DisassociateConnectionAliasResponse -> String
$cshow :: DisassociateConnectionAliasResponse -> String
showsPrec :: Int -> DisassociateConnectionAliasResponse -> ShowS
$cshowsPrec :: Int -> DisassociateConnectionAliasResponse -> ShowS
Prelude.Show, forall x.
Rep DisassociateConnectionAliasResponse x
-> DisassociateConnectionAliasResponse
forall x.
DisassociateConnectionAliasResponse
-> Rep DisassociateConnectionAliasResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DisassociateConnectionAliasResponse x
-> DisassociateConnectionAliasResponse
$cfrom :: forall x.
DisassociateConnectionAliasResponse
-> Rep DisassociateConnectionAliasResponse x
Prelude.Generic)
newDisassociateConnectionAliasResponse ::
Prelude.Int ->
DisassociateConnectionAliasResponse
newDisassociateConnectionAliasResponse :: Int -> DisassociateConnectionAliasResponse
newDisassociateConnectionAliasResponse Int
pHttpStatus_ =
DisassociateConnectionAliasResponse'
{ $sel:httpStatus:DisassociateConnectionAliasResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
disassociateConnectionAliasResponse_httpStatus :: Lens.Lens' DisassociateConnectionAliasResponse Prelude.Int
disassociateConnectionAliasResponse_httpStatus :: Lens' DisassociateConnectionAliasResponse Int
disassociateConnectionAliasResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DisassociateConnectionAliasResponse' {Int
httpStatus :: Int
$sel:httpStatus:DisassociateConnectionAliasResponse' :: DisassociateConnectionAliasResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DisassociateConnectionAliasResponse
s@DisassociateConnectionAliasResponse' {} Int
a -> DisassociateConnectionAliasResponse
s {$sel:httpStatus:DisassociateConnectionAliasResponse' :: Int
httpStatus = Int
a} :: DisassociateConnectionAliasResponse)
instance
Prelude.NFData
DisassociateConnectionAliasResponse
where
rnf :: DisassociateConnectionAliasResponse -> ()
rnf DisassociateConnectionAliasResponse' {Int
httpStatus :: Int
$sel:httpStatus:DisassociateConnectionAliasResponse' :: DisassociateConnectionAliasResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus