{-# 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.Personalize.CreateEventTracker
-- 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 an event tracker that you use when adding event data to a
-- specified dataset group using the
-- <https://docs.aws.amazon.com/personalize/latest/dg/API_UBS_PutEvents.html PutEvents>
-- API.
--
-- Only one event tracker can be associated with a dataset group. You will
-- get an error if you call @CreateEventTracker@ using the same dataset
-- group as an existing event tracker.
--
-- When you create an event tracker, the response includes a tracking ID,
-- which you pass as a parameter when you use the
-- <https://docs.aws.amazon.com/personalize/latest/dg/API_UBS_PutEvents.html PutEvents>
-- operation. Amazon Personalize then appends the event data to the
-- Interactions dataset of the dataset group you specify in your event
-- tracker.
--
-- The event tracker can be in one of the following states:
--
-- -   CREATE PENDING > CREATE IN_PROGRESS > ACTIVE -or- CREATE FAILED
--
-- -   DELETE PENDING > DELETE IN_PROGRESS
--
-- To get the status of the event tracker, call
-- <https://docs.aws.amazon.com/personalize/latest/dg/API_DescribeEventTracker.html DescribeEventTracker>.
--
-- The event tracker must be in the ACTIVE state before using the tracking
-- ID.
--
-- __Related APIs__
--
-- -   <https://docs.aws.amazon.com/personalize/latest/dg/API_ListEventTrackers.html ListEventTrackers>
--
-- -   <https://docs.aws.amazon.com/personalize/latest/dg/API_DescribeEventTracker.html DescribeEventTracker>
--
-- -   <https://docs.aws.amazon.com/personalize/latest/dg/API_DeleteEventTracker.html DeleteEventTracker>
module Amazonka.Personalize.CreateEventTracker
  ( -- * Creating a Request
    CreateEventTracker (..),
    newCreateEventTracker,

    -- * Request Lenses
    createEventTracker_tags,
    createEventTracker_name,
    createEventTracker_datasetGroupArn,

    -- * Destructuring the Response
    CreateEventTrackerResponse (..),
    newCreateEventTrackerResponse,

    -- * Response Lenses
    createEventTrackerResponse_eventTrackerArn,
    createEventTrackerResponse_trackingId,
    createEventTrackerResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Personalize.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newCreateEventTracker' smart constructor.
data CreateEventTracker = CreateEventTracker'
  { -- | A list of
    -- <https://docs.aws.amazon.com/personalize/latest/dev/tagging-resources.html tags>
    -- to apply to the event tracker.
    CreateEventTracker -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
    -- | The name for the event tracker.
    CreateEventTracker -> Text
name :: Prelude.Text,
    -- | The Amazon Resource Name (ARN) of the dataset group that receives the
    -- event data.
    CreateEventTracker -> Text
datasetGroupArn :: Prelude.Text
  }
  deriving (CreateEventTracker -> CreateEventTracker -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateEventTracker -> CreateEventTracker -> Bool
$c/= :: CreateEventTracker -> CreateEventTracker -> Bool
== :: CreateEventTracker -> CreateEventTracker -> Bool
$c== :: CreateEventTracker -> CreateEventTracker -> Bool
Prelude.Eq, ReadPrec [CreateEventTracker]
ReadPrec CreateEventTracker
Int -> ReadS CreateEventTracker
ReadS [CreateEventTracker]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateEventTracker]
$creadListPrec :: ReadPrec [CreateEventTracker]
readPrec :: ReadPrec CreateEventTracker
$creadPrec :: ReadPrec CreateEventTracker
readList :: ReadS [CreateEventTracker]
$creadList :: ReadS [CreateEventTracker]
readsPrec :: Int -> ReadS CreateEventTracker
$creadsPrec :: Int -> ReadS CreateEventTracker
Prelude.Read, Int -> CreateEventTracker -> ShowS
[CreateEventTracker] -> ShowS
CreateEventTracker -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateEventTracker] -> ShowS
$cshowList :: [CreateEventTracker] -> ShowS
show :: CreateEventTracker -> String
$cshow :: CreateEventTracker -> String
showsPrec :: Int -> CreateEventTracker -> ShowS
$cshowsPrec :: Int -> CreateEventTracker -> ShowS
Prelude.Show, forall x. Rep CreateEventTracker x -> CreateEventTracker
forall x. CreateEventTracker -> Rep CreateEventTracker x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateEventTracker x -> CreateEventTracker
$cfrom :: forall x. CreateEventTracker -> Rep CreateEventTracker x
Prelude.Generic)

-- |
-- Create a value of 'CreateEventTracker' 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:
--
-- 'tags', 'createEventTracker_tags' - A list of
-- <https://docs.aws.amazon.com/personalize/latest/dev/tagging-resources.html tags>
-- to apply to the event tracker.
--
-- 'name', 'createEventTracker_name' - The name for the event tracker.
--
-- 'datasetGroupArn', 'createEventTracker_datasetGroupArn' - The Amazon Resource Name (ARN) of the dataset group that receives the
-- event data.
newCreateEventTracker ::
  -- | 'name'
  Prelude.Text ->
  -- | 'datasetGroupArn'
  Prelude.Text ->
  CreateEventTracker
newCreateEventTracker :: Text -> Text -> CreateEventTracker
newCreateEventTracker Text
pName_ Text
pDatasetGroupArn_ =
  CreateEventTracker'
    { $sel:tags:CreateEventTracker' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
      $sel:name:CreateEventTracker' :: Text
name = Text
pName_,
      $sel:datasetGroupArn:CreateEventTracker' :: Text
datasetGroupArn = Text
pDatasetGroupArn_
    }

-- | A list of
-- <https://docs.aws.amazon.com/personalize/latest/dev/tagging-resources.html tags>
-- to apply to the event tracker.
createEventTracker_tags :: Lens.Lens' CreateEventTracker (Prelude.Maybe [Tag])
createEventTracker_tags :: Lens' CreateEventTracker (Maybe [Tag])
createEventTracker_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEventTracker' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateEventTracker' :: CreateEventTracker -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateEventTracker
s@CreateEventTracker' {} Maybe [Tag]
a -> CreateEventTracker
s {$sel:tags:CreateEventTracker' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateEventTracker) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The name for the event tracker.
createEventTracker_name :: Lens.Lens' CreateEventTracker Prelude.Text
createEventTracker_name :: Lens' CreateEventTracker Text
createEventTracker_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEventTracker' {Text
name :: Text
$sel:name:CreateEventTracker' :: CreateEventTracker -> Text
name} -> Text
name) (\s :: CreateEventTracker
s@CreateEventTracker' {} Text
a -> CreateEventTracker
s {$sel:name:CreateEventTracker' :: Text
name = Text
a} :: CreateEventTracker)

-- | The Amazon Resource Name (ARN) of the dataset group that receives the
-- event data.
createEventTracker_datasetGroupArn :: Lens.Lens' CreateEventTracker Prelude.Text
createEventTracker_datasetGroupArn :: Lens' CreateEventTracker Text
createEventTracker_datasetGroupArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEventTracker' {Text
datasetGroupArn :: Text
$sel:datasetGroupArn:CreateEventTracker' :: CreateEventTracker -> Text
datasetGroupArn} -> Text
datasetGroupArn) (\s :: CreateEventTracker
s@CreateEventTracker' {} Text
a -> CreateEventTracker
s {$sel:datasetGroupArn:CreateEventTracker' :: Text
datasetGroupArn = Text
a} :: CreateEventTracker)

instance Core.AWSRequest CreateEventTracker where
  type
    AWSResponse CreateEventTracker =
      CreateEventTrackerResponse
  request :: (Service -> Service)
-> CreateEventTracker -> Request CreateEventTracker
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 CreateEventTracker
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse CreateEventTracker)))
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 -> Maybe Text -> Int -> CreateEventTrackerResponse
CreateEventTrackerResponse'
            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
"eventTrackerArn")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"trackingId")
            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 CreateEventTracker where
  hashWithSalt :: Int -> CreateEventTracker -> Int
hashWithSalt Int
_salt CreateEventTracker' {Maybe [Tag]
Text
datasetGroupArn :: Text
name :: Text
tags :: Maybe [Tag]
$sel:datasetGroupArn:CreateEventTracker' :: CreateEventTracker -> Text
$sel:name:CreateEventTracker' :: CreateEventTracker -> Text
$sel:tags:CreateEventTracker' :: CreateEventTracker -> Maybe [Tag]
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
datasetGroupArn

instance Prelude.NFData CreateEventTracker where
  rnf :: CreateEventTracker -> ()
rnf CreateEventTracker' {Maybe [Tag]
Text
datasetGroupArn :: Text
name :: Text
tags :: Maybe [Tag]
$sel:datasetGroupArn:CreateEventTracker' :: CreateEventTracker -> Text
$sel:name:CreateEventTracker' :: CreateEventTracker -> Text
$sel:tags:CreateEventTracker' :: CreateEventTracker -> Maybe [Tag]
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
datasetGroupArn

instance Data.ToHeaders CreateEventTracker where
  toHeaders :: CreateEventTracker -> 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
"AmazonPersonalize.CreateEventTracker" ::
                          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 CreateEventTracker where
  toJSON :: CreateEventTracker -> Value
toJSON CreateEventTracker' {Maybe [Tag]
Text
datasetGroupArn :: Text
name :: Text
tags :: Maybe [Tag]
$sel:datasetGroupArn:CreateEventTracker' :: CreateEventTracker -> Text
$sel:name:CreateEventTracker' :: CreateEventTracker -> Text
$sel:tags:CreateEventTracker' :: CreateEventTracker -> Maybe [Tag]
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"tags" 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 [Tag]
tags,
            forall a. a -> Maybe a
Prelude.Just (Key
"name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name),
            forall a. a -> Maybe a
Prelude.Just
              (Key
"datasetGroupArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
datasetGroupArn)
          ]
      )

instance Data.ToPath CreateEventTracker where
  toPath :: CreateEventTracker -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance Data.ToQuery CreateEventTracker where
  toQuery :: CreateEventTracker -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newCreateEventTrackerResponse' smart constructor.
data CreateEventTrackerResponse = CreateEventTrackerResponse'
  { -- | The ARN of the event tracker.
    CreateEventTrackerResponse -> Maybe Text
eventTrackerArn :: Prelude.Maybe Prelude.Text,
    -- | The ID of the event tracker. Include this ID in requests to the
    -- <https://docs.aws.amazon.com/personalize/latest/dg/API_UBS_PutEvents.html PutEvents>
    -- API.
    CreateEventTrackerResponse -> Maybe Text
trackingId :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    CreateEventTrackerResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (CreateEventTrackerResponse -> CreateEventTrackerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateEventTrackerResponse -> CreateEventTrackerResponse -> Bool
$c/= :: CreateEventTrackerResponse -> CreateEventTrackerResponse -> Bool
== :: CreateEventTrackerResponse -> CreateEventTrackerResponse -> Bool
$c== :: CreateEventTrackerResponse -> CreateEventTrackerResponse -> Bool
Prelude.Eq, ReadPrec [CreateEventTrackerResponse]
ReadPrec CreateEventTrackerResponse
Int -> ReadS CreateEventTrackerResponse
ReadS [CreateEventTrackerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateEventTrackerResponse]
$creadListPrec :: ReadPrec [CreateEventTrackerResponse]
readPrec :: ReadPrec CreateEventTrackerResponse
$creadPrec :: ReadPrec CreateEventTrackerResponse
readList :: ReadS [CreateEventTrackerResponse]
$creadList :: ReadS [CreateEventTrackerResponse]
readsPrec :: Int -> ReadS CreateEventTrackerResponse
$creadsPrec :: Int -> ReadS CreateEventTrackerResponse
Prelude.Read, Int -> CreateEventTrackerResponse -> ShowS
[CreateEventTrackerResponse] -> ShowS
CreateEventTrackerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateEventTrackerResponse] -> ShowS
$cshowList :: [CreateEventTrackerResponse] -> ShowS
show :: CreateEventTrackerResponse -> String
$cshow :: CreateEventTrackerResponse -> String
showsPrec :: Int -> CreateEventTrackerResponse -> ShowS
$cshowsPrec :: Int -> CreateEventTrackerResponse -> ShowS
Prelude.Show, forall x.
Rep CreateEventTrackerResponse x -> CreateEventTrackerResponse
forall x.
CreateEventTrackerResponse -> Rep CreateEventTrackerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateEventTrackerResponse x -> CreateEventTrackerResponse
$cfrom :: forall x.
CreateEventTrackerResponse -> Rep CreateEventTrackerResponse x
Prelude.Generic)

-- |
-- Create a value of 'CreateEventTrackerResponse' 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:
--
-- 'eventTrackerArn', 'createEventTrackerResponse_eventTrackerArn' - The ARN of the event tracker.
--
-- 'trackingId', 'createEventTrackerResponse_trackingId' - The ID of the event tracker. Include this ID in requests to the
-- <https://docs.aws.amazon.com/personalize/latest/dg/API_UBS_PutEvents.html PutEvents>
-- API.
--
-- 'httpStatus', 'createEventTrackerResponse_httpStatus' - The response's http status code.
newCreateEventTrackerResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  CreateEventTrackerResponse
newCreateEventTrackerResponse :: Int -> CreateEventTrackerResponse
newCreateEventTrackerResponse Int
pHttpStatus_ =
  CreateEventTrackerResponse'
    { $sel:eventTrackerArn:CreateEventTrackerResponse' :: Maybe Text
eventTrackerArn =
        forall a. Maybe a
Prelude.Nothing,
      $sel:trackingId:CreateEventTrackerResponse' :: Maybe Text
trackingId = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:CreateEventTrackerResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The ARN of the event tracker.
createEventTrackerResponse_eventTrackerArn :: Lens.Lens' CreateEventTrackerResponse (Prelude.Maybe Prelude.Text)
createEventTrackerResponse_eventTrackerArn :: Lens' CreateEventTrackerResponse (Maybe Text)
createEventTrackerResponse_eventTrackerArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEventTrackerResponse' {Maybe Text
eventTrackerArn :: Maybe Text
$sel:eventTrackerArn:CreateEventTrackerResponse' :: CreateEventTrackerResponse -> Maybe Text
eventTrackerArn} -> Maybe Text
eventTrackerArn) (\s :: CreateEventTrackerResponse
s@CreateEventTrackerResponse' {} Maybe Text
a -> CreateEventTrackerResponse
s {$sel:eventTrackerArn:CreateEventTrackerResponse' :: Maybe Text
eventTrackerArn = Maybe Text
a} :: CreateEventTrackerResponse)

-- | The ID of the event tracker. Include this ID in requests to the
-- <https://docs.aws.amazon.com/personalize/latest/dg/API_UBS_PutEvents.html PutEvents>
-- API.
createEventTrackerResponse_trackingId :: Lens.Lens' CreateEventTrackerResponse (Prelude.Maybe Prelude.Text)
createEventTrackerResponse_trackingId :: Lens' CreateEventTrackerResponse (Maybe Text)
createEventTrackerResponse_trackingId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEventTrackerResponse' {Maybe Text
trackingId :: Maybe Text
$sel:trackingId:CreateEventTrackerResponse' :: CreateEventTrackerResponse -> Maybe Text
trackingId} -> Maybe Text
trackingId) (\s :: CreateEventTrackerResponse
s@CreateEventTrackerResponse' {} Maybe Text
a -> CreateEventTrackerResponse
s {$sel:trackingId:CreateEventTrackerResponse' :: Maybe Text
trackingId = Maybe Text
a} :: CreateEventTrackerResponse)

-- | The response's http status code.
createEventTrackerResponse_httpStatus :: Lens.Lens' CreateEventTrackerResponse Prelude.Int
createEventTrackerResponse_httpStatus :: Lens' CreateEventTrackerResponse Int
createEventTrackerResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateEventTrackerResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateEventTrackerResponse' :: CreateEventTrackerResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateEventTrackerResponse
s@CreateEventTrackerResponse' {} Int
a -> CreateEventTrackerResponse
s {$sel:httpStatus:CreateEventTrackerResponse' :: Int
httpStatus = Int
a} :: CreateEventTrackerResponse)

instance Prelude.NFData CreateEventTrackerResponse where
  rnf :: CreateEventTrackerResponse -> ()
rnf CreateEventTrackerResponse' {Int
Maybe Text
httpStatus :: Int
trackingId :: Maybe Text
eventTrackerArn :: Maybe Text
$sel:httpStatus:CreateEventTrackerResponse' :: CreateEventTrackerResponse -> Int
$sel:trackingId:CreateEventTrackerResponse' :: CreateEventTrackerResponse -> Maybe Text
$sel:eventTrackerArn:CreateEventTrackerResponse' :: CreateEventTrackerResponse -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
eventTrackerArn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
trackingId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus