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