{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE StrictData #-} {-# LANGUAGE NoImplicitPrelude #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Amazonka.CloudWatchEvents.Types.PutEventsRequestEntry -- Copyright : (c) 2013-2023 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) module Amazonka.CloudWatchEvents.Types.PutEventsRequestEntry 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 -- | Represents an event to be submitted. -- -- /See:/ 'newPutEventsRequestEntry' smart constructor. data PutEventsRequestEntry = PutEventsRequestEntry' { -- | A valid JSON object. There is no other schema imposed. The JSON object -- may contain fields and nested subobjects. detail :: Prelude.Maybe Prelude.Text, -- | Free-form string used to decide what fields to expect in the event -- detail. detailType :: Prelude.Maybe Prelude.Text, -- | The name or ARN of the event bus to receive the event. Only the rules -- that are associated with this event bus are used to match the event. If -- you omit this, the default event bus is used. -- -- If you\'re using a global endpoint with a custom bus, you must enter the -- name, not the ARN, of the event bus in either the primary or secondary -- Region here and the corresponding event bus in the other Region will be -- determined based on the endpoint referenced by the @EndpointId@. eventBusName :: Prelude.Maybe Prelude.Text, -- | Amazon Web Services resources, identified by Amazon Resource Name (ARN), -- which the event primarily concerns. Any number, including zero, may be -- present. resources :: Prelude.Maybe [Prelude.Text], -- | The source of the event. source :: Prelude.Maybe Prelude.Text, -- | The time stamp of the event, per -- . If no time stamp -- is provided, the time stamp of the -- -- call is used. time :: Prelude.Maybe Data.POSIX, -- | An X-Ray trace header, which is an http header (X-Amzn-Trace-Id) that -- contains the trace-id associated with the event. -- -- To learn more about X-Ray trace headers, see -- -- in the X-Ray Developer Guide. traceHeader :: Prelude.Maybe Prelude.Text } deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) -- | -- Create a value of 'PutEventsRequestEntry' with all optional fields omitted. -- -- Use or to modify other optional fields. -- -- The following record fields are available, with the corresponding lenses provided -- for backwards compatibility: -- -- 'detail', 'putEventsRequestEntry_detail' - A valid JSON object. There is no other schema imposed. The JSON object -- may contain fields and nested subobjects. -- -- 'detailType', 'putEventsRequestEntry_detailType' - Free-form string used to decide what fields to expect in the event -- detail. -- -- 'eventBusName', 'putEventsRequestEntry_eventBusName' - The name or ARN of the event bus to receive the event. Only the rules -- that are associated with this event bus are used to match the event. If -- you omit this, the default event bus is used. -- -- If you\'re using a global endpoint with a custom bus, you must enter the -- name, not the ARN, of the event bus in either the primary or secondary -- Region here and the corresponding event bus in the other Region will be -- determined based on the endpoint referenced by the @EndpointId@. -- -- 'resources', 'putEventsRequestEntry_resources' - Amazon Web Services resources, identified by Amazon Resource Name (ARN), -- which the event primarily concerns. Any number, including zero, may be -- present. -- -- 'source', 'putEventsRequestEntry_source' - The source of the event. -- -- 'time', 'putEventsRequestEntry_time' - The time stamp of the event, per -- . If no time stamp -- is provided, the time stamp of the -- -- call is used. -- -- 'traceHeader', 'putEventsRequestEntry_traceHeader' - An X-Ray trace header, which is an http header (X-Amzn-Trace-Id) that -- contains the trace-id associated with the event. -- -- To learn more about X-Ray trace headers, see -- -- in the X-Ray Developer Guide. newPutEventsRequestEntry :: PutEventsRequestEntry newPutEventsRequestEntry = PutEventsRequestEntry' { detail = Prelude.Nothing, detailType = Prelude.Nothing, eventBusName = Prelude.Nothing, resources = Prelude.Nothing, source = Prelude.Nothing, time = Prelude.Nothing, traceHeader = Prelude.Nothing } -- | A valid JSON object. There is no other schema imposed. The JSON object -- may contain fields and nested subobjects. putEventsRequestEntry_detail :: Lens.Lens' PutEventsRequestEntry (Prelude.Maybe Prelude.Text) putEventsRequestEntry_detail = Lens.lens (\PutEventsRequestEntry' {detail} -> detail) (\s@PutEventsRequestEntry' {} a -> s {detail = a} :: PutEventsRequestEntry) -- | Free-form string used to decide what fields to expect in the event -- detail. putEventsRequestEntry_detailType :: Lens.Lens' PutEventsRequestEntry (Prelude.Maybe Prelude.Text) putEventsRequestEntry_detailType = Lens.lens (\PutEventsRequestEntry' {detailType} -> detailType) (\s@PutEventsRequestEntry' {} a -> s {detailType = a} :: PutEventsRequestEntry) -- | The name or ARN of the event bus to receive the event. Only the rules -- that are associated with this event bus are used to match the event. If -- you omit this, the default event bus is used. -- -- If you\'re using a global endpoint with a custom bus, you must enter the -- name, not the ARN, of the event bus in either the primary or secondary -- Region here and the corresponding event bus in the other Region will be -- determined based on the endpoint referenced by the @EndpointId@. putEventsRequestEntry_eventBusName :: Lens.Lens' PutEventsRequestEntry (Prelude.Maybe Prelude.Text) putEventsRequestEntry_eventBusName = Lens.lens (\PutEventsRequestEntry' {eventBusName} -> eventBusName) (\s@PutEventsRequestEntry' {} a -> s {eventBusName = a} :: PutEventsRequestEntry) -- | Amazon Web Services resources, identified by Amazon Resource Name (ARN), -- which the event primarily concerns. Any number, including zero, may be -- present. putEventsRequestEntry_resources :: Lens.Lens' PutEventsRequestEntry (Prelude.Maybe [Prelude.Text]) putEventsRequestEntry_resources = Lens.lens (\PutEventsRequestEntry' {resources} -> resources) (\s@PutEventsRequestEntry' {} a -> s {resources = a} :: PutEventsRequestEntry) Prelude.. Lens.mapping Lens.coerced -- | The source of the event. putEventsRequestEntry_source :: Lens.Lens' PutEventsRequestEntry (Prelude.Maybe Prelude.Text) putEventsRequestEntry_source = Lens.lens (\PutEventsRequestEntry' {source} -> source) (\s@PutEventsRequestEntry' {} a -> s {source = a} :: PutEventsRequestEntry) -- | The time stamp of the event, per -- . If no time stamp -- is provided, the time stamp of the -- -- call is used. putEventsRequestEntry_time :: Lens.Lens' PutEventsRequestEntry (Prelude.Maybe Prelude.UTCTime) putEventsRequestEntry_time = Lens.lens (\PutEventsRequestEntry' {time} -> time) (\s@PutEventsRequestEntry' {} a -> s {time = a} :: PutEventsRequestEntry) Prelude.. Lens.mapping Data._Time -- | An X-Ray trace header, which is an http header (X-Amzn-Trace-Id) that -- contains the trace-id associated with the event. -- -- To learn more about X-Ray trace headers, see -- -- in the X-Ray Developer Guide. putEventsRequestEntry_traceHeader :: Lens.Lens' PutEventsRequestEntry (Prelude.Maybe Prelude.Text) putEventsRequestEntry_traceHeader = Lens.lens (\PutEventsRequestEntry' {traceHeader} -> traceHeader) (\s@PutEventsRequestEntry' {} a -> s {traceHeader = a} :: PutEventsRequestEntry) instance Prelude.Hashable PutEventsRequestEntry where hashWithSalt _salt PutEventsRequestEntry' {..} = _salt `Prelude.hashWithSalt` detail `Prelude.hashWithSalt` detailType `Prelude.hashWithSalt` eventBusName `Prelude.hashWithSalt` resources `Prelude.hashWithSalt` source `Prelude.hashWithSalt` time `Prelude.hashWithSalt` traceHeader instance Prelude.NFData PutEventsRequestEntry where rnf PutEventsRequestEntry' {..} = Prelude.rnf detail `Prelude.seq` Prelude.rnf detailType `Prelude.seq` Prelude.rnf eventBusName `Prelude.seq` Prelude.rnf resources `Prelude.seq` Prelude.rnf source `Prelude.seq` Prelude.rnf time `Prelude.seq` Prelude.rnf traceHeader instance Data.ToJSON PutEventsRequestEntry where toJSON PutEventsRequestEntry' {..} = Data.object ( Prelude.catMaybes [ ("Detail" Data..=) Prelude.<$> detail, ("DetailType" Data..=) Prelude.<$> detailType, ("EventBusName" Data..=) Prelude.<$> eventBusName, ("Resources" Data..=) Prelude.<$> resources, ("Source" Data..=) Prelude.<$> source, ("Time" Data..=) Prelude.<$> time, ("TraceHeader" Data..=) Prelude.<$> traceHeader ] )