forked from brendanhay/amazonka
-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Regenerating amazonka-kinesis-analytics from latest service definition
- Loading branch information
1 parent
50822a4
commit a4f9c5c
Showing
14 changed files
with
683 additions
and
49 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
10 changes: 10 additions & 0 deletions
10
amazonka-kinesis-analytics/fixture/AddApplicationCloudWatchLoggingOption.yaml
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,10 @@ | ||
| --- | ||
| method: POST | ||
| headers: | ||
| Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisanalytics/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? | ||
| Host: kinesisanalytics.us-east-1.amazonaws.com | ||
| Content-Type: application/x-www-form-urlencoded; charset=utf-8 | ||
| X-Amz-Content-SHA256: abcdef | ||
| X-Amz-Date: 20091028T223200Z | ||
| body: | ||
| '' |
Empty file.
10 changes: 10 additions & 0 deletions
10
amazonka-kinesis-analytics/fixture/DeleteApplicationCloudWatchLoggingOption.yaml
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,10 @@ | ||
| --- | ||
| method: POST | ||
| headers: | ||
| Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/kinesisanalytics/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? | ||
| Host: kinesisanalytics.us-east-1.amazonaws.com | ||
| Content-Type: application/x-www-form-urlencoded; charset=utf-8 | ||
| X-Amz-Content-SHA256: abcdef | ||
| X-Amz-Date: 20091028T223200Z | ||
| body: | ||
| '' |
Empty file.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
159 changes: 159 additions & 0 deletions
159
...nesis-analytics/gen/Network/AWS/KinesisAnalytics/AddApplicationCloudWatchLoggingOption.hs
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -0,0 +1,159 @@ | ||
| {-# LANGUAGE DeriveDataTypeable #-} | ||
| {-# LANGUAGE DeriveGeneric #-} | ||
| {-# LANGUAGE OverloadedStrings #-} | ||
| {-# LANGUAGE RecordWildCards #-} | ||
| {-# LANGUAGE TypeFamilies #-} | ||
|
|
||
| {-# OPTIONS_GHC -fno-warn-unused-imports #-} | ||
| {-# OPTIONS_GHC -fno-warn-unused-binds #-} | ||
| {-# OPTIONS_GHC -fno-warn-unused-matches #-} | ||
|
|
||
| -- Derived from AWS service descriptions, licensed under Apache 2.0. | ||
|
|
||
| -- | | ||
| -- Module : Network.AWS.KinesisAnalytics.AddApplicationCloudWatchLoggingOption | ||
| -- Copyright : (c) 2013-2016 Brendan Hay | ||
| -- License : Mozilla Public License, v. 2.0. | ||
| -- Maintainer : Brendan Hay <[email protected]> | ||
| -- Stability : auto-generated | ||
| -- Portability : non-portable (GHC extensions) | ||
| -- | ||
| -- Adds a CloudWatch log stream to monitor application configuration errors. For more information about using CloudWatch log streams with Amazon Kinesis Analytics applications, see <http://docs.aws.amazon.com/kinesisanalytics/latest/dev/cloudwatch-logs.html Working with Amazon CloudWatch Logs> . | ||
| -- | ||
| -- | ||
| module Network.AWS.KinesisAnalytics.AddApplicationCloudWatchLoggingOption | ||
| ( | ||
| -- * Creating a Request | ||
| addApplicationCloudWatchLoggingOption | ||
| , AddApplicationCloudWatchLoggingOption | ||
| -- * Request Lenses | ||
| , aacwloApplicationName | ||
| , aacwloCurrentApplicationVersionId | ||
| , aacwloCloudWatchLoggingOption | ||
|
|
||
| -- * Destructuring the Response | ||
| , addApplicationCloudWatchLoggingOptionResponse | ||
| , AddApplicationCloudWatchLoggingOptionResponse | ||
| -- * Response Lenses | ||
| , aacwlorsResponseStatus | ||
| ) where | ||
|
|
||
| import Network.AWS.KinesisAnalytics.Types | ||
| import Network.AWS.KinesisAnalytics.Types.Product | ||
| import Network.AWS.Lens | ||
| import Network.AWS.Prelude | ||
| import Network.AWS.Request | ||
| import Network.AWS.Response | ||
|
|
||
| -- | /See:/ 'addApplicationCloudWatchLoggingOption' smart constructor. | ||
| data AddApplicationCloudWatchLoggingOption = AddApplicationCloudWatchLoggingOption' | ||
| { _aacwloApplicationName :: !Text | ||
| , _aacwloCurrentApplicationVersionId :: !Nat | ||
| , _aacwloCloudWatchLoggingOption :: !CloudWatchLoggingOption | ||
| } deriving (Eq,Read,Show,Data,Typeable,Generic) | ||
|
|
||
| -- | Creates a value of 'AddApplicationCloudWatchLoggingOption' with the minimum fields required to make a request. | ||
| -- | ||
| -- Use one of the following lenses to modify other fields as desired: | ||
| -- | ||
| -- * 'aacwloApplicationName' - The Kinesis Analytics application name. | ||
| -- | ||
| -- * 'aacwloCurrentApplicationVersionId' - The version ID of the Kinesis Analytics application. | ||
| -- | ||
| -- * 'aacwloCloudWatchLoggingOption' - Provides the CloudWatch log stream Amazon Resource Name (ARN) and the IAM role ARN. Note: To write application messages to CloudWatch, the IAM role that is used must have the @PutLogEvents@ policy action enabled. | ||
| addApplicationCloudWatchLoggingOption | ||
| :: Text -- ^ 'aacwloApplicationName' | ||
| -> Natural -- ^ 'aacwloCurrentApplicationVersionId' | ||
| -> CloudWatchLoggingOption -- ^ 'aacwloCloudWatchLoggingOption' | ||
| -> AddApplicationCloudWatchLoggingOption | ||
| addApplicationCloudWatchLoggingOption pApplicationName_ pCurrentApplicationVersionId_ pCloudWatchLoggingOption_ = | ||
| AddApplicationCloudWatchLoggingOption' | ||
| { _aacwloApplicationName = pApplicationName_ | ||
| , _aacwloCurrentApplicationVersionId = _Nat # pCurrentApplicationVersionId_ | ||
| , _aacwloCloudWatchLoggingOption = pCloudWatchLoggingOption_ | ||
| } | ||
|
|
||
| -- | The Kinesis Analytics application name. | ||
| aacwloApplicationName :: Lens' AddApplicationCloudWatchLoggingOption Text | ||
| aacwloApplicationName = lens _aacwloApplicationName (\ s a -> s{_aacwloApplicationName = a}); | ||
|
|
||
| -- | The version ID of the Kinesis Analytics application. | ||
| aacwloCurrentApplicationVersionId :: Lens' AddApplicationCloudWatchLoggingOption Natural | ||
| aacwloCurrentApplicationVersionId = lens _aacwloCurrentApplicationVersionId (\ s a -> s{_aacwloCurrentApplicationVersionId = a}) . _Nat; | ||
|
|
||
| -- | Provides the CloudWatch log stream Amazon Resource Name (ARN) and the IAM role ARN. Note: To write application messages to CloudWatch, the IAM role that is used must have the @PutLogEvents@ policy action enabled. | ||
| aacwloCloudWatchLoggingOption :: Lens' AddApplicationCloudWatchLoggingOption CloudWatchLoggingOption | ||
| aacwloCloudWatchLoggingOption = lens _aacwloCloudWatchLoggingOption (\ s a -> s{_aacwloCloudWatchLoggingOption = a}); | ||
|
|
||
| instance AWSRequest | ||
| AddApplicationCloudWatchLoggingOption where | ||
| type Rs AddApplicationCloudWatchLoggingOption = | ||
| AddApplicationCloudWatchLoggingOptionResponse | ||
| request = postJSON kinesisAnalytics | ||
| response | ||
| = receiveEmpty | ||
| (\ s h x -> | ||
| AddApplicationCloudWatchLoggingOptionResponse' <$> | ||
| (pure (fromEnum s))) | ||
|
|
||
| instance Hashable | ||
| AddApplicationCloudWatchLoggingOption | ||
|
|
||
| instance NFData AddApplicationCloudWatchLoggingOption | ||
|
|
||
| instance ToHeaders | ||
| AddApplicationCloudWatchLoggingOption where | ||
| toHeaders | ||
| = const | ||
| (mconcat | ||
| ["X-Amz-Target" =# | ||
| ("KinesisAnalytics_20150814.AddApplicationCloudWatchLoggingOption" | ||
| :: ByteString), | ||
| "Content-Type" =# | ||
| ("application/x-amz-json-1.1" :: ByteString)]) | ||
|
|
||
| instance ToJSON AddApplicationCloudWatchLoggingOption | ||
| where | ||
| toJSON AddApplicationCloudWatchLoggingOption'{..} | ||
| = object | ||
| (catMaybes | ||
| [Just ("ApplicationName" .= _aacwloApplicationName), | ||
| Just | ||
| ("CurrentApplicationVersionId" .= | ||
| _aacwloCurrentApplicationVersionId), | ||
| Just | ||
| ("CloudWatchLoggingOption" .= | ||
| _aacwloCloudWatchLoggingOption)]) | ||
|
|
||
| instance ToPath AddApplicationCloudWatchLoggingOption | ||
| where | ||
| toPath = const "/" | ||
|
|
||
| instance ToQuery | ||
| AddApplicationCloudWatchLoggingOption where | ||
| toQuery = const mempty | ||
|
|
||
| -- | /See:/ 'addApplicationCloudWatchLoggingOptionResponse' smart constructor. | ||
| newtype AddApplicationCloudWatchLoggingOptionResponse = AddApplicationCloudWatchLoggingOptionResponse' | ||
| { _aacwlorsResponseStatus :: Int | ||
| } deriving (Eq,Read,Show,Data,Typeable,Generic) | ||
|
|
||
| -- | Creates a value of 'AddApplicationCloudWatchLoggingOptionResponse' with the minimum fields required to make a request. | ||
| -- | ||
| -- Use one of the following lenses to modify other fields as desired: | ||
| -- | ||
| -- * 'aacwlorsResponseStatus' - -- | The response status code. | ||
| addApplicationCloudWatchLoggingOptionResponse | ||
| :: Int -- ^ 'aacwlorsResponseStatus' | ||
| -> AddApplicationCloudWatchLoggingOptionResponse | ||
| addApplicationCloudWatchLoggingOptionResponse pResponseStatus_ = | ||
| AddApplicationCloudWatchLoggingOptionResponse' | ||
| { _aacwlorsResponseStatus = pResponseStatus_ | ||
| } | ||
|
|
||
| -- | -- | The response status code. | ||
| aacwlorsResponseStatus :: Lens' AddApplicationCloudWatchLoggingOptionResponse Int | ||
| aacwlorsResponseStatus = lens _aacwlorsResponseStatus (\ s a -> s{_aacwlorsResponseStatus = a}); | ||
|
|
||
| instance NFData | ||
| AddApplicationCloudWatchLoggingOptionResponse |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Oops, something went wrong.