{-# 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.DeregisterElasticIp
(
DeregisterElasticIp (..),
newDeregisterElasticIp,
deregisterElasticIp_elasticIp,
DeregisterElasticIpResponse (..),
newDeregisterElasticIpResponse,
)
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 DeregisterElasticIp = DeregisterElasticIp'
{
DeregisterElasticIp -> Text
elasticIp :: Prelude.Text
}
deriving (DeregisterElasticIp -> DeregisterElasticIp -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeregisterElasticIp -> DeregisterElasticIp -> Bool
$c/= :: DeregisterElasticIp -> DeregisterElasticIp -> Bool
== :: DeregisterElasticIp -> DeregisterElasticIp -> Bool
$c== :: DeregisterElasticIp -> DeregisterElasticIp -> Bool
Prelude.Eq, ReadPrec [DeregisterElasticIp]
ReadPrec DeregisterElasticIp
Int -> ReadS DeregisterElasticIp
ReadS [DeregisterElasticIp]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeregisterElasticIp]
$creadListPrec :: ReadPrec [DeregisterElasticIp]
readPrec :: ReadPrec DeregisterElasticIp
$creadPrec :: ReadPrec DeregisterElasticIp
readList :: ReadS [DeregisterElasticIp]
$creadList :: ReadS [DeregisterElasticIp]
readsPrec :: Int -> ReadS DeregisterElasticIp
$creadsPrec :: Int -> ReadS DeregisterElasticIp
Prelude.Read, Int -> DeregisterElasticIp -> ShowS
[DeregisterElasticIp] -> ShowS
DeregisterElasticIp -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeregisterElasticIp] -> ShowS
$cshowList :: [DeregisterElasticIp] -> ShowS
show :: DeregisterElasticIp -> String
$cshow :: DeregisterElasticIp -> String
showsPrec :: Int -> DeregisterElasticIp -> ShowS
$cshowsPrec :: Int -> DeregisterElasticIp -> ShowS
Prelude.Show, forall x. Rep DeregisterElasticIp x -> DeregisterElasticIp
forall x. DeregisterElasticIp -> Rep DeregisterElasticIp x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeregisterElasticIp x -> DeregisterElasticIp
$cfrom :: forall x. DeregisterElasticIp -> Rep DeregisterElasticIp x
Prelude.Generic)
newDeregisterElasticIp ::
Prelude.Text ->
DeregisterElasticIp
newDeregisterElasticIp :: Text -> DeregisterElasticIp
newDeregisterElasticIp Text
pElasticIp_ =
DeregisterElasticIp' {$sel:elasticIp:DeregisterElasticIp' :: Text
elasticIp = Text
pElasticIp_}
deregisterElasticIp_elasticIp :: Lens.Lens' DeregisterElasticIp Prelude.Text
deregisterElasticIp_elasticIp :: Lens' DeregisterElasticIp Text
deregisterElasticIp_elasticIp = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterElasticIp' {Text
elasticIp :: Text
$sel:elasticIp:DeregisterElasticIp' :: DeregisterElasticIp -> Text
elasticIp} -> Text
elasticIp) (\s :: DeregisterElasticIp
s@DeregisterElasticIp' {} Text
a -> DeregisterElasticIp
s {$sel:elasticIp:DeregisterElasticIp' :: Text
elasticIp = Text
a} :: DeregisterElasticIp)
instance Core.AWSRequest DeregisterElasticIp where
type
AWSResponse DeregisterElasticIp =
DeregisterElasticIpResponse
request :: (Service -> Service)
-> DeregisterElasticIp -> Request DeregisterElasticIp
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 DeregisterElasticIp
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeregisterElasticIp)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeregisterElasticIpResponse
DeregisterElasticIpResponse'
instance Prelude.Hashable DeregisterElasticIp where
hashWithSalt :: Int -> DeregisterElasticIp -> Int
hashWithSalt Int
_salt DeregisterElasticIp' {Text
elasticIp :: Text
$sel:elasticIp:DeregisterElasticIp' :: DeregisterElasticIp -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
elasticIp
instance Prelude.NFData DeregisterElasticIp where
rnf :: DeregisterElasticIp -> ()
rnf DeregisterElasticIp' {Text
elasticIp :: Text
$sel:elasticIp:DeregisterElasticIp' :: DeregisterElasticIp -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
elasticIp
instance Data.ToHeaders DeregisterElasticIp where
toHeaders :: DeregisterElasticIp -> [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.DeregisterElasticIp" ::
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 DeregisterElasticIp where
toJSON :: DeregisterElasticIp -> Value
toJSON DeregisterElasticIp' {Text
elasticIp :: Text
$sel:elasticIp:DeregisterElasticIp' :: DeregisterElasticIp -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"ElasticIp" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
elasticIp)]
)
instance Data.ToPath DeregisterElasticIp where
toPath :: DeregisterElasticIp -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeregisterElasticIp where
toQuery :: DeregisterElasticIp -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeregisterElasticIpResponse = DeregisterElasticIpResponse'
{
}
deriving (DeregisterElasticIpResponse -> DeregisterElasticIpResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeregisterElasticIpResponse -> DeregisterElasticIpResponse -> Bool
$c/= :: DeregisterElasticIpResponse -> DeregisterElasticIpResponse -> Bool
== :: DeregisterElasticIpResponse -> DeregisterElasticIpResponse -> Bool
$c== :: DeregisterElasticIpResponse -> DeregisterElasticIpResponse -> Bool
Prelude.Eq, ReadPrec [DeregisterElasticIpResponse]
ReadPrec DeregisterElasticIpResponse
Int -> ReadS DeregisterElasticIpResponse
ReadS [DeregisterElasticIpResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeregisterElasticIpResponse]
$creadListPrec :: ReadPrec [DeregisterElasticIpResponse]
readPrec :: ReadPrec DeregisterElasticIpResponse
$creadPrec :: ReadPrec DeregisterElasticIpResponse
readList :: ReadS [DeregisterElasticIpResponse]
$creadList :: ReadS [DeregisterElasticIpResponse]
readsPrec :: Int -> ReadS DeregisterElasticIpResponse
$creadsPrec :: Int -> ReadS DeregisterElasticIpResponse
Prelude.Read, Int -> DeregisterElasticIpResponse -> ShowS
[DeregisterElasticIpResponse] -> ShowS
DeregisterElasticIpResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeregisterElasticIpResponse] -> ShowS
$cshowList :: [DeregisterElasticIpResponse] -> ShowS
show :: DeregisterElasticIpResponse -> String
$cshow :: DeregisterElasticIpResponse -> String
showsPrec :: Int -> DeregisterElasticIpResponse -> ShowS
$cshowsPrec :: Int -> DeregisterElasticIpResponse -> ShowS
Prelude.Show, forall x.
Rep DeregisterElasticIpResponse x -> DeregisterElasticIpResponse
forall x.
DeregisterElasticIpResponse -> Rep DeregisterElasticIpResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeregisterElasticIpResponse x -> DeregisterElasticIpResponse
$cfrom :: forall x.
DeregisterElasticIpResponse -> Rep DeregisterElasticIpResponse x
Prelude.Generic)
newDeregisterElasticIpResponse ::
DeregisterElasticIpResponse
newDeregisterElasticIpResponse :: DeregisterElasticIpResponse
newDeregisterElasticIpResponse =
DeregisterElasticIpResponse
DeregisterElasticIpResponse'
instance Prelude.NFData DeregisterElasticIpResponse where
rnf :: DeregisterElasticIpResponse -> ()
rnf DeregisterElasticIpResponse
_ = ()