{-# 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.OpsWorks.DetachElasticLoadBalancer
(
DetachElasticLoadBalancer (..),
newDetachElasticLoadBalancer,
detachElasticLoadBalancer_elasticLoadBalancerName,
detachElasticLoadBalancer_layerId,
DetachElasticLoadBalancerResponse (..),
newDetachElasticLoadBalancerResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.OpsWorks.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DetachElasticLoadBalancer = DetachElasticLoadBalancer'
{
DetachElasticLoadBalancer -> Text
elasticLoadBalancerName :: Prelude.Text,
DetachElasticLoadBalancer -> Text
layerId :: Prelude.Text
}
deriving (DetachElasticLoadBalancer -> DetachElasticLoadBalancer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DetachElasticLoadBalancer -> DetachElasticLoadBalancer -> Bool
$c/= :: DetachElasticLoadBalancer -> DetachElasticLoadBalancer -> Bool
== :: DetachElasticLoadBalancer -> DetachElasticLoadBalancer -> Bool
$c== :: DetachElasticLoadBalancer -> DetachElasticLoadBalancer -> Bool
Prelude.Eq, ReadPrec [DetachElasticLoadBalancer]
ReadPrec DetachElasticLoadBalancer
Int -> ReadS DetachElasticLoadBalancer
ReadS [DetachElasticLoadBalancer]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DetachElasticLoadBalancer]
$creadListPrec :: ReadPrec [DetachElasticLoadBalancer]
readPrec :: ReadPrec DetachElasticLoadBalancer
$creadPrec :: ReadPrec DetachElasticLoadBalancer
readList :: ReadS [DetachElasticLoadBalancer]
$creadList :: ReadS [DetachElasticLoadBalancer]
readsPrec :: Int -> ReadS DetachElasticLoadBalancer
$creadsPrec :: Int -> ReadS DetachElasticLoadBalancer
Prelude.Read, Int -> DetachElasticLoadBalancer -> ShowS
[DetachElasticLoadBalancer] -> ShowS
DetachElasticLoadBalancer -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DetachElasticLoadBalancer] -> ShowS
$cshowList :: [DetachElasticLoadBalancer] -> ShowS
show :: DetachElasticLoadBalancer -> String
$cshow :: DetachElasticLoadBalancer -> String
showsPrec :: Int -> DetachElasticLoadBalancer -> ShowS
$cshowsPrec :: Int -> DetachElasticLoadBalancer -> ShowS
Prelude.Show, forall x.
Rep DetachElasticLoadBalancer x -> DetachElasticLoadBalancer
forall x.
DetachElasticLoadBalancer -> Rep DetachElasticLoadBalancer x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DetachElasticLoadBalancer x -> DetachElasticLoadBalancer
$cfrom :: forall x.
DetachElasticLoadBalancer -> Rep DetachElasticLoadBalancer x
Prelude.Generic)
newDetachElasticLoadBalancer ::
Prelude.Text ->
Prelude.Text ->
DetachElasticLoadBalancer
newDetachElasticLoadBalancer :: Text -> Text -> DetachElasticLoadBalancer
newDetachElasticLoadBalancer
Text
pElasticLoadBalancerName_
Text
pLayerId_ =
DetachElasticLoadBalancer'
{ $sel:elasticLoadBalancerName:DetachElasticLoadBalancer' :: Text
elasticLoadBalancerName =
Text
pElasticLoadBalancerName_,
$sel:layerId:DetachElasticLoadBalancer' :: Text
layerId = Text
pLayerId_
}
detachElasticLoadBalancer_elasticLoadBalancerName :: Lens.Lens' DetachElasticLoadBalancer Prelude.Text
detachElasticLoadBalancer_elasticLoadBalancerName :: Lens' DetachElasticLoadBalancer Text
detachElasticLoadBalancer_elasticLoadBalancerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DetachElasticLoadBalancer' {Text
elasticLoadBalancerName :: Text
$sel:elasticLoadBalancerName:DetachElasticLoadBalancer' :: DetachElasticLoadBalancer -> Text
elasticLoadBalancerName} -> Text
elasticLoadBalancerName) (\s :: DetachElasticLoadBalancer
s@DetachElasticLoadBalancer' {} Text
a -> DetachElasticLoadBalancer
s {$sel:elasticLoadBalancerName:DetachElasticLoadBalancer' :: Text
elasticLoadBalancerName = Text
a} :: DetachElasticLoadBalancer)
detachElasticLoadBalancer_layerId :: Lens.Lens' DetachElasticLoadBalancer Prelude.Text
detachElasticLoadBalancer_layerId :: Lens' DetachElasticLoadBalancer Text
detachElasticLoadBalancer_layerId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DetachElasticLoadBalancer' {Text
layerId :: Text
$sel:layerId:DetachElasticLoadBalancer' :: DetachElasticLoadBalancer -> Text
layerId} -> Text
layerId) (\s :: DetachElasticLoadBalancer
s@DetachElasticLoadBalancer' {} Text
a -> DetachElasticLoadBalancer
s {$sel:layerId:DetachElasticLoadBalancer' :: Text
layerId = Text
a} :: DetachElasticLoadBalancer)
instance Core.AWSRequest DetachElasticLoadBalancer where
type
AWSResponse DetachElasticLoadBalancer =
DetachElasticLoadBalancerResponse
request :: (Service -> Service)
-> DetachElasticLoadBalancer -> Request DetachElasticLoadBalancer
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 DetachElasticLoadBalancer
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DetachElasticLoadBalancer)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
DetachElasticLoadBalancerResponse
DetachElasticLoadBalancerResponse'
instance Prelude.Hashable DetachElasticLoadBalancer where
hashWithSalt :: Int -> DetachElasticLoadBalancer -> Int
hashWithSalt Int
_salt DetachElasticLoadBalancer' {Text
layerId :: Text
elasticLoadBalancerName :: Text
$sel:layerId:DetachElasticLoadBalancer' :: DetachElasticLoadBalancer -> Text
$sel:elasticLoadBalancerName:DetachElasticLoadBalancer' :: DetachElasticLoadBalancer -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
elasticLoadBalancerName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
layerId
instance Prelude.NFData DetachElasticLoadBalancer where
rnf :: DetachElasticLoadBalancer -> ()
rnf DetachElasticLoadBalancer' {Text
layerId :: Text
elasticLoadBalancerName :: Text
$sel:layerId:DetachElasticLoadBalancer' :: DetachElasticLoadBalancer -> Text
$sel:elasticLoadBalancerName:DetachElasticLoadBalancer' :: DetachElasticLoadBalancer -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
elasticLoadBalancerName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
layerId
instance Data.ToHeaders DetachElasticLoadBalancer where
toHeaders :: DetachElasticLoadBalancer -> [Header]
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 -> [Header]
Data.=# ( ByteString
"OpsWorks_20130218.DetachElasticLoadBalancer" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DetachElasticLoadBalancer where
toJSON :: DetachElasticLoadBalancer -> Value
toJSON DetachElasticLoadBalancer' {Text
layerId :: Text
elasticLoadBalancerName :: Text
$sel:layerId:DetachElasticLoadBalancer' :: DetachElasticLoadBalancer -> Text
$sel:elasticLoadBalancerName:DetachElasticLoadBalancer' :: DetachElasticLoadBalancer -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"ElasticLoadBalancerName"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
elasticLoadBalancerName
),
forall a. a -> Maybe a
Prelude.Just (Key
"LayerId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
layerId)
]
)
instance Data.ToPath DetachElasticLoadBalancer where
toPath :: DetachElasticLoadBalancer -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DetachElasticLoadBalancer where
toQuery :: DetachElasticLoadBalancer -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DetachElasticLoadBalancerResponse = DetachElasticLoadBalancerResponse'
{
}
deriving (DetachElasticLoadBalancerResponse
-> DetachElasticLoadBalancerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DetachElasticLoadBalancerResponse
-> DetachElasticLoadBalancerResponse -> Bool
$c/= :: DetachElasticLoadBalancerResponse
-> DetachElasticLoadBalancerResponse -> Bool
== :: DetachElasticLoadBalancerResponse
-> DetachElasticLoadBalancerResponse -> Bool
$c== :: DetachElasticLoadBalancerResponse
-> DetachElasticLoadBalancerResponse -> Bool
Prelude.Eq, ReadPrec [DetachElasticLoadBalancerResponse]
ReadPrec DetachElasticLoadBalancerResponse
Int -> ReadS DetachElasticLoadBalancerResponse
ReadS [DetachElasticLoadBalancerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DetachElasticLoadBalancerResponse]
$creadListPrec :: ReadPrec [DetachElasticLoadBalancerResponse]
readPrec :: ReadPrec DetachElasticLoadBalancerResponse
$creadPrec :: ReadPrec DetachElasticLoadBalancerResponse
readList :: ReadS [DetachElasticLoadBalancerResponse]
$creadList :: ReadS [DetachElasticLoadBalancerResponse]
readsPrec :: Int -> ReadS DetachElasticLoadBalancerResponse
$creadsPrec :: Int -> ReadS DetachElasticLoadBalancerResponse
Prelude.Read, Int -> DetachElasticLoadBalancerResponse -> ShowS
[DetachElasticLoadBalancerResponse] -> ShowS
DetachElasticLoadBalancerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DetachElasticLoadBalancerResponse] -> ShowS
$cshowList :: [DetachElasticLoadBalancerResponse] -> ShowS
show :: DetachElasticLoadBalancerResponse -> String
$cshow :: DetachElasticLoadBalancerResponse -> String
showsPrec :: Int -> DetachElasticLoadBalancerResponse -> ShowS
$cshowsPrec :: Int -> DetachElasticLoadBalancerResponse -> ShowS
Prelude.Show, forall x.
Rep DetachElasticLoadBalancerResponse x
-> DetachElasticLoadBalancerResponse
forall x.
DetachElasticLoadBalancerResponse
-> Rep DetachElasticLoadBalancerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DetachElasticLoadBalancerResponse x
-> DetachElasticLoadBalancerResponse
$cfrom :: forall x.
DetachElasticLoadBalancerResponse
-> Rep DetachElasticLoadBalancerResponse x
Prelude.Generic)
newDetachElasticLoadBalancerResponse ::
DetachElasticLoadBalancerResponse
newDetachElasticLoadBalancerResponse :: DetachElasticLoadBalancerResponse
newDetachElasticLoadBalancerResponse =
DetachElasticLoadBalancerResponse
DetachElasticLoadBalancerResponse'
instance
Prelude.NFData
DetachElasticLoadBalancerResponse
where
rnf :: DetachElasticLoadBalancerResponse -> ()
rnf DetachElasticLoadBalancerResponse
_ = ()