{-# 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 #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Amazonka.Route53AutoNaming.RegisterInstance -- Copyright : (c) 2013-2023 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Creates or updates one or more records and, optionally, creates a health -- check based on the settings in a specified service. When you submit a -- @RegisterInstance@ request, the following occurs: -- -- - For each DNS record that you define in the service that\'s specified -- by @ServiceId@, a record is created or updated in the hosted zone -- that\'s associated with the corresponding namespace. -- -- - If the service includes @HealthCheckConfig@, a health check is -- created based on the settings in the health check configuration. -- -- - The health check, if any, is associated with each of the new or -- updated records. -- -- One @RegisterInstance@ request must complete before you can submit -- another request and specify the same service ID and instance ID. -- -- For more information, see -- <https://docs.aws.amazon.com/cloud-map/latest/api/API_CreateService.html CreateService>. -- -- When Cloud Map receives a DNS query for the specified DNS name, it -- returns the applicable value: -- -- - __If the health check is healthy__: returns all the records -- -- - __If the health check is unhealthy__: returns the applicable value -- for the last healthy instance -- -- - __If you didn\'t specify a health check configuration__: returns all -- the records -- -- For the current quota on the number of instances that you can register -- using the same namespace and using the same service, see -- <https://docs.aws.amazon.com/cloud-map/latest/dg/cloud-map-limits.html Cloud Map quotas> -- in the /Cloud Map Developer Guide/. module Amazonka.Route53AutoNaming.RegisterInstance ( -- * Creating a Request RegisterInstance (..), newRegisterInstance, -- * Request Lenses registerInstance_creatorRequestId, registerInstance_serviceId, registerInstance_instanceId, registerInstance_attributes, -- * Destructuring the Response RegisterInstanceResponse (..), newRegisterInstanceResponse, -- * Response Lenses registerInstanceResponse_operationId, registerInstanceResponse_httpStatus, ) 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 -- | /See:/ 'newRegisterInstance' smart constructor. data RegisterInstance = RegisterInstance' { -- | A unique string that identifies the request and that allows failed -- @RegisterInstance@ requests to be retried without the risk of executing -- the operation twice. You must use a unique @CreatorRequestId@ string -- every time you submit a @RegisterInstance@ request if you\'re -- registering additional instances for the same namespace and service. -- @CreatorRequestId@ can be any unique string (for example, a date\/time -- stamp). RegisterInstance -> Maybe Text creatorRequestId :: Prelude.Maybe Prelude.Text, -- | The ID of the service that you want to use for settings for the -- instance. RegisterInstance -> Text serviceId :: Prelude.Text, -- | An identifier that you want to associate with the instance. Note the -- following: -- -- - If the service that\'s specified by @ServiceId@ includes settings -- for an @SRV@ record, the value of @InstanceId@ is automatically -- included as part of the value for the @SRV@ record. For more -- information, see -- <https://docs.aws.amazon.com/cloud-map/latest/api/API_DnsRecord.html#cloudmap-Type-DnsRecord-Type DnsRecord > Type>. -- -- - You can use this value to update an existing instance. -- -- - To register a new instance, you must specify a value that\'s unique -- among instances that you register by using the same service. -- -- - If you specify an existing @InstanceId@ and @ServiceId@, Cloud Map -- updates the existing DNS records, if any. If there\'s also an -- existing health check, Cloud Map deletes the old health check and -- creates a new one. -- -- The health check isn\'t deleted immediately, so it will still appear -- for a while if you submit a @ListHealthChecks@ request, for example. -- -- Do not include sensitive information in @InstanceId@ if the namespace is -- discoverable by public DNS queries and any @Type@ member of @DnsRecord@ -- for the service contains @SRV@ because the @InstanceId@ is discoverable -- by public DNS queries. RegisterInstance -> Text instanceId :: Prelude.Text, -- | A string map that contains the following information for the service -- that you specify in @ServiceId@: -- -- - The attributes that apply to the records that are defined in the -- service. -- -- - For each attribute, the applicable value. -- -- Do not include sensitive information in the attributes if the namespace -- is discoverable by public DNS queries. -- -- Supported attribute keys include the following: -- -- [AWS_ALIAS_DNS_NAME] -- If you want Cloud Map to create an Amazon Route 53 alias record that -- routes traffic to an Elastic Load Balancing load balancer, specify -- the DNS name that\'s associated with the load balancer. For -- information about how to get the DNS name, see \"DNSName\" in the -- topic -- <https://docs.aws.amazon.com/Route53/latest/APIReference/API_AliasTarget.html AliasTarget> -- in the /Route 53 API Reference/. -- -- Note the following: -- -- - The configuration for the service that\'s specified by -- @ServiceId@ must include settings for an @A@ record, an @AAAA@ -- record, or both. -- -- - In the service that\'s specified by @ServiceId@, the value of -- @RoutingPolicy@ must be @WEIGHTED@. -- -- - If the service that\'s specified by @ServiceId@ includes -- @HealthCheckConfig@ settings, Cloud Map will create the Route 53 -- health check, but it doesn\'t associate the health check with -- the alias record. -- -- - Auto naming currently doesn\'t support creating alias records -- that route traffic to Amazon Web Services resources other than -- Elastic Load Balancing load balancers. -- -- - If you specify a value for @AWS_ALIAS_DNS_NAME@, don\'t specify -- values for any of the @AWS_INSTANCE@ attributes. -- -- [AWS_EC2_INSTANCE_ID] -- /HTTP namespaces only./ The Amazon EC2 instance ID for the instance. -- If the @AWS_EC2_INSTANCE_ID@ attribute is specified, then the only -- other attribute that can be specified is @AWS_INIT_HEALTH_STATUS@. -- When the @AWS_EC2_INSTANCE_ID@ attribute is specified, then the -- @AWS_INSTANCE_IPV4@ attribute will be filled out with the primary -- private IPv4 address. -- -- [AWS_INIT_HEALTH_STATUS] -- If the service configuration includes @HealthCheckCustomConfig@, you -- can optionally use @AWS_INIT_HEALTH_STATUS@ to specify the initial -- status of the custom health check, @HEALTHY@ or @UNHEALTHY@. If you -- don\'t specify a value for @AWS_INIT_HEALTH_STATUS@, the initial -- status is @HEALTHY@. -- -- [AWS_INSTANCE_CNAME] -- If the service configuration includes a @CNAME@ record, the domain -- name that you want Route 53 to return in response to DNS queries -- (for example, @example.com@). -- -- This value is required if the service specified by @ServiceId@ -- includes settings for an @CNAME@ record. -- -- [AWS_INSTANCE_IPV4] -- If the service configuration includes an @A@ record, the IPv4 -- address that you want Route 53 to return in response to DNS queries -- (for example, @192.0.2.44@). -- -- This value is required if the service specified by @ServiceId@ -- includes settings for an @A@ record. If the service includes -- settings for an @SRV@ record, you must specify a value for -- @AWS_INSTANCE_IPV4@, @AWS_INSTANCE_IPV6@, or both. -- -- [AWS_INSTANCE_IPV6] -- If the service configuration includes an @AAAA@ record, the IPv6 -- address that you want Route 53 to return in response to DNS queries -- (for example, @2001:0db8:85a3:0000:0000:abcd:0001:2345@). -- -- This value is required if the service specified by @ServiceId@ -- includes settings for an @AAAA@ record. If the service includes -- settings for an @SRV@ record, you must specify a value for -- @AWS_INSTANCE_IPV4@, @AWS_INSTANCE_IPV6@, or both. -- -- [AWS_INSTANCE_PORT] -- If the service includes an @SRV@ record, the value that you want -- Route 53 to return for the port. -- -- If the service includes @HealthCheckConfig@, the port on the -- endpoint that you want Route 53 to send requests to. -- -- This value is required if you specified settings for an @SRV@ record -- or a Route 53 health check when you created the service. -- -- [Custom attributes] -- You can add up to 30 custom attributes. For each key-value pair, the -- maximum length of the attribute name is 255 characters, and the -- maximum length of the attribute value is 1,024 characters. The total -- size of all provided attributes (sum of all keys and values) must -- not exceed 5,000 characters. RegisterInstance -> HashMap Text Text attributes :: Prelude.HashMap Prelude.Text Prelude.Text } deriving (RegisterInstance -> RegisterInstance -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: RegisterInstance -> RegisterInstance -> Bool $c/= :: RegisterInstance -> RegisterInstance -> Bool == :: RegisterInstance -> RegisterInstance -> Bool $c== :: RegisterInstance -> RegisterInstance -> Bool Prelude.Eq, ReadPrec [RegisterInstance] ReadPrec RegisterInstance Int -> ReadS RegisterInstance ReadS [RegisterInstance] forall a. (Int -> ReadS a) -> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a readListPrec :: ReadPrec [RegisterInstance] $creadListPrec :: ReadPrec [RegisterInstance] readPrec :: ReadPrec RegisterInstance $creadPrec :: ReadPrec RegisterInstance readList :: ReadS [RegisterInstance] $creadList :: ReadS [RegisterInstance] readsPrec :: Int -> ReadS RegisterInstance $creadsPrec :: Int -> ReadS RegisterInstance Prelude.Read, Int -> RegisterInstance -> ShowS [RegisterInstance] -> ShowS RegisterInstance -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [RegisterInstance] -> ShowS $cshowList :: [RegisterInstance] -> ShowS show :: RegisterInstance -> String $cshow :: RegisterInstance -> String showsPrec :: Int -> RegisterInstance -> ShowS $cshowsPrec :: Int -> RegisterInstance -> ShowS Prelude.Show, forall x. Rep RegisterInstance x -> RegisterInstance forall x. RegisterInstance -> Rep RegisterInstance x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep RegisterInstance x -> RegisterInstance $cfrom :: forall x. RegisterInstance -> Rep RegisterInstance x Prelude.Generic) -- | -- Create a value of 'RegisterInstance' with all optional fields omitted. -- -- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields. -- -- The following record fields are available, with the corresponding lenses provided -- for backwards compatibility: -- -- 'creatorRequestId', 'registerInstance_creatorRequestId' - A unique string that identifies the request and that allows failed -- @RegisterInstance@ requests to be retried without the risk of executing -- the operation twice. You must use a unique @CreatorRequestId@ string -- every time you submit a @RegisterInstance@ request if you\'re -- registering additional instances for the same namespace and service. -- @CreatorRequestId@ can be any unique string (for example, a date\/time -- stamp). -- -- 'serviceId', 'registerInstance_serviceId' - The ID of the service that you want to use for settings for the -- instance. -- -- 'instanceId', 'registerInstance_instanceId' - An identifier that you want to associate with the instance. Note the -- following: -- -- - If the service that\'s specified by @ServiceId@ includes settings -- for an @SRV@ record, the value of @InstanceId@ is automatically -- included as part of the value for the @SRV@ record. For more -- information, see -- <https://docs.aws.amazon.com/cloud-map/latest/api/API_DnsRecord.html#cloudmap-Type-DnsRecord-Type DnsRecord > Type>. -- -- - You can use this value to update an existing instance. -- -- - To register a new instance, you must specify a value that\'s unique -- among instances that you register by using the same service. -- -- - If you specify an existing @InstanceId@ and @ServiceId@, Cloud Map -- updates the existing DNS records, if any. If there\'s also an -- existing health check, Cloud Map deletes the old health check and -- creates a new one. -- -- The health check isn\'t deleted immediately, so it will still appear -- for a while if you submit a @ListHealthChecks@ request, for example. -- -- Do not include sensitive information in @InstanceId@ if the namespace is -- discoverable by public DNS queries and any @Type@ member of @DnsRecord@ -- for the service contains @SRV@ because the @InstanceId@ is discoverable -- by public DNS queries. -- -- 'attributes', 'registerInstance_attributes' - A string map that contains the following information for the service -- that you specify in @ServiceId@: -- -- - The attributes that apply to the records that are defined in the -- service. -- -- - For each attribute, the applicable value. -- -- Do not include sensitive information in the attributes if the namespace -- is discoverable by public DNS queries. -- -- Supported attribute keys include the following: -- -- [AWS_ALIAS_DNS_NAME] -- If you want Cloud Map to create an Amazon Route 53 alias record that -- routes traffic to an Elastic Load Balancing load balancer, specify -- the DNS name that\'s associated with the load balancer. For -- information about how to get the DNS name, see \"DNSName\" in the -- topic -- <https://docs.aws.amazon.com/Route53/latest/APIReference/API_AliasTarget.html AliasTarget> -- in the /Route 53 API Reference/. -- -- Note the following: -- -- - The configuration for the service that\'s specified by -- @ServiceId@ must include settings for an @A@ record, an @AAAA@ -- record, or both. -- -- - In the service that\'s specified by @ServiceId@, the value of -- @RoutingPolicy@ must be @WEIGHTED@. -- -- - If the service that\'s specified by @ServiceId@ includes -- @HealthCheckConfig@ settings, Cloud Map will create the Route 53 -- health check, but it doesn\'t associate the health check with -- the alias record. -- -- - Auto naming currently doesn\'t support creating alias records -- that route traffic to Amazon Web Services resources other than -- Elastic Load Balancing load balancers. -- -- - If you specify a value for @AWS_ALIAS_DNS_NAME@, don\'t specify -- values for any of the @AWS_INSTANCE@ attributes. -- -- [AWS_EC2_INSTANCE_ID] -- /HTTP namespaces only./ The Amazon EC2 instance ID for the instance. -- If the @AWS_EC2_INSTANCE_ID@ attribute is specified, then the only -- other attribute that can be specified is @AWS_INIT_HEALTH_STATUS@. -- When the @AWS_EC2_INSTANCE_ID@ attribute is specified, then the -- @AWS_INSTANCE_IPV4@ attribute will be filled out with the primary -- private IPv4 address. -- -- [AWS_INIT_HEALTH_STATUS] -- If the service configuration includes @HealthCheckCustomConfig@, you -- can optionally use @AWS_INIT_HEALTH_STATUS@ to specify the initial -- status of the custom health check, @HEALTHY@ or @UNHEALTHY@. If you -- don\'t specify a value for @AWS_INIT_HEALTH_STATUS@, the initial -- status is @HEALTHY@. -- -- [AWS_INSTANCE_CNAME] -- If the service configuration includes a @CNAME@ record, the domain -- name that you want Route 53 to return in response to DNS queries -- (for example, @example.com@). -- -- This value is required if the service specified by @ServiceId@ -- includes settings for an @CNAME@ record. -- -- [AWS_INSTANCE_IPV4] -- If the service configuration includes an @A@ record, the IPv4 -- address that you want Route 53 to return in response to DNS queries -- (for example, @192.0.2.44@). -- -- This value is required if the service specified by @ServiceId@ -- includes settings for an @A@ record. If the service includes -- settings for an @SRV@ record, you must specify a value for -- @AWS_INSTANCE_IPV4@, @AWS_INSTANCE_IPV6@, or both. -- -- [AWS_INSTANCE_IPV6] -- If the service configuration includes an @AAAA@ record, the IPv6 -- address that you want Route 53 to return in response to DNS queries -- (for example, @2001:0db8:85a3:0000:0000:abcd:0001:2345@). -- -- This value is required if the service specified by @ServiceId@ -- includes settings for an @AAAA@ record. If the service includes -- settings for an @SRV@ record, you must specify a value for -- @AWS_INSTANCE_IPV4@, @AWS_INSTANCE_IPV6@, or both. -- -- [AWS_INSTANCE_PORT] -- If the service includes an @SRV@ record, the value that you want -- Route 53 to return for the port. -- -- If the service includes @HealthCheckConfig@, the port on the -- endpoint that you want Route 53 to send requests to. -- -- This value is required if you specified settings for an @SRV@ record -- or a Route 53 health check when you created the service. -- -- [Custom attributes] -- You can add up to 30 custom attributes. For each key-value pair, the -- maximum length of the attribute name is 255 characters, and the -- maximum length of the attribute value is 1,024 characters. The total -- size of all provided attributes (sum of all keys and values) must -- not exceed 5,000 characters. newRegisterInstance :: -- | 'serviceId' Prelude.Text -> -- | 'instanceId' Prelude.Text -> RegisterInstance newRegisterInstance :: Text -> Text -> RegisterInstance newRegisterInstance Text pServiceId_ Text pInstanceId_ = RegisterInstance' { $sel:creatorRequestId:RegisterInstance' :: Maybe Text creatorRequestId = forall a. Maybe a Prelude.Nothing, $sel:serviceId:RegisterInstance' :: Text serviceId = Text pServiceId_, $sel:instanceId:RegisterInstance' :: Text instanceId = Text pInstanceId_, $sel:attributes:RegisterInstance' :: HashMap Text Text attributes = forall a. Monoid a => a Prelude.mempty } -- | A unique string that identifies the request and that allows failed -- @RegisterInstance@ requests to be retried without the risk of executing -- the operation twice. You must use a unique @CreatorRequestId@ string -- every time you submit a @RegisterInstance@ request if you\'re -- registering additional instances for the same namespace and service. -- @CreatorRequestId@ can be any unique string (for example, a date\/time -- stamp). registerInstance_creatorRequestId :: Lens.Lens' RegisterInstance (Prelude.Maybe Prelude.Text) registerInstance_creatorRequestId :: Lens' RegisterInstance (Maybe Text) registerInstance_creatorRequestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\RegisterInstance' {Maybe Text creatorRequestId :: Maybe Text $sel:creatorRequestId:RegisterInstance' :: RegisterInstance -> Maybe Text creatorRequestId} -> Maybe Text creatorRequestId) (\s :: RegisterInstance s@RegisterInstance' {} Maybe Text a -> RegisterInstance s {$sel:creatorRequestId:RegisterInstance' :: Maybe Text creatorRequestId = Maybe Text a} :: RegisterInstance) -- | The ID of the service that you want to use for settings for the -- instance. registerInstance_serviceId :: Lens.Lens' RegisterInstance Prelude.Text registerInstance_serviceId :: Lens' RegisterInstance Text registerInstance_serviceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\RegisterInstance' {Text serviceId :: Text $sel:serviceId:RegisterInstance' :: RegisterInstance -> Text serviceId} -> Text serviceId) (\s :: RegisterInstance s@RegisterInstance' {} Text a -> RegisterInstance s {$sel:serviceId:RegisterInstance' :: Text serviceId = Text a} :: RegisterInstance) -- | An identifier that you want to associate with the instance. Note the -- following: -- -- - If the service that\'s specified by @ServiceId@ includes settings -- for an @SRV@ record, the value of @InstanceId@ is automatically -- included as part of the value for the @SRV@ record. For more -- information, see -- <https://docs.aws.amazon.com/cloud-map/latest/api/API_DnsRecord.html#cloudmap-Type-DnsRecord-Type DnsRecord > Type>. -- -- - You can use this value to update an existing instance. -- -- - To register a new instance, you must specify a value that\'s unique -- among instances that you register by using the same service. -- -- - If you specify an existing @InstanceId@ and @ServiceId@, Cloud Map -- updates the existing DNS records, if any. If there\'s also an -- existing health check, Cloud Map deletes the old health check and -- creates a new one. -- -- The health check isn\'t deleted immediately, so it will still appear -- for a while if you submit a @ListHealthChecks@ request, for example. -- -- Do not include sensitive information in @InstanceId@ if the namespace is -- discoverable by public DNS queries and any @Type@ member of @DnsRecord@ -- for the service contains @SRV@ because the @InstanceId@ is discoverable -- by public DNS queries. registerInstance_instanceId :: Lens.Lens' RegisterInstance Prelude.Text registerInstance_instanceId :: Lens' RegisterInstance Text registerInstance_instanceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\RegisterInstance' {Text instanceId :: Text $sel:instanceId:RegisterInstance' :: RegisterInstance -> Text instanceId} -> Text instanceId) (\s :: RegisterInstance s@RegisterInstance' {} Text a -> RegisterInstance s {$sel:instanceId:RegisterInstance' :: Text instanceId = Text a} :: RegisterInstance) -- | A string map that contains the following information for the service -- that you specify in @ServiceId@: -- -- - The attributes that apply to the records that are defined in the -- service. -- -- - For each attribute, the applicable value. -- -- Do not include sensitive information in the attributes if the namespace -- is discoverable by public DNS queries. -- -- Supported attribute keys include the following: -- -- [AWS_ALIAS_DNS_NAME] -- If you want Cloud Map to create an Amazon Route 53 alias record that -- routes traffic to an Elastic Load Balancing load balancer, specify -- the DNS name that\'s associated with the load balancer. For -- information about how to get the DNS name, see \"DNSName\" in the -- topic -- <https://docs.aws.amazon.com/Route53/latest/APIReference/API_AliasTarget.html AliasTarget> -- in the /Route 53 API Reference/. -- -- Note the following: -- -- - The configuration for the service that\'s specified by -- @ServiceId@ must include settings for an @A@ record, an @AAAA@ -- record, or both. -- -- - In the service that\'s specified by @ServiceId@, the value of -- @RoutingPolicy@ must be @WEIGHTED@. -- -- - If the service that\'s specified by @ServiceId@ includes -- @HealthCheckConfig@ settings, Cloud Map will create the Route 53 -- health check, but it doesn\'t associate the health check with -- the alias record. -- -- - Auto naming currently doesn\'t support creating alias records -- that route traffic to Amazon Web Services resources other than -- Elastic Load Balancing load balancers. -- -- - If you specify a value for @AWS_ALIAS_DNS_NAME@, don\'t specify -- values for any of the @AWS_INSTANCE@ attributes. -- -- [AWS_EC2_INSTANCE_ID] -- /HTTP namespaces only./ The Amazon EC2 instance ID for the instance. -- If the @AWS_EC2_INSTANCE_ID@ attribute is specified, then the only -- other attribute that can be specified is @AWS_INIT_HEALTH_STATUS@. -- When the @AWS_EC2_INSTANCE_ID@ attribute is specified, then the -- @AWS_INSTANCE_IPV4@ attribute will be filled out with the primary -- private IPv4 address. -- -- [AWS_INIT_HEALTH_STATUS] -- If the service configuration includes @HealthCheckCustomConfig@, you -- can optionally use @AWS_INIT_HEALTH_STATUS@ to specify the initial -- status of the custom health check, @HEALTHY@ or @UNHEALTHY@. If you -- don\'t specify a value for @AWS_INIT_HEALTH_STATUS@, the initial -- status is @HEALTHY@. -- -- [AWS_INSTANCE_CNAME] -- If the service configuration includes a @CNAME@ record, the domain -- name that you want Route 53 to return in response to DNS queries -- (for example, @example.com@). -- -- This value is required if the service specified by @ServiceId@ -- includes settings for an @CNAME@ record. -- -- [AWS_INSTANCE_IPV4] -- If the service configuration includes an @A@ record, the IPv4 -- address that you want Route 53 to return in response to DNS queries -- (for example, @192.0.2.44@). -- -- This value is required if the service specified by @ServiceId@ -- includes settings for an @A@ record. If the service includes -- settings for an @SRV@ record, you must specify a value for -- @AWS_INSTANCE_IPV4@, @AWS_INSTANCE_IPV6@, or both. -- -- [AWS_INSTANCE_IPV6] -- If the service configuration includes an @AAAA@ record, the IPv6 -- address that you want Route 53 to return in response to DNS queries -- (for example, @2001:0db8:85a3:0000:0000:abcd:0001:2345@). -- -- This value is required if the service specified by @ServiceId@ -- includes settings for an @AAAA@ record. If the service includes -- settings for an @SRV@ record, you must specify a value for -- @AWS_INSTANCE_IPV4@, @AWS_INSTANCE_IPV6@, or both. -- -- [AWS_INSTANCE_PORT] -- If the service includes an @SRV@ record, the value that you want -- Route 53 to return for the port. -- -- If the service includes @HealthCheckConfig@, the port on the -- endpoint that you want Route 53 to send requests to. -- -- This value is required if you specified settings for an @SRV@ record -- or a Route 53 health check when you created the service. -- -- [Custom attributes] -- You can add up to 30 custom attributes. For each key-value pair, the -- maximum length of the attribute name is 255 characters, and the -- maximum length of the attribute value is 1,024 characters. The total -- size of all provided attributes (sum of all keys and values) must -- not exceed 5,000 characters. registerInstance_attributes :: Lens.Lens' RegisterInstance (Prelude.HashMap Prelude.Text Prelude.Text) registerInstance_attributes :: Lens' RegisterInstance (HashMap Text Text) registerInstance_attributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\RegisterInstance' {HashMap Text Text attributes :: HashMap Text Text $sel:attributes:RegisterInstance' :: RegisterInstance -> HashMap Text Text attributes} -> HashMap Text Text attributes) (\s :: RegisterInstance s@RegisterInstance' {} HashMap Text Text a -> RegisterInstance s {$sel:attributes:RegisterInstance' :: HashMap Text Text attributes = HashMap Text Text a} :: RegisterInstance) forall b c a. (b -> c) -> (a -> b) -> a -> c Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b Lens.coerced instance Core.AWSRequest RegisterInstance where type AWSResponse RegisterInstance = RegisterInstanceResponse request :: (Service -> Service) -> RegisterInstance -> Request RegisterInstance 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 RegisterInstance -> ClientResponse ClientBody -> m (Either Error (ClientResponse (AWSResponse RegisterInstance))) response = forall (m :: * -> *) a. MonadResource m => (Int -> ResponseHeaders -> Object -> Either String (AWSResponse a)) -> (ByteStringLazy -> IO ByteStringLazy) -> Service -> Proxy a -> ClientResponse ClientBody -> m (Either Error (ClientResponse (AWSResponse a))) Response.receiveJSON ( \Int s ResponseHeaders h Object x -> Maybe Text -> Int -> RegisterInstanceResponse RegisterInstanceResponse' forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> (Object x forall a. FromJSON a => Object -> Key -> Either String (Maybe a) Data..?> Key "OperationId") forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a Prelude.pure (forall a. Enum a => a -> Int Prelude.fromEnum Int s)) ) instance Prelude.Hashable RegisterInstance where hashWithSalt :: Int -> RegisterInstance -> Int hashWithSalt Int _salt RegisterInstance' {Maybe Text Text HashMap Text Text attributes :: HashMap Text Text instanceId :: Text serviceId :: Text creatorRequestId :: Maybe Text $sel:attributes:RegisterInstance' :: RegisterInstance -> HashMap Text Text $sel:instanceId:RegisterInstance' :: RegisterInstance -> Text $sel:serviceId:RegisterInstance' :: RegisterInstance -> Text $sel:creatorRequestId:RegisterInstance' :: RegisterInstance -> Maybe Text ..} = Int _salt forall a. Hashable a => Int -> a -> Int `Prelude.hashWithSalt` Maybe Text creatorRequestId 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` HashMap Text Text attributes instance Prelude.NFData RegisterInstance where rnf :: RegisterInstance -> () rnf RegisterInstance' {Maybe Text Text HashMap Text Text attributes :: HashMap Text Text instanceId :: Text serviceId :: Text creatorRequestId :: Maybe Text $sel:attributes:RegisterInstance' :: RegisterInstance -> HashMap Text Text $sel:instanceId:RegisterInstance' :: RegisterInstance -> Text $sel:serviceId:RegisterInstance' :: RegisterInstance -> Text $sel:creatorRequestId:RegisterInstance' :: RegisterInstance -> Maybe Text ..} = forall a. NFData a => a -> () Prelude.rnf Maybe Text creatorRequestId seq :: forall a b. a -> b -> b `Prelude.seq` 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 HashMap Text Text attributes instance Data.ToHeaders RegisterInstance where toHeaders :: RegisterInstance -> ResponseHeaders 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 -> ResponseHeaders Data.=# ( ByteString "Route53AutoNaming_v20170314.RegisterInstance" :: Prelude.ByteString ), HeaderName "Content-Type" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders Data.=# ( ByteString "application/x-amz-json-1.1" :: Prelude.ByteString ) ] ) instance Data.ToJSON RegisterInstance where toJSON :: RegisterInstance -> Value toJSON RegisterInstance' {Maybe Text Text HashMap Text Text attributes :: HashMap Text Text instanceId :: Text serviceId :: Text creatorRequestId :: Maybe Text $sel:attributes:RegisterInstance' :: RegisterInstance -> HashMap Text Text $sel:instanceId:RegisterInstance' :: RegisterInstance -> Text $sel:serviceId:RegisterInstance' :: RegisterInstance -> Text $sel:creatorRequestId:RegisterInstance' :: RegisterInstance -> Maybe Text ..} = [Pair] -> Value Data.object ( forall a. [Maybe a] -> [a] Prelude.catMaybes [ (Key "CreatorRequestId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b Prelude.<$> Maybe Text creatorRequestId, 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 "Attributes" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv Data..= HashMap Text Text attributes) ] ) instance Data.ToPath RegisterInstance where toPath :: RegisterInstance -> ByteString toPath = forall a b. a -> b -> a Prelude.const ByteString "/" instance Data.ToQuery RegisterInstance where toQuery :: RegisterInstance -> QueryString toQuery = forall a b. a -> b -> a Prelude.const forall a. Monoid a => a Prelude.mempty -- | /See:/ 'newRegisterInstanceResponse' smart constructor. data RegisterInstanceResponse = RegisterInstanceResponse' { -- | A value that you can use to determine whether the request completed -- successfully. To get the status of the operation, see -- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>. RegisterInstanceResponse -> Maybe Text operationId :: Prelude.Maybe Prelude.Text, -- | The response's http status code. RegisterInstanceResponse -> Int httpStatus :: Prelude.Int } deriving (RegisterInstanceResponse -> RegisterInstanceResponse -> Bool forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: RegisterInstanceResponse -> RegisterInstanceResponse -> Bool $c/= :: RegisterInstanceResponse -> RegisterInstanceResponse -> Bool == :: RegisterInstanceResponse -> RegisterInstanceResponse -> Bool $c== :: RegisterInstanceResponse -> RegisterInstanceResponse -> Bool Prelude.Eq, ReadPrec [RegisterInstanceResponse] ReadPrec RegisterInstanceResponse Int -> ReadS RegisterInstanceResponse ReadS [RegisterInstanceResponse] forall a. (Int -> ReadS a) -> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a readListPrec :: ReadPrec [RegisterInstanceResponse] $creadListPrec :: ReadPrec [RegisterInstanceResponse] readPrec :: ReadPrec RegisterInstanceResponse $creadPrec :: ReadPrec RegisterInstanceResponse readList :: ReadS [RegisterInstanceResponse] $creadList :: ReadS [RegisterInstanceResponse] readsPrec :: Int -> ReadS RegisterInstanceResponse $creadsPrec :: Int -> ReadS RegisterInstanceResponse Prelude.Read, Int -> RegisterInstanceResponse -> ShowS [RegisterInstanceResponse] -> ShowS RegisterInstanceResponse -> String forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [RegisterInstanceResponse] -> ShowS $cshowList :: [RegisterInstanceResponse] -> ShowS show :: RegisterInstanceResponse -> String $cshow :: RegisterInstanceResponse -> String showsPrec :: Int -> RegisterInstanceResponse -> ShowS $cshowsPrec :: Int -> RegisterInstanceResponse -> ShowS Prelude.Show, forall x. Rep RegisterInstanceResponse x -> RegisterInstanceResponse forall x. RegisterInstanceResponse -> Rep RegisterInstanceResponse x forall a. (forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a $cto :: forall x. Rep RegisterInstanceResponse x -> RegisterInstanceResponse $cfrom :: forall x. RegisterInstanceResponse -> Rep RegisterInstanceResponse x Prelude.Generic) -- | -- Create a value of 'RegisterInstanceResponse' with all optional fields omitted. -- -- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields. -- -- The following record fields are available, with the corresponding lenses provided -- for backwards compatibility: -- -- 'operationId', 'registerInstanceResponse_operationId' - A value that you can use to determine whether the request completed -- successfully. To get the status of the operation, see -- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>. -- -- 'httpStatus', 'registerInstanceResponse_httpStatus' - The response's http status code. newRegisterInstanceResponse :: -- | 'httpStatus' Prelude.Int -> RegisterInstanceResponse newRegisterInstanceResponse :: Int -> RegisterInstanceResponse newRegisterInstanceResponse Int pHttpStatus_ = RegisterInstanceResponse' { $sel:operationId:RegisterInstanceResponse' :: Maybe Text operationId = forall a. Maybe a Prelude.Nothing, $sel:httpStatus:RegisterInstanceResponse' :: Int httpStatus = Int pHttpStatus_ } -- | A value that you can use to determine whether the request completed -- successfully. To get the status of the operation, see -- <https://docs.aws.amazon.com/cloud-map/latest/api/API_GetOperation.html GetOperation>. registerInstanceResponse_operationId :: Lens.Lens' RegisterInstanceResponse (Prelude.Maybe Prelude.Text) registerInstanceResponse_operationId :: Lens' RegisterInstanceResponse (Maybe Text) registerInstanceResponse_operationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\RegisterInstanceResponse' {Maybe Text operationId :: Maybe Text $sel:operationId:RegisterInstanceResponse' :: RegisterInstanceResponse -> Maybe Text operationId} -> Maybe Text operationId) (\s :: RegisterInstanceResponse s@RegisterInstanceResponse' {} Maybe Text a -> RegisterInstanceResponse s {$sel:operationId:RegisterInstanceResponse' :: Maybe Text operationId = Maybe Text a} :: RegisterInstanceResponse) -- | The response's http status code. registerInstanceResponse_httpStatus :: Lens.Lens' RegisterInstanceResponse Prelude.Int registerInstanceResponse_httpStatus :: Lens' RegisterInstanceResponse Int registerInstanceResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b Lens.lens (\RegisterInstanceResponse' {Int httpStatus :: Int $sel:httpStatus:RegisterInstanceResponse' :: RegisterInstanceResponse -> Int httpStatus} -> Int httpStatus) (\s :: RegisterInstanceResponse s@RegisterInstanceResponse' {} Int a -> RegisterInstanceResponse s {$sel:httpStatus:RegisterInstanceResponse' :: Int httpStatus = Int a} :: RegisterInstanceResponse) instance Prelude.NFData RegisterInstanceResponse where rnf :: RegisterInstanceResponse -> () rnf RegisterInstanceResponse' {Int Maybe Text httpStatus :: Int operationId :: Maybe Text $sel:httpStatus:RegisterInstanceResponse' :: RegisterInstanceResponse -> Int $sel:operationId:RegisterInstanceResponse' :: RegisterInstanceResponse -> Maybe Text ..} = forall a. NFData a => a -> () Prelude.rnf Maybe Text operationId seq :: forall a b. a -> b -> b `Prelude.seq` forall a. NFData a => a -> () Prelude.rnf Int httpStatus