{-# 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.KinesisAnalytics.CreateApplication
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- This documentation is for version 1 of the Amazon Kinesis Data Analytics
-- API, which only supports SQL applications. Version 2 of the API supports
-- SQL and Java applications. For more information about version 2, see
-- </kinesisanalytics/latest/apiv2/Welcome.html Amazon Kinesis Data Analytics API V2 Documentation>.
--
-- Creates an Amazon Kinesis Analytics application. You can configure each
-- application with one streaming source as input, application code to
-- process the input, and up to three destinations where you want Amazon
-- Kinesis Analytics to write the output data from your application. For an
-- overview, see
-- <https://docs.aws.amazon.com/kinesisanalytics/latest/dev/how-it-works.html How it Works>.
--
-- In the input configuration, you map the streaming source to an
-- in-application stream, which you can think of as a constantly updating
-- table. In the mapping, you must provide a schema for the in-application
-- stream and map each data column in the in-application stream to a data
-- element in the streaming source.
--
-- Your application code is one or more SQL statements that read input
-- data, transform it, and generate output. Your application code can
-- create one or more SQL artifacts like SQL streams or pumps.
--
-- In the output configuration, you can configure the application to write
-- data from in-application streams created in your applications to up to
-- three destinations.
--
-- To read data from your source stream or write data to destination
-- streams, Amazon Kinesis Analytics needs your permissions. You grant
-- these permissions by creating IAM roles. This operation requires
-- permissions to perform the @kinesisanalytics:CreateApplication@ action.
--
-- For introductory exercises to create an Amazon Kinesis Analytics
-- application, see
-- <https://docs.aws.amazon.com/kinesisanalytics/latest/dev/getting-started.html Getting Started>.
module Amazonka.KinesisAnalytics.CreateApplication
  ( -- * Creating a Request
    CreateApplication (..),
    newCreateApplication,

    -- * Request Lenses
    createApplication_applicationCode,
    createApplication_applicationDescription,
    createApplication_cloudWatchLoggingOptions,
    createApplication_inputs,
    createApplication_outputs,
    createApplication_tags,
    createApplication_applicationName,

    -- * Destructuring the Response
    CreateApplicationResponse (..),
    newCreateApplicationResponse,

    -- * Response Lenses
    createApplicationResponse_httpStatus,
    createApplicationResponse_applicationSummary,
  )
where

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

-- | TBD
--
-- /See:/ 'newCreateApplication' smart constructor.
data CreateApplication = CreateApplication'
  { -- | One or more SQL statements that read input data, transform it, and
    -- generate output. For example, you can write a SQL statement that reads
    -- data from one in-application stream, generates a running average of the
    -- number of advertisement clicks by vendor, and insert resulting rows in
    -- another in-application stream using pumps. For more information about
    -- the typical pattern, see
    -- <https://docs.aws.amazon.com/kinesisanalytics/latest/dev/how-it-works-app-code.html Application Code>.
    --
    -- You can provide such series of SQL statements, where output of one
    -- statement can be used as the input for the next statement. You store
    -- intermediate results by creating in-application streams and pumps.
    --
    -- Note that the application code must create the streams with names
    -- specified in the @Outputs@. For example, if your @Outputs@ defines
    -- output streams named @ExampleOutputStream1@ and @ExampleOutputStream2@,
    -- then your application code must create these streams.
    CreateApplication -> Maybe Text
applicationCode :: Prelude.Maybe Prelude.Text,
    -- | Summary description of the application.
    CreateApplication -> Maybe Text
applicationDescription :: Prelude.Maybe Prelude.Text,
    -- | Use this parameter to configure a CloudWatch log stream to monitor
    -- application configuration errors. For more information, see
    -- <https://docs.aws.amazon.com/kinesisanalytics/latest/dev/cloudwatch-logs.html Working with Amazon CloudWatch Logs>.
    CreateApplication -> Maybe [CloudWatchLoggingOption]
cloudWatchLoggingOptions :: Prelude.Maybe [CloudWatchLoggingOption],
    -- | Use this parameter to configure the application input.
    --
    -- You can configure your application to receive input from a single
    -- streaming source. In this configuration, you map this streaming source
    -- to an in-application stream that is created. Your application code can
    -- then query the in-application stream like a table (you can think of it
    -- as a constantly updating table).
    --
    -- For the streaming source, you provide its Amazon Resource Name (ARN) and
    -- format of data on the stream (for example, JSON, CSV, etc.). You also
    -- must provide an IAM role that Amazon Kinesis Analytics can assume to
    -- read this stream on your behalf.
    --
    -- To create the in-application stream, you need to specify a schema to
    -- transform your data into a schematized version used in SQL. In the
    -- schema, you provide the necessary mapping of the data elements in the
    -- streaming source to record columns in the in-app stream.
    CreateApplication -> Maybe [Input]
inputs :: Prelude.Maybe [Input],
    -- | You can configure application output to write data from any of the
    -- in-application streams to up to three destinations.
    --
    -- These destinations can be Amazon Kinesis streams, Amazon Kinesis
    -- Firehose delivery streams, AWS Lambda destinations, or any combination
    -- of the three.
    --
    -- In the configuration, you specify the in-application stream name, the
    -- destination stream or Lambda function Amazon Resource Name (ARN), and
    -- the format to use when writing data. You must also provide an IAM role
    -- that Amazon Kinesis Analytics can assume to write to the destination
    -- stream or Lambda function on your behalf.
    --
    -- In the output configuration, you also provide the output stream or
    -- Lambda function ARN. For stream destinations, you provide the format of
    -- data in the stream (for example, JSON, CSV). You also must provide an
    -- IAM role that Amazon Kinesis Analytics can assume to write to the stream
    -- or Lambda function on your behalf.
    CreateApplication -> Maybe [Output]
outputs :: Prelude.Maybe [Output],
    -- | A list of one or more tags to assign to the application. A tag is a
    -- key-value pair that identifies an application. Note that the maximum
    -- number of application tags includes system tags. The maximum number of
    -- user-defined application tags is 50. For more information, see
    -- <https://docs.aws.amazon.com/kinesisanalytics/latest/dev/how-tagging.html Using Tagging>.
    CreateApplication -> Maybe (NonEmpty Tag)
tags :: Prelude.Maybe (Prelude.NonEmpty Tag),
    -- | Name of your Amazon Kinesis Analytics application (for example,
    -- @sample-app@).
    CreateApplication -> Text
applicationName :: Prelude.Text
  }
  deriving (CreateApplication -> CreateApplication -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateApplication -> CreateApplication -> Bool
$c/= :: CreateApplication -> CreateApplication -> Bool
== :: CreateApplication -> CreateApplication -> Bool
$c== :: CreateApplication -> CreateApplication -> Bool
Prelude.Eq, ReadPrec [CreateApplication]
ReadPrec CreateApplication
Int -> ReadS CreateApplication
ReadS [CreateApplication]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateApplication]
$creadListPrec :: ReadPrec [CreateApplication]
readPrec :: ReadPrec CreateApplication
$creadPrec :: ReadPrec CreateApplication
readList :: ReadS [CreateApplication]
$creadList :: ReadS [CreateApplication]
readsPrec :: Int -> ReadS CreateApplication
$creadsPrec :: Int -> ReadS CreateApplication
Prelude.Read, Int -> CreateApplication -> ShowS
[CreateApplication] -> ShowS
CreateApplication -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateApplication] -> ShowS
$cshowList :: [CreateApplication] -> ShowS
show :: CreateApplication -> String
$cshow :: CreateApplication -> String
showsPrec :: Int -> CreateApplication -> ShowS
$cshowsPrec :: Int -> CreateApplication -> ShowS
Prelude.Show, forall x. Rep CreateApplication x -> CreateApplication
forall x. CreateApplication -> Rep CreateApplication x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateApplication x -> CreateApplication
$cfrom :: forall x. CreateApplication -> Rep CreateApplication x
Prelude.Generic)

-- |
-- Create a value of 'CreateApplication' 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:
--
-- 'applicationCode', 'createApplication_applicationCode' - One or more SQL statements that read input data, transform it, and
-- generate output. For example, you can write a SQL statement that reads
-- data from one in-application stream, generates a running average of the
-- number of advertisement clicks by vendor, and insert resulting rows in
-- another in-application stream using pumps. For more information about
-- the typical pattern, see
-- <https://docs.aws.amazon.com/kinesisanalytics/latest/dev/how-it-works-app-code.html Application Code>.
--
-- You can provide such series of SQL statements, where output of one
-- statement can be used as the input for the next statement. You store
-- intermediate results by creating in-application streams and pumps.
--
-- Note that the application code must create the streams with names
-- specified in the @Outputs@. For example, if your @Outputs@ defines
-- output streams named @ExampleOutputStream1@ and @ExampleOutputStream2@,
-- then your application code must create these streams.
--
-- 'applicationDescription', 'createApplication_applicationDescription' - Summary description of the application.
--
-- 'cloudWatchLoggingOptions', 'createApplication_cloudWatchLoggingOptions' - Use this parameter to configure a CloudWatch log stream to monitor
-- application configuration errors. For more information, see
-- <https://docs.aws.amazon.com/kinesisanalytics/latest/dev/cloudwatch-logs.html Working with Amazon CloudWatch Logs>.
--
-- 'inputs', 'createApplication_inputs' - Use this parameter to configure the application input.
--
-- You can configure your application to receive input from a single
-- streaming source. In this configuration, you map this streaming source
-- to an in-application stream that is created. Your application code can
-- then query the in-application stream like a table (you can think of it
-- as a constantly updating table).
--
-- For the streaming source, you provide its Amazon Resource Name (ARN) and
-- format of data on the stream (for example, JSON, CSV, etc.). You also
-- must provide an IAM role that Amazon Kinesis Analytics can assume to
-- read this stream on your behalf.
--
-- To create the in-application stream, you need to specify a schema to
-- transform your data into a schematized version used in SQL. In the
-- schema, you provide the necessary mapping of the data elements in the
-- streaming source to record columns in the in-app stream.
--
-- 'outputs', 'createApplication_outputs' - You can configure application output to write data from any of the
-- in-application streams to up to three destinations.
--
-- These destinations can be Amazon Kinesis streams, Amazon Kinesis
-- Firehose delivery streams, AWS Lambda destinations, or any combination
-- of the three.
--
-- In the configuration, you specify the in-application stream name, the
-- destination stream or Lambda function Amazon Resource Name (ARN), and
-- the format to use when writing data. You must also provide an IAM role
-- that Amazon Kinesis Analytics can assume to write to the destination
-- stream or Lambda function on your behalf.
--
-- In the output configuration, you also provide the output stream or
-- Lambda function ARN. For stream destinations, you provide the format of
-- data in the stream (for example, JSON, CSV). You also must provide an
-- IAM role that Amazon Kinesis Analytics can assume to write to the stream
-- or Lambda function on your behalf.
--
-- 'tags', 'createApplication_tags' - A list of one or more tags to assign to the application. A tag is a
-- key-value pair that identifies an application. Note that the maximum
-- number of application tags includes system tags. The maximum number of
-- user-defined application tags is 50. For more information, see
-- <https://docs.aws.amazon.com/kinesisanalytics/latest/dev/how-tagging.html Using Tagging>.
--
-- 'applicationName', 'createApplication_applicationName' - Name of your Amazon Kinesis Analytics application (for example,
-- @sample-app@).
newCreateApplication ::
  -- | 'applicationName'
  Prelude.Text ->
  CreateApplication
newCreateApplication :: Text -> CreateApplication
newCreateApplication Text
pApplicationName_ =
  CreateApplication'
    { $sel:applicationCode:CreateApplication' :: Maybe Text
applicationCode =
        forall a. Maybe a
Prelude.Nothing,
      $sel:applicationDescription:CreateApplication' :: Maybe Text
applicationDescription = forall a. Maybe a
Prelude.Nothing,
      $sel:cloudWatchLoggingOptions:CreateApplication' :: Maybe [CloudWatchLoggingOption]
cloudWatchLoggingOptions = forall a. Maybe a
Prelude.Nothing,
      $sel:inputs:CreateApplication' :: Maybe [Input]
inputs = forall a. Maybe a
Prelude.Nothing,
      $sel:outputs:CreateApplication' :: Maybe [Output]
outputs = forall a. Maybe a
Prelude.Nothing,
      $sel:tags:CreateApplication' :: Maybe (NonEmpty Tag)
tags = forall a. Maybe a
Prelude.Nothing,
      $sel:applicationName:CreateApplication' :: Text
applicationName = Text
pApplicationName_
    }

-- | One or more SQL statements that read input data, transform it, and
-- generate output. For example, you can write a SQL statement that reads
-- data from one in-application stream, generates a running average of the
-- number of advertisement clicks by vendor, and insert resulting rows in
-- another in-application stream using pumps. For more information about
-- the typical pattern, see
-- <https://docs.aws.amazon.com/kinesisanalytics/latest/dev/how-it-works-app-code.html Application Code>.
--
-- You can provide such series of SQL statements, where output of one
-- statement can be used as the input for the next statement. You store
-- intermediate results by creating in-application streams and pumps.
--
-- Note that the application code must create the streams with names
-- specified in the @Outputs@. For example, if your @Outputs@ defines
-- output streams named @ExampleOutputStream1@ and @ExampleOutputStream2@,
-- then your application code must create these streams.
createApplication_applicationCode :: Lens.Lens' CreateApplication (Prelude.Maybe Prelude.Text)
createApplication_applicationCode :: Lens' CreateApplication (Maybe Text)
createApplication_applicationCode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplication' {Maybe Text
applicationCode :: Maybe Text
$sel:applicationCode:CreateApplication' :: CreateApplication -> Maybe Text
applicationCode} -> Maybe Text
applicationCode) (\s :: CreateApplication
s@CreateApplication' {} Maybe Text
a -> CreateApplication
s {$sel:applicationCode:CreateApplication' :: Maybe Text
applicationCode = Maybe Text
a} :: CreateApplication)

-- | Summary description of the application.
createApplication_applicationDescription :: Lens.Lens' CreateApplication (Prelude.Maybe Prelude.Text)
createApplication_applicationDescription :: Lens' CreateApplication (Maybe Text)
createApplication_applicationDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplication' {Maybe Text
applicationDescription :: Maybe Text
$sel:applicationDescription:CreateApplication' :: CreateApplication -> Maybe Text
applicationDescription} -> Maybe Text
applicationDescription) (\s :: CreateApplication
s@CreateApplication' {} Maybe Text
a -> CreateApplication
s {$sel:applicationDescription:CreateApplication' :: Maybe Text
applicationDescription = Maybe Text
a} :: CreateApplication)

-- | Use this parameter to configure a CloudWatch log stream to monitor
-- application configuration errors. For more information, see
-- <https://docs.aws.amazon.com/kinesisanalytics/latest/dev/cloudwatch-logs.html Working with Amazon CloudWatch Logs>.
createApplication_cloudWatchLoggingOptions :: Lens.Lens' CreateApplication (Prelude.Maybe [CloudWatchLoggingOption])
createApplication_cloudWatchLoggingOptions :: Lens' CreateApplication (Maybe [CloudWatchLoggingOption])
createApplication_cloudWatchLoggingOptions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplication' {Maybe [CloudWatchLoggingOption]
cloudWatchLoggingOptions :: Maybe [CloudWatchLoggingOption]
$sel:cloudWatchLoggingOptions:CreateApplication' :: CreateApplication -> Maybe [CloudWatchLoggingOption]
cloudWatchLoggingOptions} -> Maybe [CloudWatchLoggingOption]
cloudWatchLoggingOptions) (\s :: CreateApplication
s@CreateApplication' {} Maybe [CloudWatchLoggingOption]
a -> CreateApplication
s {$sel:cloudWatchLoggingOptions:CreateApplication' :: Maybe [CloudWatchLoggingOption]
cloudWatchLoggingOptions = Maybe [CloudWatchLoggingOption]
a} :: CreateApplication) 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

-- | Use this parameter to configure the application input.
--
-- You can configure your application to receive input from a single
-- streaming source. In this configuration, you map this streaming source
-- to an in-application stream that is created. Your application code can
-- then query the in-application stream like a table (you can think of it
-- as a constantly updating table).
--
-- For the streaming source, you provide its Amazon Resource Name (ARN) and
-- format of data on the stream (for example, JSON, CSV, etc.). You also
-- must provide an IAM role that Amazon Kinesis Analytics can assume to
-- read this stream on your behalf.
--
-- To create the in-application stream, you need to specify a schema to
-- transform your data into a schematized version used in SQL. In the
-- schema, you provide the necessary mapping of the data elements in the
-- streaming source to record columns in the in-app stream.
createApplication_inputs :: Lens.Lens' CreateApplication (Prelude.Maybe [Input])
createApplication_inputs :: Lens' CreateApplication (Maybe [Input])
createApplication_inputs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplication' {Maybe [Input]
inputs :: Maybe [Input]
$sel:inputs:CreateApplication' :: CreateApplication -> Maybe [Input]
inputs} -> Maybe [Input]
inputs) (\s :: CreateApplication
s@CreateApplication' {} Maybe [Input]
a -> CreateApplication
s {$sel:inputs:CreateApplication' :: Maybe [Input]
inputs = Maybe [Input]
a} :: CreateApplication) 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

-- | You can configure application output to write data from any of the
-- in-application streams to up to three destinations.
--
-- These destinations can be Amazon Kinesis streams, Amazon Kinesis
-- Firehose delivery streams, AWS Lambda destinations, or any combination
-- of the three.
--
-- In the configuration, you specify the in-application stream name, the
-- destination stream or Lambda function Amazon Resource Name (ARN), and
-- the format to use when writing data. You must also provide an IAM role
-- that Amazon Kinesis Analytics can assume to write to the destination
-- stream or Lambda function on your behalf.
--
-- In the output configuration, you also provide the output stream or
-- Lambda function ARN. For stream destinations, you provide the format of
-- data in the stream (for example, JSON, CSV). You also must provide an
-- IAM role that Amazon Kinesis Analytics can assume to write to the stream
-- or Lambda function on your behalf.
createApplication_outputs :: Lens.Lens' CreateApplication (Prelude.Maybe [Output])
createApplication_outputs :: Lens' CreateApplication (Maybe [Output])
createApplication_outputs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplication' {Maybe [Output]
outputs :: Maybe [Output]
$sel:outputs:CreateApplication' :: CreateApplication -> Maybe [Output]
outputs} -> Maybe [Output]
outputs) (\s :: CreateApplication
s@CreateApplication' {} Maybe [Output]
a -> CreateApplication
s {$sel:outputs:CreateApplication' :: Maybe [Output]
outputs = Maybe [Output]
a} :: CreateApplication) 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

-- | A list of one or more tags to assign to the application. A tag is a
-- key-value pair that identifies an application. Note that the maximum
-- number of application tags includes system tags. The maximum number of
-- user-defined application tags is 50. For more information, see
-- <https://docs.aws.amazon.com/kinesisanalytics/latest/dev/how-tagging.html Using Tagging>.
createApplication_tags :: Lens.Lens' CreateApplication (Prelude.Maybe (Prelude.NonEmpty Tag))
createApplication_tags :: Lens' CreateApplication (Maybe (NonEmpty Tag))
createApplication_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplication' {Maybe (NonEmpty Tag)
tags :: Maybe (NonEmpty Tag)
$sel:tags:CreateApplication' :: CreateApplication -> Maybe (NonEmpty Tag)
tags} -> Maybe (NonEmpty Tag)
tags) (\s :: CreateApplication
s@CreateApplication' {} Maybe (NonEmpty Tag)
a -> CreateApplication
s {$sel:tags:CreateApplication' :: Maybe (NonEmpty Tag)
tags = Maybe (NonEmpty Tag)
a} :: CreateApplication) 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

-- | Name of your Amazon Kinesis Analytics application (for example,
-- @sample-app@).
createApplication_applicationName :: Lens.Lens' CreateApplication Prelude.Text
createApplication_applicationName :: Lens' CreateApplication Text
createApplication_applicationName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplication' {Text
applicationName :: Text
$sel:applicationName:CreateApplication' :: CreateApplication -> Text
applicationName} -> Text
applicationName) (\s :: CreateApplication
s@CreateApplication' {} Text
a -> CreateApplication
s {$sel:applicationName:CreateApplication' :: Text
applicationName = Text
a} :: CreateApplication)

instance Core.AWSRequest CreateApplication where
  type
    AWSResponse CreateApplication =
      CreateApplicationResponse
  request :: (Service -> Service)
-> CreateApplication -> Request CreateApplication
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 CreateApplication
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse CreateApplication)))
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 -> ApplicationSummary -> CreateApplicationResponse
CreateApplicationResponse'
            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.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"ApplicationSummary")
      )

instance Prelude.Hashable CreateApplication where
  hashWithSalt :: Int -> CreateApplication -> Int
hashWithSalt Int
_salt CreateApplication' {Maybe [CloudWatchLoggingOption]
Maybe [Output]
Maybe [Input]
Maybe (NonEmpty Tag)
Maybe Text
Text
applicationName :: Text
tags :: Maybe (NonEmpty Tag)
outputs :: Maybe [Output]
inputs :: Maybe [Input]
cloudWatchLoggingOptions :: Maybe [CloudWatchLoggingOption]
applicationDescription :: Maybe Text
applicationCode :: Maybe Text
$sel:applicationName:CreateApplication' :: CreateApplication -> Text
$sel:tags:CreateApplication' :: CreateApplication -> Maybe (NonEmpty Tag)
$sel:outputs:CreateApplication' :: CreateApplication -> Maybe [Output]
$sel:inputs:CreateApplication' :: CreateApplication -> Maybe [Input]
$sel:cloudWatchLoggingOptions:CreateApplication' :: CreateApplication -> Maybe [CloudWatchLoggingOption]
$sel:applicationDescription:CreateApplication' :: CreateApplication -> Maybe Text
$sel:applicationCode:CreateApplication' :: CreateApplication -> Maybe Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
applicationCode
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
applicationDescription
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [CloudWatchLoggingOption]
cloudWatchLoggingOptions
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Input]
inputs
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Output]
outputs
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty Tag)
tags
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
applicationName

instance Prelude.NFData CreateApplication where
  rnf :: CreateApplication -> ()
rnf CreateApplication' {Maybe [CloudWatchLoggingOption]
Maybe [Output]
Maybe [Input]
Maybe (NonEmpty Tag)
Maybe Text
Text
applicationName :: Text
tags :: Maybe (NonEmpty Tag)
outputs :: Maybe [Output]
inputs :: Maybe [Input]
cloudWatchLoggingOptions :: Maybe [CloudWatchLoggingOption]
applicationDescription :: Maybe Text
applicationCode :: Maybe Text
$sel:applicationName:CreateApplication' :: CreateApplication -> Text
$sel:tags:CreateApplication' :: CreateApplication -> Maybe (NonEmpty Tag)
$sel:outputs:CreateApplication' :: CreateApplication -> Maybe [Output]
$sel:inputs:CreateApplication' :: CreateApplication -> Maybe [Input]
$sel:cloudWatchLoggingOptions:CreateApplication' :: CreateApplication -> Maybe [CloudWatchLoggingOption]
$sel:applicationDescription:CreateApplication' :: CreateApplication -> Maybe Text
$sel:applicationCode:CreateApplication' :: CreateApplication -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
applicationCode
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
applicationDescription
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [CloudWatchLoggingOption]
cloudWatchLoggingOptions
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Input]
inputs
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Output]
outputs
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty Tag)
tags
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
applicationName

instance Data.ToHeaders CreateApplication where
  toHeaders :: CreateApplication -> 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
"KinesisAnalytics_20150814.CreateApplication" ::
                          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 CreateApplication where
  toJSON :: CreateApplication -> Value
toJSON CreateApplication' {Maybe [CloudWatchLoggingOption]
Maybe [Output]
Maybe [Input]
Maybe (NonEmpty Tag)
Maybe Text
Text
applicationName :: Text
tags :: Maybe (NonEmpty Tag)
outputs :: Maybe [Output]
inputs :: Maybe [Input]
cloudWatchLoggingOptions :: Maybe [CloudWatchLoggingOption]
applicationDescription :: Maybe Text
applicationCode :: Maybe Text
$sel:applicationName:CreateApplication' :: CreateApplication -> Text
$sel:tags:CreateApplication' :: CreateApplication -> Maybe (NonEmpty Tag)
$sel:outputs:CreateApplication' :: CreateApplication -> Maybe [Output]
$sel:inputs:CreateApplication' :: CreateApplication -> Maybe [Input]
$sel:cloudWatchLoggingOptions:CreateApplication' :: CreateApplication -> Maybe [CloudWatchLoggingOption]
$sel:applicationDescription:CreateApplication' :: CreateApplication -> Maybe Text
$sel:applicationCode:CreateApplication' :: CreateApplication -> Maybe Text
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"ApplicationCode" 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
applicationCode,
            (Key
"ApplicationDescription" 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
applicationDescription,
            (Key
"CloudWatchLoggingOptions" 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 [CloudWatchLoggingOption]
cloudWatchLoggingOptions,
            (Key
"Inputs" 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 [Input]
inputs,
            (Key
"Outputs" 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 [Output]
outputs,
            (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 (NonEmpty Tag)
tags,
            forall a. a -> Maybe a
Prelude.Just
              (Key
"ApplicationName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
applicationName)
          ]
      )

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

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

-- | TBD
--
-- /See:/ 'newCreateApplicationResponse' smart constructor.
data CreateApplicationResponse = CreateApplicationResponse'
  { -- | The response's http status code.
    CreateApplicationResponse -> Int
httpStatus :: Prelude.Int,
    -- | In response to your @CreateApplication@ request, Amazon Kinesis
    -- Analytics returns a response with a summary of the application it
    -- created, including the application Amazon Resource Name (ARN), name, and
    -- status.
    CreateApplicationResponse -> ApplicationSummary
applicationSummary :: ApplicationSummary
  }
  deriving (CreateApplicationResponse -> CreateApplicationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateApplicationResponse -> CreateApplicationResponse -> Bool
$c/= :: CreateApplicationResponse -> CreateApplicationResponse -> Bool
== :: CreateApplicationResponse -> CreateApplicationResponse -> Bool
$c== :: CreateApplicationResponse -> CreateApplicationResponse -> Bool
Prelude.Eq, ReadPrec [CreateApplicationResponse]
ReadPrec CreateApplicationResponse
Int -> ReadS CreateApplicationResponse
ReadS [CreateApplicationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateApplicationResponse]
$creadListPrec :: ReadPrec [CreateApplicationResponse]
readPrec :: ReadPrec CreateApplicationResponse
$creadPrec :: ReadPrec CreateApplicationResponse
readList :: ReadS [CreateApplicationResponse]
$creadList :: ReadS [CreateApplicationResponse]
readsPrec :: Int -> ReadS CreateApplicationResponse
$creadsPrec :: Int -> ReadS CreateApplicationResponse
Prelude.Read, Int -> CreateApplicationResponse -> ShowS
[CreateApplicationResponse] -> ShowS
CreateApplicationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateApplicationResponse] -> ShowS
$cshowList :: [CreateApplicationResponse] -> ShowS
show :: CreateApplicationResponse -> String
$cshow :: CreateApplicationResponse -> String
showsPrec :: Int -> CreateApplicationResponse -> ShowS
$cshowsPrec :: Int -> CreateApplicationResponse -> ShowS
Prelude.Show, forall x.
Rep CreateApplicationResponse x -> CreateApplicationResponse
forall x.
CreateApplicationResponse -> Rep CreateApplicationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateApplicationResponse x -> CreateApplicationResponse
$cfrom :: forall x.
CreateApplicationResponse -> Rep CreateApplicationResponse x
Prelude.Generic)

-- |
-- Create a value of 'CreateApplicationResponse' 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', 'createApplicationResponse_httpStatus' - The response's http status code.
--
-- 'applicationSummary', 'createApplicationResponse_applicationSummary' - In response to your @CreateApplication@ request, Amazon Kinesis
-- Analytics returns a response with a summary of the application it
-- created, including the application Amazon Resource Name (ARN), name, and
-- status.
newCreateApplicationResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  -- | 'applicationSummary'
  ApplicationSummary ->
  CreateApplicationResponse
newCreateApplicationResponse :: Int -> ApplicationSummary -> CreateApplicationResponse
newCreateApplicationResponse
  Int
pHttpStatus_
  ApplicationSummary
pApplicationSummary_ =
    CreateApplicationResponse'
      { $sel:httpStatus:CreateApplicationResponse' :: Int
httpStatus =
          Int
pHttpStatus_,
        $sel:applicationSummary:CreateApplicationResponse' :: ApplicationSummary
applicationSummary = ApplicationSummary
pApplicationSummary_
      }

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

-- | In response to your @CreateApplication@ request, Amazon Kinesis
-- Analytics returns a response with a summary of the application it
-- created, including the application Amazon Resource Name (ARN), name, and
-- status.
createApplicationResponse_applicationSummary :: Lens.Lens' CreateApplicationResponse ApplicationSummary
createApplicationResponse_applicationSummary :: Lens' CreateApplicationResponse ApplicationSummary
createApplicationResponse_applicationSummary = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateApplicationResponse' {ApplicationSummary
applicationSummary :: ApplicationSummary
$sel:applicationSummary:CreateApplicationResponse' :: CreateApplicationResponse -> ApplicationSummary
applicationSummary} -> ApplicationSummary
applicationSummary) (\s :: CreateApplicationResponse
s@CreateApplicationResponse' {} ApplicationSummary
a -> CreateApplicationResponse
s {$sel:applicationSummary:CreateApplicationResponse' :: ApplicationSummary
applicationSummary = ApplicationSummary
a} :: CreateApplicationResponse)

instance Prelude.NFData CreateApplicationResponse where
  rnf :: CreateApplicationResponse -> ()
rnf CreateApplicationResponse' {Int
ApplicationSummary
applicationSummary :: ApplicationSummary
httpStatus :: Int
$sel:applicationSummary:CreateApplicationResponse' :: CreateApplicationResponse -> ApplicationSummary
$sel:httpStatus:CreateApplicationResponse' :: CreateApplicationResponse -> 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 ApplicationSummary
applicationSummary