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