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