{-# 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 #-}
module Amazonka.KinesisAnalytics.AddApplicationInputProcessingConfiguration
(
AddApplicationInputProcessingConfiguration (..),
newAddApplicationInputProcessingConfiguration,
addApplicationInputProcessingConfiguration_applicationName,
addApplicationInputProcessingConfiguration_currentApplicationVersionId,
addApplicationInputProcessingConfiguration_inputId,
addApplicationInputProcessingConfiguration_inputProcessingConfiguration,
AddApplicationInputProcessingConfigurationResponse (..),
newAddApplicationInputProcessingConfigurationResponse,
addApplicationInputProcessingConfigurationResponse_httpStatus,
)
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
data AddApplicationInputProcessingConfiguration = AddApplicationInputProcessingConfiguration'
{
AddApplicationInputProcessingConfiguration -> Text
applicationName :: Prelude.Text,
AddApplicationInputProcessingConfiguration -> Natural
currentApplicationVersionId :: Prelude.Natural,
AddApplicationInputProcessingConfiguration -> Text
inputId :: Prelude.Text,
AddApplicationInputProcessingConfiguration
-> InputProcessingConfiguration
inputProcessingConfiguration :: InputProcessingConfiguration
}
deriving (AddApplicationInputProcessingConfiguration
-> AddApplicationInputProcessingConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AddApplicationInputProcessingConfiguration
-> AddApplicationInputProcessingConfiguration -> Bool
$c/= :: AddApplicationInputProcessingConfiguration
-> AddApplicationInputProcessingConfiguration -> Bool
== :: AddApplicationInputProcessingConfiguration
-> AddApplicationInputProcessingConfiguration -> Bool
$c== :: AddApplicationInputProcessingConfiguration
-> AddApplicationInputProcessingConfiguration -> Bool
Prelude.Eq, ReadPrec [AddApplicationInputProcessingConfiguration]
ReadPrec AddApplicationInputProcessingConfiguration
Int -> ReadS AddApplicationInputProcessingConfiguration
ReadS [AddApplicationInputProcessingConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AddApplicationInputProcessingConfiguration]
$creadListPrec :: ReadPrec [AddApplicationInputProcessingConfiguration]
readPrec :: ReadPrec AddApplicationInputProcessingConfiguration
$creadPrec :: ReadPrec AddApplicationInputProcessingConfiguration
readList :: ReadS [AddApplicationInputProcessingConfiguration]
$creadList :: ReadS [AddApplicationInputProcessingConfiguration]
readsPrec :: Int -> ReadS AddApplicationInputProcessingConfiguration
$creadsPrec :: Int -> ReadS AddApplicationInputProcessingConfiguration
Prelude.Read, Int -> AddApplicationInputProcessingConfiguration -> ShowS
[AddApplicationInputProcessingConfiguration] -> ShowS
AddApplicationInputProcessingConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AddApplicationInputProcessingConfiguration] -> ShowS
$cshowList :: [AddApplicationInputProcessingConfiguration] -> ShowS
show :: AddApplicationInputProcessingConfiguration -> String
$cshow :: AddApplicationInputProcessingConfiguration -> String
showsPrec :: Int -> AddApplicationInputProcessingConfiguration -> ShowS
$cshowsPrec :: Int -> AddApplicationInputProcessingConfiguration -> ShowS
Prelude.Show, forall x.
Rep AddApplicationInputProcessingConfiguration x
-> AddApplicationInputProcessingConfiguration
forall x.
AddApplicationInputProcessingConfiguration
-> Rep AddApplicationInputProcessingConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AddApplicationInputProcessingConfiguration x
-> AddApplicationInputProcessingConfiguration
$cfrom :: forall x.
AddApplicationInputProcessingConfiguration
-> Rep AddApplicationInputProcessingConfiguration x
Prelude.Generic)
newAddApplicationInputProcessingConfiguration ::
Prelude.Text ->
Prelude.Natural ->
Prelude.Text ->
InputProcessingConfiguration ->
AddApplicationInputProcessingConfiguration
newAddApplicationInputProcessingConfiguration :: Text
-> Natural
-> Text
-> InputProcessingConfiguration
-> AddApplicationInputProcessingConfiguration
newAddApplicationInputProcessingConfiguration
Text
pApplicationName_
Natural
pCurrentApplicationVersionId_
Text
pInputId_
InputProcessingConfiguration
pInputProcessingConfiguration_ =
AddApplicationInputProcessingConfiguration'
{ $sel:applicationName:AddApplicationInputProcessingConfiguration' :: Text
applicationName =
Text
pApplicationName_,
$sel:currentApplicationVersionId:AddApplicationInputProcessingConfiguration' :: Natural
currentApplicationVersionId =
Natural
pCurrentApplicationVersionId_,
$sel:inputId:AddApplicationInputProcessingConfiguration' :: Text
inputId = Text
pInputId_,
$sel:inputProcessingConfiguration:AddApplicationInputProcessingConfiguration' :: InputProcessingConfiguration
inputProcessingConfiguration =
InputProcessingConfiguration
pInputProcessingConfiguration_
}
addApplicationInputProcessingConfiguration_applicationName :: Lens.Lens' AddApplicationInputProcessingConfiguration Prelude.Text
addApplicationInputProcessingConfiguration_applicationName :: Lens' AddApplicationInputProcessingConfiguration Text
addApplicationInputProcessingConfiguration_applicationName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddApplicationInputProcessingConfiguration' {Text
applicationName :: Text
$sel:applicationName:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration -> Text
applicationName} -> Text
applicationName) (\s :: AddApplicationInputProcessingConfiguration
s@AddApplicationInputProcessingConfiguration' {} Text
a -> AddApplicationInputProcessingConfiguration
s {$sel:applicationName:AddApplicationInputProcessingConfiguration' :: Text
applicationName = Text
a} :: AddApplicationInputProcessingConfiguration)
addApplicationInputProcessingConfiguration_currentApplicationVersionId :: Lens.Lens' AddApplicationInputProcessingConfiguration Prelude.Natural
addApplicationInputProcessingConfiguration_currentApplicationVersionId :: Lens' AddApplicationInputProcessingConfiguration Natural
addApplicationInputProcessingConfiguration_currentApplicationVersionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddApplicationInputProcessingConfiguration' {Natural
currentApplicationVersionId :: Natural
$sel:currentApplicationVersionId:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration -> Natural
currentApplicationVersionId} -> Natural
currentApplicationVersionId) (\s :: AddApplicationInputProcessingConfiguration
s@AddApplicationInputProcessingConfiguration' {} Natural
a -> AddApplicationInputProcessingConfiguration
s {$sel:currentApplicationVersionId:AddApplicationInputProcessingConfiguration' :: Natural
currentApplicationVersionId = Natural
a} :: AddApplicationInputProcessingConfiguration)
addApplicationInputProcessingConfiguration_inputId :: Lens.Lens' AddApplicationInputProcessingConfiguration Prelude.Text
addApplicationInputProcessingConfiguration_inputId :: Lens' AddApplicationInputProcessingConfiguration Text
addApplicationInputProcessingConfiguration_inputId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddApplicationInputProcessingConfiguration' {Text
inputId :: Text
$sel:inputId:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration -> Text
inputId} -> Text
inputId) (\s :: AddApplicationInputProcessingConfiguration
s@AddApplicationInputProcessingConfiguration' {} Text
a -> AddApplicationInputProcessingConfiguration
s {$sel:inputId:AddApplicationInputProcessingConfiguration' :: Text
inputId = Text
a} :: AddApplicationInputProcessingConfiguration)
addApplicationInputProcessingConfiguration_inputProcessingConfiguration :: Lens.Lens' AddApplicationInputProcessingConfiguration InputProcessingConfiguration
addApplicationInputProcessingConfiguration_inputProcessingConfiguration :: Lens'
AddApplicationInputProcessingConfiguration
InputProcessingConfiguration
addApplicationInputProcessingConfiguration_inputProcessingConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddApplicationInputProcessingConfiguration' {InputProcessingConfiguration
inputProcessingConfiguration :: InputProcessingConfiguration
$sel:inputProcessingConfiguration:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration
-> InputProcessingConfiguration
inputProcessingConfiguration} -> InputProcessingConfiguration
inputProcessingConfiguration) (\s :: AddApplicationInputProcessingConfiguration
s@AddApplicationInputProcessingConfiguration' {} InputProcessingConfiguration
a -> AddApplicationInputProcessingConfiguration
s {$sel:inputProcessingConfiguration:AddApplicationInputProcessingConfiguration' :: InputProcessingConfiguration
inputProcessingConfiguration = InputProcessingConfiguration
a} :: AddApplicationInputProcessingConfiguration)
instance
Core.AWSRequest
AddApplicationInputProcessingConfiguration
where
type
AWSResponse
AddApplicationInputProcessingConfiguration =
AddApplicationInputProcessingConfigurationResponse
request :: (Service -> Service)
-> AddApplicationInputProcessingConfiguration
-> Request AddApplicationInputProcessingConfiguration
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 AddApplicationInputProcessingConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse AddApplicationInputProcessingConfiguration)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> AddApplicationInputProcessingConfigurationResponse
AddApplicationInputProcessingConfigurationResponse'
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))
)
instance
Prelude.Hashable
AddApplicationInputProcessingConfiguration
where
hashWithSalt :: Int -> AddApplicationInputProcessingConfiguration -> Int
hashWithSalt
Int
_salt
AddApplicationInputProcessingConfiguration' {Natural
Text
InputProcessingConfiguration
inputProcessingConfiguration :: InputProcessingConfiguration
inputId :: Text
currentApplicationVersionId :: Natural
applicationName :: Text
$sel:inputProcessingConfiguration:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration
-> InputProcessingConfiguration
$sel:inputId:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration -> Text
$sel:currentApplicationVersionId:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration -> Natural
$sel:applicationName:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
applicationName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Natural
currentApplicationVersionId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
inputId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` InputProcessingConfiguration
inputProcessingConfiguration
instance
Prelude.NFData
AddApplicationInputProcessingConfiguration
where
rnf :: AddApplicationInputProcessingConfiguration -> ()
rnf AddApplicationInputProcessingConfiguration' {Natural
Text
InputProcessingConfiguration
inputProcessingConfiguration :: InputProcessingConfiguration
inputId :: Text
currentApplicationVersionId :: Natural
applicationName :: Text
$sel:inputProcessingConfiguration:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration
-> InputProcessingConfiguration
$sel:inputId:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration -> Text
$sel:currentApplicationVersionId:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration -> Natural
$sel:applicationName:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
applicationName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Natural
currentApplicationVersionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
inputId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf InputProcessingConfiguration
inputProcessingConfiguration
instance
Data.ToHeaders
AddApplicationInputProcessingConfiguration
where
toHeaders :: AddApplicationInputProcessingConfiguration -> 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.AddApplicationInputProcessingConfiguration" ::
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
AddApplicationInputProcessingConfiguration
where
toJSON :: AddApplicationInputProcessingConfiguration -> Value
toJSON
AddApplicationInputProcessingConfiguration' {Natural
Text
InputProcessingConfiguration
inputProcessingConfiguration :: InputProcessingConfiguration
inputId :: Text
currentApplicationVersionId :: Natural
applicationName :: Text
$sel:inputProcessingConfiguration:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration
-> InputProcessingConfiguration
$sel:inputId:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration -> Text
$sel:currentApplicationVersionId:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration -> Natural
$sel:applicationName:AddApplicationInputProcessingConfiguration' :: AddApplicationInputProcessingConfiguration -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"ApplicationName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
applicationName),
forall a. a -> Maybe a
Prelude.Just
( Key
"CurrentApplicationVersionId"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Natural
currentApplicationVersionId
),
forall a. a -> Maybe a
Prelude.Just (Key
"InputId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
inputId),
forall a. a -> Maybe a
Prelude.Just
( Key
"InputProcessingConfiguration"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= InputProcessingConfiguration
inputProcessingConfiguration
)
]
)
instance
Data.ToPath
AddApplicationInputProcessingConfiguration
where
toPath :: AddApplicationInputProcessingConfiguration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
AddApplicationInputProcessingConfiguration
where
toQuery :: AddApplicationInputProcessingConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data AddApplicationInputProcessingConfigurationResponse = AddApplicationInputProcessingConfigurationResponse'
{
AddApplicationInputProcessingConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (AddApplicationInputProcessingConfigurationResponse
-> AddApplicationInputProcessingConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AddApplicationInputProcessingConfigurationResponse
-> AddApplicationInputProcessingConfigurationResponse -> Bool
$c/= :: AddApplicationInputProcessingConfigurationResponse
-> AddApplicationInputProcessingConfigurationResponse -> Bool
== :: AddApplicationInputProcessingConfigurationResponse
-> AddApplicationInputProcessingConfigurationResponse -> Bool
$c== :: AddApplicationInputProcessingConfigurationResponse
-> AddApplicationInputProcessingConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [AddApplicationInputProcessingConfigurationResponse]
ReadPrec AddApplicationInputProcessingConfigurationResponse
Int -> ReadS AddApplicationInputProcessingConfigurationResponse
ReadS [AddApplicationInputProcessingConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AddApplicationInputProcessingConfigurationResponse]
$creadListPrec :: ReadPrec [AddApplicationInputProcessingConfigurationResponse]
readPrec :: ReadPrec AddApplicationInputProcessingConfigurationResponse
$creadPrec :: ReadPrec AddApplicationInputProcessingConfigurationResponse
readList :: ReadS [AddApplicationInputProcessingConfigurationResponse]
$creadList :: ReadS [AddApplicationInputProcessingConfigurationResponse]
readsPrec :: Int -> ReadS AddApplicationInputProcessingConfigurationResponse
$creadsPrec :: Int -> ReadS AddApplicationInputProcessingConfigurationResponse
Prelude.Read, Int -> AddApplicationInputProcessingConfigurationResponse -> ShowS
[AddApplicationInputProcessingConfigurationResponse] -> ShowS
AddApplicationInputProcessingConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AddApplicationInputProcessingConfigurationResponse] -> ShowS
$cshowList :: [AddApplicationInputProcessingConfigurationResponse] -> ShowS
show :: AddApplicationInputProcessingConfigurationResponse -> String
$cshow :: AddApplicationInputProcessingConfigurationResponse -> String
showsPrec :: Int -> AddApplicationInputProcessingConfigurationResponse -> ShowS
$cshowsPrec :: Int -> AddApplicationInputProcessingConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep AddApplicationInputProcessingConfigurationResponse x
-> AddApplicationInputProcessingConfigurationResponse
forall x.
AddApplicationInputProcessingConfigurationResponse
-> Rep AddApplicationInputProcessingConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AddApplicationInputProcessingConfigurationResponse x
-> AddApplicationInputProcessingConfigurationResponse
$cfrom :: forall x.
AddApplicationInputProcessingConfigurationResponse
-> Rep AddApplicationInputProcessingConfigurationResponse x
Prelude.Generic)
newAddApplicationInputProcessingConfigurationResponse ::
Prelude.Int ->
AddApplicationInputProcessingConfigurationResponse
newAddApplicationInputProcessingConfigurationResponse :: Int -> AddApplicationInputProcessingConfigurationResponse
newAddApplicationInputProcessingConfigurationResponse
Int
pHttpStatus_ =
AddApplicationInputProcessingConfigurationResponse'
{ $sel:httpStatus:AddApplicationInputProcessingConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
addApplicationInputProcessingConfigurationResponse_httpStatus :: Lens.Lens' AddApplicationInputProcessingConfigurationResponse Prelude.Int
addApplicationInputProcessingConfigurationResponse_httpStatus :: Lens' AddApplicationInputProcessingConfigurationResponse Int
addApplicationInputProcessingConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AddApplicationInputProcessingConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:AddApplicationInputProcessingConfigurationResponse' :: AddApplicationInputProcessingConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: AddApplicationInputProcessingConfigurationResponse
s@AddApplicationInputProcessingConfigurationResponse' {} Int
a -> AddApplicationInputProcessingConfigurationResponse
s {$sel:httpStatus:AddApplicationInputProcessingConfigurationResponse' :: Int
httpStatus = Int
a} :: AddApplicationInputProcessingConfigurationResponse)
instance
Prelude.NFData
AddApplicationInputProcessingConfigurationResponse
where
rnf :: AddApplicationInputProcessingConfigurationResponse -> ()
rnf
AddApplicationInputProcessingConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:AddApplicationInputProcessingConfigurationResponse' :: AddApplicationInputProcessingConfigurationResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus