{-# 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.Pinpoint.PutEventStream
-- 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 a new event stream for an application or updates the settings of
-- an existing event stream for an application.
module Amazonka.Pinpoint.PutEventStream
  ( -- * Creating a Request
    PutEventStream (..),
    newPutEventStream,

    -- * Request Lenses
    putEventStream_applicationId,
    putEventStream_writeEventStream,

    -- * Destructuring the Response
    PutEventStreamResponse (..),
    newPutEventStreamResponse,

    -- * Response Lenses
    putEventStreamResponse_httpStatus,
    putEventStreamResponse_eventStream,
  )
where

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

-- | /See:/ 'newPutEventStream' smart constructor.
data PutEventStream = PutEventStream'
  { -- | The unique identifier for the application. This identifier is displayed
    -- as the __Project ID__ on the Amazon Pinpoint console.
    PutEventStream -> Text
applicationId :: Prelude.Text,
    PutEventStream -> WriteEventStream
writeEventStream :: WriteEventStream
  }
  deriving (PutEventStream -> PutEventStream -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutEventStream -> PutEventStream -> Bool
$c/= :: PutEventStream -> PutEventStream -> Bool
== :: PutEventStream -> PutEventStream -> Bool
$c== :: PutEventStream -> PutEventStream -> Bool
Prelude.Eq, ReadPrec [PutEventStream]
ReadPrec PutEventStream
Int -> ReadS PutEventStream
ReadS [PutEventStream]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutEventStream]
$creadListPrec :: ReadPrec [PutEventStream]
readPrec :: ReadPrec PutEventStream
$creadPrec :: ReadPrec PutEventStream
readList :: ReadS [PutEventStream]
$creadList :: ReadS [PutEventStream]
readsPrec :: Int -> ReadS PutEventStream
$creadsPrec :: Int -> ReadS PutEventStream
Prelude.Read, Int -> PutEventStream -> ShowS
[PutEventStream] -> ShowS
PutEventStream -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutEventStream] -> ShowS
$cshowList :: [PutEventStream] -> ShowS
show :: PutEventStream -> String
$cshow :: PutEventStream -> String
showsPrec :: Int -> PutEventStream -> ShowS
$cshowsPrec :: Int -> PutEventStream -> ShowS
Prelude.Show, forall x. Rep PutEventStream x -> PutEventStream
forall x. PutEventStream -> Rep PutEventStream x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutEventStream x -> PutEventStream
$cfrom :: forall x. PutEventStream -> Rep PutEventStream x
Prelude.Generic)

-- |
-- Create a value of 'PutEventStream' 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:
--
-- 'applicationId', 'putEventStream_applicationId' - The unique identifier for the application. This identifier is displayed
-- as the __Project ID__ on the Amazon Pinpoint console.
--
-- 'writeEventStream', 'putEventStream_writeEventStream' - Undocumented member.
newPutEventStream ::
  -- | 'applicationId'
  Prelude.Text ->
  -- | 'writeEventStream'
  WriteEventStream ->
  PutEventStream
newPutEventStream :: Text -> WriteEventStream -> PutEventStream
newPutEventStream Text
pApplicationId_ WriteEventStream
pWriteEventStream_ =
  PutEventStream'
    { $sel:applicationId:PutEventStream' :: Text
applicationId = Text
pApplicationId_,
      $sel:writeEventStream:PutEventStream' :: WriteEventStream
writeEventStream = WriteEventStream
pWriteEventStream_
    }

-- | The unique identifier for the application. This identifier is displayed
-- as the __Project ID__ on the Amazon Pinpoint console.
putEventStream_applicationId :: Lens.Lens' PutEventStream Prelude.Text
putEventStream_applicationId :: Lens' PutEventStream Text
putEventStream_applicationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutEventStream' {Text
applicationId :: Text
$sel:applicationId:PutEventStream' :: PutEventStream -> Text
applicationId} -> Text
applicationId) (\s :: PutEventStream
s@PutEventStream' {} Text
a -> PutEventStream
s {$sel:applicationId:PutEventStream' :: Text
applicationId = Text
a} :: PutEventStream)

-- | Undocumented member.
putEventStream_writeEventStream :: Lens.Lens' PutEventStream WriteEventStream
putEventStream_writeEventStream :: Lens' PutEventStream WriteEventStream
putEventStream_writeEventStream = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutEventStream' {WriteEventStream
writeEventStream :: WriteEventStream
$sel:writeEventStream:PutEventStream' :: PutEventStream -> WriteEventStream
writeEventStream} -> WriteEventStream
writeEventStream) (\s :: PutEventStream
s@PutEventStream' {} WriteEventStream
a -> PutEventStream
s {$sel:writeEventStream:PutEventStream' :: WriteEventStream
writeEventStream = WriteEventStream
a} :: PutEventStream)

instance Core.AWSRequest PutEventStream where
  type
    AWSResponse PutEventStream =
      PutEventStreamResponse
  request :: (Service -> Service) -> PutEventStream -> Request PutEventStream
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 PutEventStream
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse PutEventStream)))
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 ->
          Int -> EventStream -> PutEventStreamResponse
PutEventStreamResponse'
            forall (f :: * -> *) a b. Functor 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))
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall a. FromJSON a => Object -> Either String a
Data.eitherParseJSON Object
x)
      )

instance Prelude.Hashable PutEventStream where
  hashWithSalt :: Int -> PutEventStream -> Int
hashWithSalt Int
_salt PutEventStream' {Text
WriteEventStream
writeEventStream :: WriteEventStream
applicationId :: Text
$sel:writeEventStream:PutEventStream' :: PutEventStream -> WriteEventStream
$sel:applicationId:PutEventStream' :: PutEventStream -> Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
applicationId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` WriteEventStream
writeEventStream

instance Prelude.NFData PutEventStream where
  rnf :: PutEventStream -> ()
rnf PutEventStream' {Text
WriteEventStream
writeEventStream :: WriteEventStream
applicationId :: Text
$sel:writeEventStream:PutEventStream' :: PutEventStream -> WriteEventStream
$sel:applicationId:PutEventStream' :: PutEventStream -> Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Text
applicationId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf WriteEventStream
writeEventStream

instance Data.ToHeaders PutEventStream where
  toHeaders :: PutEventStream -> ResponseHeaders
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 -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON PutEventStream where
  toJSON :: PutEventStream -> Value
toJSON PutEventStream' {Text
WriteEventStream
writeEventStream :: WriteEventStream
applicationId :: Text
$sel:writeEventStream:PutEventStream' :: PutEventStream -> WriteEventStream
$sel:applicationId:PutEventStream' :: PutEventStream -> Text
..} =
    forall a. ToJSON a => a -> Value
Data.toJSON WriteEventStream
writeEventStream

instance Data.ToPath PutEventStream where
  toPath :: PutEventStream -> ByteString
toPath PutEventStream' {Text
WriteEventStream
writeEventStream :: WriteEventStream
applicationId :: Text
$sel:writeEventStream:PutEventStream' :: PutEventStream -> WriteEventStream
$sel:applicationId:PutEventStream' :: PutEventStream -> Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"/v1/apps/",
        forall a. ToByteString a => a -> ByteString
Data.toBS Text
applicationId,
        ByteString
"/eventstream"
      ]

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

-- | /See:/ 'newPutEventStreamResponse' smart constructor.
data PutEventStreamResponse = PutEventStreamResponse'
  { -- | The response's http status code.
    PutEventStreamResponse -> Int
httpStatus :: Prelude.Int,
    PutEventStreamResponse -> EventStream
eventStream :: EventStream
  }
  deriving (PutEventStreamResponse -> PutEventStreamResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutEventStreamResponse -> PutEventStreamResponse -> Bool
$c/= :: PutEventStreamResponse -> PutEventStreamResponse -> Bool
== :: PutEventStreamResponse -> PutEventStreamResponse -> Bool
$c== :: PutEventStreamResponse -> PutEventStreamResponse -> Bool
Prelude.Eq, ReadPrec [PutEventStreamResponse]
ReadPrec PutEventStreamResponse
Int -> ReadS PutEventStreamResponse
ReadS [PutEventStreamResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutEventStreamResponse]
$creadListPrec :: ReadPrec [PutEventStreamResponse]
readPrec :: ReadPrec PutEventStreamResponse
$creadPrec :: ReadPrec PutEventStreamResponse
readList :: ReadS [PutEventStreamResponse]
$creadList :: ReadS [PutEventStreamResponse]
readsPrec :: Int -> ReadS PutEventStreamResponse
$creadsPrec :: Int -> ReadS PutEventStreamResponse
Prelude.Read, Int -> PutEventStreamResponse -> ShowS
[PutEventStreamResponse] -> ShowS
PutEventStreamResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutEventStreamResponse] -> ShowS
$cshowList :: [PutEventStreamResponse] -> ShowS
show :: PutEventStreamResponse -> String
$cshow :: PutEventStreamResponse -> String
showsPrec :: Int -> PutEventStreamResponse -> ShowS
$cshowsPrec :: Int -> PutEventStreamResponse -> ShowS
Prelude.Show, forall x. Rep PutEventStreamResponse x -> PutEventStreamResponse
forall x. PutEventStreamResponse -> Rep PutEventStreamResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutEventStreamResponse x -> PutEventStreamResponse
$cfrom :: forall x. PutEventStreamResponse -> Rep PutEventStreamResponse x
Prelude.Generic)

-- |
-- Create a value of 'PutEventStreamResponse' 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:
--
-- 'httpStatus', 'putEventStreamResponse_httpStatus' - The response's http status code.
--
-- 'eventStream', 'putEventStreamResponse_eventStream' - Undocumented member.
newPutEventStreamResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  -- | 'eventStream'
  EventStream ->
  PutEventStreamResponse
newPutEventStreamResponse :: Int -> EventStream -> PutEventStreamResponse
newPutEventStreamResponse Int
pHttpStatus_ EventStream
pEventStream_ =
  PutEventStreamResponse'
    { $sel:httpStatus:PutEventStreamResponse' :: Int
httpStatus = Int
pHttpStatus_,
      $sel:eventStream:PutEventStreamResponse' :: EventStream
eventStream = EventStream
pEventStream_
    }

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

-- | Undocumented member.
putEventStreamResponse_eventStream :: Lens.Lens' PutEventStreamResponse EventStream
putEventStreamResponse_eventStream :: Lens' PutEventStreamResponse EventStream
putEventStreamResponse_eventStream = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutEventStreamResponse' {EventStream
eventStream :: EventStream
$sel:eventStream:PutEventStreamResponse' :: PutEventStreamResponse -> EventStream
eventStream} -> EventStream
eventStream) (\s :: PutEventStreamResponse
s@PutEventStreamResponse' {} EventStream
a -> PutEventStreamResponse
s {$sel:eventStream:PutEventStreamResponse' :: EventStream
eventStream = EventStream
a} :: PutEventStreamResponse)

instance Prelude.NFData PutEventStreamResponse where
  rnf :: PutEventStreamResponse -> ()
rnf PutEventStreamResponse' {Int
EventStream
eventStream :: EventStream
httpStatus :: Int
$sel:eventStream:PutEventStreamResponse' :: PutEventStreamResponse -> EventStream
$sel:httpStatus:PutEventStreamResponse' :: PutEventStreamResponse -> Int
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf EventStream
eventStream