diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.4.5` +`1.5.0` ## Description diff --git a/amazonka-support.cabal b/amazonka-support.cabal --- a/amazonka-support.cabal +++ b/amazonka-support.cabal @@ -1,13 +1,13 @@ name: amazonka-support -version: 1.4.5 +version: 1.5.0 synopsis: Amazon Support SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues -license: OtherLicense +license: MPL-2.0 license-file: LICENSE author: Brendan Hay -maintainer: Brendan Hay -copyright: Copyright (c) 2013-2016 Brendan Hay +maintainer: Brendan Hay +copyright: Copyright (c) 2013-2017 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10 @@ -29,14 +29,19 @@ to get started. source-repository head - type: git - location: git://github.com/brendanhay/amazonka.git + type: git + location: git://github.com/brendanhay/amazonka.git + subdir: amazonka-support library default-language: Haskell2010 hs-source-dirs: src gen - ghc-options: -Wall + ghc-options: + -Wall + -fwarn-incomplete-uni-patterns + -fwarn-incomplete-record-updates + -funbox-strict-fields exposed-modules: Network.AWS.Support @@ -62,7 +67,7 @@ , Network.AWS.Support.Types.Sum build-depends: - amazonka-core == 1.4.5.* + amazonka-core == 1.5.0.* , base >= 4.7 && < 5 test-suite amazonka-support-test @@ -82,9 +87,9 @@ , Test.AWS.Support.Internal build-depends: - amazonka-core == 1.4.5.* - , amazonka-test == 1.4.5.* - , amazonka-support == 1.4.5.* + amazonka-core == 1.5.0.* + , amazonka-test == 1.5.0.* + , amazonka-support , base , bytestring , tasty diff --git a/gen/Network/AWS/Support.hs b/gen/Network/AWS/Support.hs --- a/gen/Network/AWS/Support.hs +++ b/gen/Network/AWS/Support.hs @@ -5,9 +5,9 @@ -- | -- Module : Network.AWS.Support --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -257,22 +257,22 @@ , tarsResourcesSuppressed ) where -import Network.AWS.Support.AddAttachmentsToSet -import Network.AWS.Support.AddCommunicationToCase -import Network.AWS.Support.CreateCase -import Network.AWS.Support.DescribeAttachment -import Network.AWS.Support.DescribeCases -import Network.AWS.Support.DescribeCommunications -import Network.AWS.Support.DescribeServices -import Network.AWS.Support.DescribeSeverityLevels -import Network.AWS.Support.DescribeTrustedAdvisorCheckRefreshStatuses -import Network.AWS.Support.DescribeTrustedAdvisorCheckResult -import Network.AWS.Support.DescribeTrustedAdvisorChecks -import Network.AWS.Support.DescribeTrustedAdvisorCheckSummaries -import Network.AWS.Support.RefreshTrustedAdvisorCheck -import Network.AWS.Support.ResolveCase -import Network.AWS.Support.Types -import Network.AWS.Support.Waiters +import Network.AWS.Support.AddAttachmentsToSet +import Network.AWS.Support.AddCommunicationToCase +import Network.AWS.Support.CreateCase +import Network.AWS.Support.DescribeAttachment +import Network.AWS.Support.DescribeCases +import Network.AWS.Support.DescribeCommunications +import Network.AWS.Support.DescribeServices +import Network.AWS.Support.DescribeSeverityLevels +import Network.AWS.Support.DescribeTrustedAdvisorCheckRefreshStatuses +import Network.AWS.Support.DescribeTrustedAdvisorCheckResult +import Network.AWS.Support.DescribeTrustedAdvisorChecks +import Network.AWS.Support.DescribeTrustedAdvisorCheckSummaries +import Network.AWS.Support.RefreshTrustedAdvisorCheck +import Network.AWS.Support.ResolveCase +import Network.AWS.Support.Types +import Network.AWS.Support.Waiters {- $errors Error matchers are designed for use with the functions provided by diff --git a/gen/Network/AWS/Support/AddAttachmentsToSet.hs b/gen/Network/AWS/Support/AddAttachmentsToSet.hs --- a/gen/Network/AWS/Support/AddAttachmentsToSet.hs +++ b/gen/Network/AWS/Support/AddAttachmentsToSet.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Support.AddAttachmentsToSet --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -41,12 +41,12 @@ , aatsrsResponseStatus ) where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.Support.Types -import Network.AWS.Support.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.Support.Types +import Network.AWS.Support.Types.Product -- | -- @@ -54,10 +54,11 @@ -- -- /See:/ 'addAttachmentsToSet' smart constructor. data AddAttachmentsToSet = AddAttachmentsToSet' - { _aatsAttachmentSetId :: !(Maybe Text) - , _aatsAttachments :: ![Attachment] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _aatsAttachmentSetId :: !(Maybe Text) + , _aatsAttachments :: ![Attachment] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddAttachmentsToSet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -68,11 +69,10 @@ addAttachmentsToSet :: AddAttachmentsToSet addAttachmentsToSet = - AddAttachmentsToSet' - { _aatsAttachmentSetId = Nothing - , _aatsAttachments = mempty - } + AddAttachmentsToSet' + {_aatsAttachmentSetId = Nothing, _aatsAttachments = mempty} + -- | The ID of the attachment set. If an @attachmentSetId@ is not specified, a new attachment set is created, and the ID of the set is returned in the response. If an @attachmentSetId@ is specified, the attachments are added to the specified set, if it exists. aatsAttachmentSetId :: Lens' AddAttachmentsToSet (Maybe Text) aatsAttachmentSetId = lens _aatsAttachmentSetId (\ s a -> s{_aatsAttachmentSetId = a}); @@ -92,9 +92,9 @@ (x .?> "expiryTime") <*> (x .?> "attachmentSetId") <*> (pure (fromEnum s))) -instance Hashable AddAttachmentsToSet +instance Hashable AddAttachmentsToSet where -instance NFData AddAttachmentsToSet +instance NFData AddAttachmentsToSet where instance ToHeaders AddAttachmentsToSet where toHeaders @@ -125,11 +125,12 @@ -- -- /See:/ 'addAttachmentsToSetResponse' smart constructor. data AddAttachmentsToSetResponse = AddAttachmentsToSetResponse' - { _aatsrsExpiryTime :: !(Maybe Text) - , _aatsrsAttachmentSetId :: !(Maybe Text) - , _aatsrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _aatsrsExpiryTime :: !(Maybe Text) + , _aatsrsAttachmentSetId :: !(Maybe Text) + , _aatsrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddAttachmentsToSetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -143,12 +144,13 @@ :: Int -- ^ 'aatsrsResponseStatus' -> AddAttachmentsToSetResponse addAttachmentsToSetResponse pResponseStatus_ = - AddAttachmentsToSetResponse' - { _aatsrsExpiryTime = Nothing - , _aatsrsAttachmentSetId = Nothing - , _aatsrsResponseStatus = pResponseStatus_ - } + AddAttachmentsToSetResponse' + { _aatsrsExpiryTime = Nothing + , _aatsrsAttachmentSetId = Nothing + , _aatsrsResponseStatus = pResponseStatus_ + } + -- | The time and date when the attachment set expires. aatsrsExpiryTime :: Lens' AddAttachmentsToSetResponse (Maybe Text) aatsrsExpiryTime = lens _aatsrsExpiryTime (\ s a -> s{_aatsrsExpiryTime = a}); @@ -161,4 +163,4 @@ aatsrsResponseStatus :: Lens' AddAttachmentsToSetResponse Int aatsrsResponseStatus = lens _aatsrsResponseStatus (\ s a -> s{_aatsrsResponseStatus = a}); -instance NFData AddAttachmentsToSetResponse +instance NFData AddAttachmentsToSetResponse where diff --git a/gen/Network/AWS/Support/AddCommunicationToCase.hs b/gen/Network/AWS/Support/AddCommunicationToCase.hs --- a/gen/Network/AWS/Support/AddCommunicationToCase.hs +++ b/gen/Network/AWS/Support/AddCommunicationToCase.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Support.AddCommunicationToCase --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -44,12 +44,12 @@ , actcrsResponseStatus ) where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.Support.Types -import Network.AWS.Support.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.Support.Types +import Network.AWS.Support.Types.Product -- | To be written. -- @@ -57,12 +57,13 @@ -- -- /See:/ 'addCommunicationToCase' smart constructor. data AddCommunicationToCase = AddCommunicationToCase' - { _actcCaseId :: !(Maybe Text) - , _actcCcEmailAddresses :: !(Maybe [Text]) - , _actcAttachmentSetId :: !(Maybe Text) - , _actcCommunicationBody :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _actcCaseId :: !(Maybe Text) + , _actcCcEmailAddresses :: !(Maybe [Text]) + , _actcAttachmentSetId :: !(Maybe Text) + , _actcCommunicationBody :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddCommunicationToCase' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -78,13 +79,14 @@ :: Text -- ^ 'actcCommunicationBody' -> AddCommunicationToCase addCommunicationToCase pCommunicationBody_ = - AddCommunicationToCase' - { _actcCaseId = Nothing - , _actcCcEmailAddresses = Nothing - , _actcAttachmentSetId = Nothing - , _actcCommunicationBody = pCommunicationBody_ - } + AddCommunicationToCase' + { _actcCaseId = Nothing + , _actcCcEmailAddresses = Nothing + , _actcAttachmentSetId = Nothing + , _actcCommunicationBody = pCommunicationBody_ + } + -- | The AWS Support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-/12345678910-2013-c4c1d2bf33c5cf47/ actcCaseId :: Lens' AddCommunicationToCase (Maybe Text) actcCaseId = lens _actcCaseId (\ s a -> s{_actcCaseId = a}); @@ -111,9 +113,9 @@ AddCommunicationToCaseResponse' <$> (x .?> "result") <*> (pure (fromEnum s))) -instance Hashable AddCommunicationToCase +instance Hashable AddCommunicationToCase where -instance NFData AddCommunicationToCase +instance NFData AddCommunicationToCase where instance ToHeaders AddCommunicationToCase where toHeaders @@ -147,10 +149,11 @@ -- -- /See:/ 'addCommunicationToCaseResponse' smart constructor. data AddCommunicationToCaseResponse = AddCommunicationToCaseResponse' - { _actcrsResult :: !(Maybe Bool) - , _actcrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _actcrsResult :: !(Maybe Bool) + , _actcrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddCommunicationToCaseResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -162,11 +165,10 @@ :: Int -- ^ 'actcrsResponseStatus' -> AddCommunicationToCaseResponse addCommunicationToCaseResponse pResponseStatus_ = - AddCommunicationToCaseResponse' - { _actcrsResult = Nothing - , _actcrsResponseStatus = pResponseStatus_ - } + AddCommunicationToCaseResponse' + {_actcrsResult = Nothing, _actcrsResponseStatus = pResponseStatus_} + -- | True if 'AddCommunicationToCase' succeeds. Otherwise, returns an error. actcrsResult :: Lens' AddCommunicationToCaseResponse (Maybe Bool) actcrsResult = lens _actcrsResult (\ s a -> s{_actcrsResult = a}); @@ -175,4 +177,4 @@ actcrsResponseStatus :: Lens' AddCommunicationToCaseResponse Int actcrsResponseStatus = lens _actcrsResponseStatus (\ s a -> s{_actcrsResponseStatus = a}); -instance NFData AddCommunicationToCaseResponse +instance NFData AddCommunicationToCaseResponse where diff --git a/gen/Network/AWS/Support/CreateCase.hs b/gen/Network/AWS/Support/CreateCase.hs --- a/gen/Network/AWS/Support/CreateCase.hs +++ b/gen/Network/AWS/Support/CreateCase.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Support.CreateCase --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -67,12 +67,12 @@ , ccrsResponseStatus ) where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.Support.Types -import Network.AWS.Support.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.Support.Types +import Network.AWS.Support.Types.Product -- | -- @@ -80,17 +80,18 @@ -- -- /See:/ 'createCase' smart constructor. data CreateCase = CreateCase' - { _ccSeverityCode :: !(Maybe Text) - , _ccIssueType :: !(Maybe Text) - , _ccCcEmailAddresses :: !(Maybe [Text]) - , _ccLanguage :: !(Maybe Text) - , _ccCategoryCode :: !(Maybe Text) - , _ccServiceCode :: !(Maybe Text) - , _ccAttachmentSetId :: !(Maybe Text) - , _ccSubject :: !Text - , _ccCommunicationBody :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ccSeverityCode :: !(Maybe Text) + , _ccIssueType :: !(Maybe Text) + , _ccCcEmailAddresses :: !(Maybe [Text]) + , _ccLanguage :: !(Maybe Text) + , _ccCategoryCode :: !(Maybe Text) + , _ccServiceCode :: !(Maybe Text) + , _ccAttachmentSetId :: !(Maybe Text) + , _ccSubject :: !Text + , _ccCommunicationBody :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateCase' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -117,18 +118,19 @@ -> Text -- ^ 'ccCommunicationBody' -> CreateCase createCase pSubject_ pCommunicationBody_ = - CreateCase' - { _ccSeverityCode = Nothing - , _ccIssueType = Nothing - , _ccCcEmailAddresses = Nothing - , _ccLanguage = Nothing - , _ccCategoryCode = Nothing - , _ccServiceCode = Nothing - , _ccAttachmentSetId = Nothing - , _ccSubject = pSubject_ - , _ccCommunicationBody = pCommunicationBody_ - } + CreateCase' + { _ccSeverityCode = Nothing + , _ccIssueType = Nothing + , _ccCcEmailAddresses = Nothing + , _ccLanguage = Nothing + , _ccCategoryCode = Nothing + , _ccServiceCode = Nothing + , _ccAttachmentSetId = Nothing + , _ccSubject = pSubject_ + , _ccCommunicationBody = pCommunicationBody_ + } + -- | The code for the severity level returned by the call to 'DescribeSeverityLevels' . ccSeverityCode :: Lens' CreateCase (Maybe Text) ccSeverityCode = lens _ccSeverityCode (\ s a -> s{_ccSeverityCode = a}); @@ -174,9 +176,9 @@ CreateCaseResponse' <$> (x .?> "caseId") <*> (pure (fromEnum s))) -instance Hashable CreateCase +instance Hashable CreateCase where -instance NFData CreateCase +instance NFData CreateCase where instance ToHeaders CreateCase where toHeaders @@ -213,10 +215,11 @@ -- -- /See:/ 'createCaseResponse' smart constructor. data CreateCaseResponse = CreateCaseResponse' - { _ccrsCaseId :: !(Maybe Text) - , _ccrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ccrsCaseId :: !(Maybe Text) + , _ccrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateCaseResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -228,11 +231,10 @@ :: Int -- ^ 'ccrsResponseStatus' -> CreateCaseResponse createCaseResponse pResponseStatus_ = - CreateCaseResponse' - { _ccrsCaseId = Nothing - , _ccrsResponseStatus = pResponseStatus_ - } + CreateCaseResponse' + {_ccrsCaseId = Nothing, _ccrsResponseStatus = pResponseStatus_} + -- | The AWS Support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-/12345678910-2013-c4c1d2bf33c5cf47/ ccrsCaseId :: Lens' CreateCaseResponse (Maybe Text) ccrsCaseId = lens _ccrsCaseId (\ s a -> s{_ccrsCaseId = a}); @@ -241,4 +243,4 @@ ccrsResponseStatus :: Lens' CreateCaseResponse Int ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a}); -instance NFData CreateCaseResponse +instance NFData CreateCaseResponse where diff --git a/gen/Network/AWS/Support/DescribeAttachment.hs b/gen/Network/AWS/Support/DescribeAttachment.hs --- a/gen/Network/AWS/Support/DescribeAttachment.hs +++ b/gen/Network/AWS/Support/DescribeAttachment.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Support.DescribeAttachment --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,18 +37,19 @@ , darsResponseStatus ) where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.Support.Types -import Network.AWS.Support.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.Support.Types +import Network.AWS.Support.Types.Product -- | /See:/ 'describeAttachment' smart constructor. newtype DescribeAttachment = DescribeAttachment' - { _daAttachmentId :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _daAttachmentId :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAttachment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -58,10 +59,9 @@ :: Text -- ^ 'daAttachmentId' -> DescribeAttachment describeAttachment pAttachmentId_ = - DescribeAttachment' - { _daAttachmentId = pAttachmentId_ - } + DescribeAttachment' {_daAttachmentId = pAttachmentId_} + -- | The ID of the attachment to return. Attachment IDs are returned by the 'DescribeCommunications' operation. daAttachmentId :: Lens' DescribeAttachment Text daAttachmentId = lens _daAttachmentId (\ s a -> s{_daAttachmentId = a}); @@ -76,9 +76,9 @@ DescribeAttachmentResponse' <$> (x .?> "attachment") <*> (pure (fromEnum s))) -instance Hashable DescribeAttachment +instance Hashable DescribeAttachment where -instance NFData DescribeAttachment +instance NFData DescribeAttachment where instance ToHeaders DescribeAttachment where toHeaders @@ -108,10 +108,11 @@ -- -- /See:/ 'describeAttachmentResponse' smart constructor. data DescribeAttachmentResponse = DescribeAttachmentResponse' - { _darsAttachment :: !(Maybe Attachment) - , _darsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _darsAttachment :: !(Maybe Attachment) + , _darsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAttachmentResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -123,11 +124,10 @@ :: Int -- ^ 'darsResponseStatus' -> DescribeAttachmentResponse describeAttachmentResponse pResponseStatus_ = - DescribeAttachmentResponse' - { _darsAttachment = Nothing - , _darsResponseStatus = pResponseStatus_ - } + DescribeAttachmentResponse' + {_darsAttachment = Nothing, _darsResponseStatus = pResponseStatus_} + -- | The attachment content and file name. darsAttachment :: Lens' DescribeAttachmentResponse (Maybe Attachment) darsAttachment = lens _darsAttachment (\ s a -> s{_darsAttachment = a}); @@ -136,4 +136,4 @@ darsResponseStatus :: Lens' DescribeAttachmentResponse Int darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a}); -instance NFData DescribeAttachmentResponse +instance NFData DescribeAttachmentResponse where diff --git a/gen/Network/AWS/Support/DescribeCases.hs b/gen/Network/AWS/Support/DescribeCases.hs --- a/gen/Network/AWS/Support/DescribeCases.hs +++ b/gen/Network/AWS/Support/DescribeCases.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Support.DescribeCases --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -58,13 +58,13 @@ , drsResponseStatus ) where -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.Support.Types -import Network.AWS.Support.Types.Product +import Network.AWS.Lens +import Network.AWS.Pager +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.Support.Types +import Network.AWS.Support.Types.Product -- | -- @@ -72,17 +72,18 @@ -- -- /See:/ 'describeCases' smart constructor. data DescribeCases = DescribeCases' - { _dcIncludeResolvedCases :: !(Maybe Bool) - , _dcCaseIdList :: !(Maybe [Text]) - , _dcAfterTime :: !(Maybe Text) - , _dcBeforeTime :: !(Maybe Text) - , _dcNextToken :: !(Maybe Text) - , _dcIncludeCommunications :: !(Maybe Bool) - , _dcDisplayId :: !(Maybe Text) - , _dcLanguage :: !(Maybe Text) - , _dcMaxResults :: !(Maybe Nat) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dcIncludeResolvedCases :: !(Maybe Bool) + , _dcCaseIdList :: !(Maybe [Text]) + , _dcAfterTime :: !(Maybe Text) + , _dcBeforeTime :: !(Maybe Text) + , _dcNextToken :: !(Maybe Text) + , _dcIncludeCommunications :: !(Maybe Bool) + , _dcDisplayId :: !(Maybe Text) + , _dcLanguage :: !(Maybe Text) + , _dcMaxResults :: !(Maybe Nat) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCases' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -107,18 +108,19 @@ describeCases :: DescribeCases describeCases = - DescribeCases' - { _dcIncludeResolvedCases = Nothing - , _dcCaseIdList = Nothing - , _dcAfterTime = Nothing - , _dcBeforeTime = Nothing - , _dcNextToken = Nothing - , _dcIncludeCommunications = Nothing - , _dcDisplayId = Nothing - , _dcLanguage = Nothing - , _dcMaxResults = Nothing - } + DescribeCases' + { _dcIncludeResolvedCases = Nothing + , _dcCaseIdList = Nothing + , _dcAfterTime = Nothing + , _dcBeforeTime = Nothing + , _dcNextToken = Nothing + , _dcIncludeCommunications = Nothing + , _dcDisplayId = Nothing + , _dcLanguage = Nothing + , _dcMaxResults = Nothing + } + -- | Specifies whether resolved support cases should be included in the 'DescribeCases' results. The default is /false/ . dcIncludeResolvedCases :: Lens' DescribeCases (Maybe Bool) dcIncludeResolvedCases = lens _dcIncludeResolvedCases (\ s a -> s{_dcIncludeResolvedCases = a}); @@ -172,9 +174,9 @@ (x .?> "cases" .!@ mempty) <*> (x .?> "nextToken") <*> (pure (fromEnum s))) -instance Hashable DescribeCases +instance Hashable DescribeCases where -instance NFData DescribeCases +instance NFData DescribeCases where instance ToHeaders DescribeCases where toHeaders @@ -213,11 +215,12 @@ -- -- /See:/ 'describeCasesResponse' smart constructor. data DescribeCasesResponse = DescribeCasesResponse' - { _drsCases :: !(Maybe [CaseDetails]) - , _drsNextToken :: !(Maybe Text) - , _drsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _drsCases :: !(Maybe [CaseDetails]) + , _drsNextToken :: !(Maybe Text) + , _drsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCasesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -231,12 +234,13 @@ :: Int -- ^ 'drsResponseStatus' -> DescribeCasesResponse describeCasesResponse pResponseStatus_ = - DescribeCasesResponse' - { _drsCases = Nothing - , _drsNextToken = Nothing - , _drsResponseStatus = pResponseStatus_ - } + DescribeCasesResponse' + { _drsCases = Nothing + , _drsNextToken = Nothing + , _drsResponseStatus = pResponseStatus_ + } + -- | The details for the cases that match the request. drsCases :: Lens' DescribeCasesResponse [CaseDetails] drsCases = lens _drsCases (\ s a -> s{_drsCases = a}) . _Default . _Coerce; @@ -249,4 +253,4 @@ drsResponseStatus :: Lens' DescribeCasesResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DescribeCasesResponse +instance NFData DescribeCasesResponse where diff --git a/gen/Network/AWS/Support/DescribeCommunications.hs b/gen/Network/AWS/Support/DescribeCommunications.hs --- a/gen/Network/AWS/Support/DescribeCommunications.hs +++ b/gen/Network/AWS/Support/DescribeCommunications.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Support.DescribeCommunications --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -48,13 +48,13 @@ , dcrsResponseStatus ) where -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.Support.Types -import Network.AWS.Support.Types.Product +import Network.AWS.Lens +import Network.AWS.Pager +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.Support.Types +import Network.AWS.Support.Types.Product -- | -- @@ -62,13 +62,14 @@ -- -- /See:/ 'describeCommunications' smart constructor. data DescribeCommunications = DescribeCommunications' - { _dAfterTime :: !(Maybe Text) - , _dBeforeTime :: !(Maybe Text) - , _dNextToken :: !(Maybe Text) - , _dMaxResults :: !(Maybe Nat) - , _dCaseId :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dAfterTime :: !(Maybe Text) + , _dBeforeTime :: !(Maybe Text) + , _dNextToken :: !(Maybe Text) + , _dMaxResults :: !(Maybe Nat) + , _dCaseId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCommunications' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -86,14 +87,15 @@ :: Text -- ^ 'dCaseId' -> DescribeCommunications describeCommunications pCaseId_ = - DescribeCommunications' - { _dAfterTime = Nothing - , _dBeforeTime = Nothing - , _dNextToken = Nothing - , _dMaxResults = Nothing - , _dCaseId = pCaseId_ - } + DescribeCommunications' + { _dAfterTime = Nothing + , _dBeforeTime = Nothing + , _dNextToken = Nothing + , _dMaxResults = Nothing + , _dCaseId = pCaseId_ + } + -- | The start date for a filtered date search on support case communications. Case communications are available for 12 months after creation. dAfterTime :: Lens' DescribeCommunications (Maybe Text) dAfterTime = lens _dAfterTime (\ s a -> s{_dAfterTime = a}); @@ -133,9 +135,9 @@ (x .?> "communications" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable DescribeCommunications +instance Hashable DescribeCommunications where -instance NFData DescribeCommunications +instance NFData DescribeCommunications where instance ToHeaders DescribeCommunications where toHeaders @@ -169,11 +171,12 @@ -- -- /See:/ 'describeCommunicationsResponse' smart constructor. data DescribeCommunicationsResponse = DescribeCommunicationsResponse' - { _dcrsNextToken :: !(Maybe Text) - , _dcrsCommunications :: !(Maybe [Communication]) - , _dcrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dcrsNextToken :: !(Maybe Text) + , _dcrsCommunications :: !(Maybe [Communication]) + , _dcrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCommunicationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -187,12 +190,13 @@ :: Int -- ^ 'dcrsResponseStatus' -> DescribeCommunicationsResponse describeCommunicationsResponse pResponseStatus_ = - DescribeCommunicationsResponse' - { _dcrsNextToken = Nothing - , _dcrsCommunications = Nothing - , _dcrsResponseStatus = pResponseStatus_ - } + DescribeCommunicationsResponse' + { _dcrsNextToken = Nothing + , _dcrsCommunications = Nothing + , _dcrsResponseStatus = pResponseStatus_ + } + -- | A resumption point for pagination. dcrsNextToken :: Lens' DescribeCommunicationsResponse (Maybe Text) dcrsNextToken = lens _dcrsNextToken (\ s a -> s{_dcrsNextToken = a}); @@ -205,4 +209,4 @@ dcrsResponseStatus :: Lens' DescribeCommunicationsResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a}); -instance NFData DescribeCommunicationsResponse +instance NFData DescribeCommunicationsResponse where diff --git a/gen/Network/AWS/Support/DescribeServices.hs b/gen/Network/AWS/Support/DescribeServices.hs --- a/gen/Network/AWS/Support/DescribeServices.hs +++ b/gen/Network/AWS/Support/DescribeServices.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Support.DescribeServices --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -40,12 +40,12 @@ , dsrsResponseStatus ) where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.Support.Types -import Network.AWS.Support.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.Support.Types +import Network.AWS.Support.Types.Product -- | -- @@ -53,10 +53,11 @@ -- -- /See:/ 'describeServices' smart constructor. data DescribeServices = DescribeServices' - { _dsServiceCodeList :: !(Maybe [Text]) - , _dsLanguage :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dsServiceCodeList :: !(Maybe [Text]) + , _dsLanguage :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeServices' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,9 @@ describeServices :: DescribeServices describeServices = - DescribeServices' - { _dsServiceCodeList = Nothing - , _dsLanguage = Nothing - } + DescribeServices' {_dsServiceCodeList = Nothing, _dsLanguage = Nothing} + -- | A JSON-formatted list of service codes available for AWS services. dsServiceCodeList :: Lens' DescribeServices [Text] dsServiceCodeList = lens _dsServiceCodeList (\ s a -> s{_dsServiceCodeList = a}) . _Default . _Coerce; @@ -90,9 +89,9 @@ (x .?> "services" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable DescribeServices +instance Hashable DescribeServices where -instance NFData DescribeServices +instance NFData DescribeServices where instance ToHeaders DescribeServices where toHeaders @@ -123,10 +122,11 @@ -- -- /See:/ 'describeServicesResponse' smart constructor. data DescribeServicesResponse = DescribeServicesResponse' - { _dsrsServices :: !(Maybe [SupportService]) - , _dsrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dsrsServices :: !(Maybe [SupportService]) + , _dsrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeServicesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -138,11 +138,10 @@ :: Int -- ^ 'dsrsResponseStatus' -> DescribeServicesResponse describeServicesResponse pResponseStatus_ = - DescribeServicesResponse' - { _dsrsServices = Nothing - , _dsrsResponseStatus = pResponseStatus_ - } + DescribeServicesResponse' + {_dsrsServices = Nothing, _dsrsResponseStatus = pResponseStatus_} + -- | A JSON-formatted list of AWS services. dsrsServices :: Lens' DescribeServicesResponse [SupportService] dsrsServices = lens _dsrsServices (\ s a -> s{_dsrsServices = a}) . _Default . _Coerce; @@ -151,4 +150,4 @@ dsrsResponseStatus :: Lens' DescribeServicesResponse Int dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}); -instance NFData DescribeServicesResponse +instance NFData DescribeServicesResponse where diff --git a/gen/Network/AWS/Support/DescribeSeverityLevels.hs b/gen/Network/AWS/Support/DescribeSeverityLevels.hs --- a/gen/Network/AWS/Support/DescribeSeverityLevels.hs +++ b/gen/Network/AWS/Support/DescribeSeverityLevels.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Support.DescribeSeverityLevels --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , dslrsResponseStatus ) where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.Support.Types -import Network.AWS.Support.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.Support.Types +import Network.AWS.Support.Types.Product -- | -- @@ -50,9 +50,10 @@ -- -- /See:/ 'describeSeverityLevels' smart constructor. newtype DescribeSeverityLevels = DescribeSeverityLevels' - { _dslLanguage :: Maybe Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dslLanguage :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeSeverityLevels' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -60,11 +61,9 @@ -- * 'dslLanguage' - The ISO 639-1 code for the language in which AWS provides support. AWS Support currently supports English ("en") and Japanese ("ja"). Language parameters must be passed explicitly for operations that take them. describeSeverityLevels :: DescribeSeverityLevels -describeSeverityLevels = - DescribeSeverityLevels' - { _dslLanguage = Nothing - } +describeSeverityLevels = DescribeSeverityLevels' {_dslLanguage = Nothing} + -- | The ISO 639-1 code for the language in which AWS provides support. AWS Support currently supports English ("en") and Japanese ("ja"). Language parameters must be passed explicitly for operations that take them. dslLanguage :: Lens' DescribeSeverityLevels (Maybe Text) dslLanguage = lens _dslLanguage (\ s a -> s{_dslLanguage = a}); @@ -80,9 +79,9 @@ (x .?> "severityLevels" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable DescribeSeverityLevels +instance Hashable DescribeSeverityLevels where -instance NFData DescribeSeverityLevels +instance NFData DescribeSeverityLevels where instance ToHeaders DescribeSeverityLevels where toHeaders @@ -111,10 +110,11 @@ -- -- /See:/ 'describeSeverityLevelsResponse' smart constructor. data DescribeSeverityLevelsResponse = DescribeSeverityLevelsResponse' - { _dslrsSeverityLevels :: !(Maybe [SeverityLevel]) - , _dslrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dslrsSeverityLevels :: !(Maybe [SeverityLevel]) + , _dslrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeSeverityLevelsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -126,11 +126,10 @@ :: Int -- ^ 'dslrsResponseStatus' -> DescribeSeverityLevelsResponse describeSeverityLevelsResponse pResponseStatus_ = - DescribeSeverityLevelsResponse' - { _dslrsSeverityLevels = Nothing - , _dslrsResponseStatus = pResponseStatus_ - } + DescribeSeverityLevelsResponse' + {_dslrsSeverityLevels = Nothing, _dslrsResponseStatus = pResponseStatus_} + -- | The available severity levels for the support case. Available severity levels are defined by your service level agreement with AWS. dslrsSeverityLevels :: Lens' DescribeSeverityLevelsResponse [SeverityLevel] dslrsSeverityLevels = lens _dslrsSeverityLevels (\ s a -> s{_dslrsSeverityLevels = a}) . _Default . _Coerce; @@ -139,4 +138,4 @@ dslrsResponseStatus :: Lens' DescribeSeverityLevelsResponse Int dslrsResponseStatus = lens _dslrsResponseStatus (\ s a -> s{_dslrsResponseStatus = a}); -instance NFData DescribeSeverityLevelsResponse +instance NFData DescribeSeverityLevelsResponse where diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs --- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs +++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Support.DescribeTrustedAdvisorCheckRefreshStatuses --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , dtacrsrsStatuses ) where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.Support.Types -import Network.AWS.Support.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.Support.Types +import Network.AWS.Support.Types.Product -- | -- @@ -50,9 +50,10 @@ -- -- /See:/ 'describeTrustedAdvisorCheckRefreshStatuses' smart constructor. newtype DescribeTrustedAdvisorCheckRefreshStatuses = DescribeTrustedAdvisorCheckRefreshStatuses' - { _dtacrsCheckIds :: [Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dtacrsCheckIds :: [Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTrustedAdvisorCheckRefreshStatuses' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -61,16 +62,16 @@ describeTrustedAdvisorCheckRefreshStatuses :: DescribeTrustedAdvisorCheckRefreshStatuses describeTrustedAdvisorCheckRefreshStatuses = - DescribeTrustedAdvisorCheckRefreshStatuses' - { _dtacrsCheckIds = mempty - } + DescribeTrustedAdvisorCheckRefreshStatuses' {_dtacrsCheckIds = mempty} + -- | The IDs of the Trusted Advisor checks to get the status of. __Note:__ Specifying the check ID of a check that is automatically refreshed causes an @InvalidParameterValue@ error. dtacrsCheckIds :: Lens' DescribeTrustedAdvisorCheckRefreshStatuses [Text] dtacrsCheckIds = lens _dtacrsCheckIds (\ s a -> s{_dtacrsCheckIds = a}) . _Coerce; instance AWSRequest - DescribeTrustedAdvisorCheckRefreshStatuses where + DescribeTrustedAdvisorCheckRefreshStatuses + where type Rs DescribeTrustedAdvisorCheckRefreshStatuses = DescribeTrustedAdvisorCheckRefreshStatusesResponse request = postJSON support @@ -83,13 +84,16 @@ (x .?> "statuses" .!@ mempty)) instance Hashable - DescribeTrustedAdvisorCheckRefreshStatuses + DescribeTrustedAdvisorCheckRefreshStatuses + where instance NFData - DescribeTrustedAdvisorCheckRefreshStatuses + DescribeTrustedAdvisorCheckRefreshStatuses + where instance ToHeaders - DescribeTrustedAdvisorCheckRefreshStatuses where + DescribeTrustedAdvisorCheckRefreshStatuses + where toHeaders = const (mconcat @@ -100,18 +104,21 @@ ("application/x-amz-json-1.1" :: ByteString)]) instance ToJSON - DescribeTrustedAdvisorCheckRefreshStatuses where + DescribeTrustedAdvisorCheckRefreshStatuses + where toJSON DescribeTrustedAdvisorCheckRefreshStatuses'{..} = object (catMaybes [Just ("checkIds" .= _dtacrsCheckIds)]) instance ToPath - DescribeTrustedAdvisorCheckRefreshStatuses where + DescribeTrustedAdvisorCheckRefreshStatuses + where toPath = const "/" instance ToQuery - DescribeTrustedAdvisorCheckRefreshStatuses where + DescribeTrustedAdvisorCheckRefreshStatuses + where toQuery = const mempty -- | The statuses of the Trusted Advisor checks returned by the 'DescribeTrustedAdvisorCheckRefreshStatuses' operation. @@ -120,10 +127,11 @@ -- -- /See:/ 'describeTrustedAdvisorCheckRefreshStatusesResponse' smart constructor. data DescribeTrustedAdvisorCheckRefreshStatusesResponse = DescribeTrustedAdvisorCheckRefreshStatusesResponse' - { _dtacrsrsResponseStatus :: !Int - , _dtacrsrsStatuses :: ![TrustedAdvisorCheckRefreshStatus] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dtacrsrsResponseStatus :: !Int + , _dtacrsrsStatuses :: ![TrustedAdvisorCheckRefreshStatus] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTrustedAdvisorCheckRefreshStatusesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -135,11 +143,10 @@ :: Int -- ^ 'dtacrsrsResponseStatus' -> DescribeTrustedAdvisorCheckRefreshStatusesResponse describeTrustedAdvisorCheckRefreshStatusesResponse pResponseStatus_ = - DescribeTrustedAdvisorCheckRefreshStatusesResponse' - { _dtacrsrsResponseStatus = pResponseStatus_ - , _dtacrsrsStatuses = mempty - } + DescribeTrustedAdvisorCheckRefreshStatusesResponse' + {_dtacrsrsResponseStatus = pResponseStatus_, _dtacrsrsStatuses = mempty} + -- | -- | The response status code. dtacrsrsResponseStatus :: Lens' DescribeTrustedAdvisorCheckRefreshStatusesResponse Int dtacrsrsResponseStatus = lens _dtacrsrsResponseStatus (\ s a -> s{_dtacrsrsResponseStatus = a}); @@ -149,4 +156,5 @@ dtacrsrsStatuses = lens _dtacrsrsStatuses (\ s a -> s{_dtacrsrsStatuses = a}) . _Coerce; instance NFData - DescribeTrustedAdvisorCheckRefreshStatusesResponse + DescribeTrustedAdvisorCheckRefreshStatusesResponse + where diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs --- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs +++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Support.DescribeTrustedAdvisorCheckResult --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -58,12 +58,12 @@ , dtacrrsResponseStatus ) where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.Support.Types -import Network.AWS.Support.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.Support.Types +import Network.AWS.Support.Types.Product -- | -- @@ -71,10 +71,11 @@ -- -- /See:/ 'describeTrustedAdvisorCheckResult' smart constructor. data DescribeTrustedAdvisorCheckResult = DescribeTrustedAdvisorCheckResult' - { _dtacrLanguage :: !(Maybe Text) - , _dtacrCheckId :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dtacrLanguage :: !(Maybe Text) + , _dtacrCheckId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTrustedAdvisorCheckResult' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -86,11 +87,10 @@ :: Text -- ^ 'dtacrCheckId' -> DescribeTrustedAdvisorCheckResult describeTrustedAdvisorCheckResult pCheckId_ = - DescribeTrustedAdvisorCheckResult' - { _dtacrLanguage = Nothing - , _dtacrCheckId = pCheckId_ - } + DescribeTrustedAdvisorCheckResult' + {_dtacrLanguage = Nothing, _dtacrCheckId = pCheckId_} + -- | The ISO 639-1 code for the language in which AWS provides support. AWS Support currently supports English ("en") and Japanese ("ja"). Language parameters must be passed explicitly for operations that take them. dtacrLanguage :: Lens' DescribeTrustedAdvisorCheckResult (Maybe Text) dtacrLanguage = lens _dtacrLanguage (\ s a -> s{_dtacrLanguage = a}); @@ -111,8 +111,10 @@ (x .?> "result") <*> (pure (fromEnum s))) instance Hashable DescribeTrustedAdvisorCheckResult + where instance NFData DescribeTrustedAdvisorCheckResult + where instance ToHeaders DescribeTrustedAdvisorCheckResult where @@ -147,10 +149,11 @@ -- -- /See:/ 'describeTrustedAdvisorCheckResultResponse' smart constructor. data DescribeTrustedAdvisorCheckResultResponse = DescribeTrustedAdvisorCheckResultResponse' - { _dtacrrsResult :: !(Maybe TrustedAdvisorCheckResult) - , _dtacrrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dtacrrsResult :: !(Maybe TrustedAdvisorCheckResult) + , _dtacrrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTrustedAdvisorCheckResultResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -162,11 +165,10 @@ :: Int -- ^ 'dtacrrsResponseStatus' -> DescribeTrustedAdvisorCheckResultResponse describeTrustedAdvisorCheckResultResponse pResponseStatus_ = - DescribeTrustedAdvisorCheckResultResponse' - { _dtacrrsResult = Nothing - , _dtacrrsResponseStatus = pResponseStatus_ - } + DescribeTrustedAdvisorCheckResultResponse' + {_dtacrrsResult = Nothing, _dtacrrsResponseStatus = pResponseStatus_} + -- | The detailed results of the Trusted Advisor check. dtacrrsResult :: Lens' DescribeTrustedAdvisorCheckResultResponse (Maybe TrustedAdvisorCheckResult) dtacrrsResult = lens _dtacrrsResult (\ s a -> s{_dtacrrsResult = a}); @@ -176,4 +178,5 @@ dtacrrsResponseStatus = lens _dtacrrsResponseStatus (\ s a -> s{_dtacrrsResponseStatus = a}); instance NFData - DescribeTrustedAdvisorCheckResultResponse + DescribeTrustedAdvisorCheckResultResponse + where diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs --- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs +++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Support.DescribeTrustedAdvisorCheckSummaries --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -39,12 +39,12 @@ , dtacsrsSummaries ) where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.Support.Types -import Network.AWS.Support.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.Support.Types +import Network.AWS.Support.Types.Product -- | -- @@ -52,9 +52,10 @@ -- -- /See:/ 'describeTrustedAdvisorCheckSummaries' smart constructor. newtype DescribeTrustedAdvisorCheckSummaries = DescribeTrustedAdvisorCheckSummaries' - { _dtacsCheckIds :: [Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dtacsCheckIds :: [Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTrustedAdvisorCheckSummaries' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -63,16 +64,16 @@ describeTrustedAdvisorCheckSummaries :: DescribeTrustedAdvisorCheckSummaries describeTrustedAdvisorCheckSummaries = - DescribeTrustedAdvisorCheckSummaries' - { _dtacsCheckIds = mempty - } + DescribeTrustedAdvisorCheckSummaries' {_dtacsCheckIds = mempty} + -- | The IDs of the Trusted Advisor checks. dtacsCheckIds :: Lens' DescribeTrustedAdvisorCheckSummaries [Text] dtacsCheckIds = lens _dtacsCheckIds (\ s a -> s{_dtacsCheckIds = a}) . _Coerce; instance AWSRequest - DescribeTrustedAdvisorCheckSummaries where + DescribeTrustedAdvisorCheckSummaries + where type Rs DescribeTrustedAdvisorCheckSummaries = DescribeTrustedAdvisorCheckSummariesResponse request = postJSON support @@ -84,12 +85,15 @@ (x .?> "summaries" .!@ mempty)) instance Hashable - DescribeTrustedAdvisorCheckSummaries + DescribeTrustedAdvisorCheckSummaries + where instance NFData DescribeTrustedAdvisorCheckSummaries + where instance ToHeaders - DescribeTrustedAdvisorCheckSummaries where + DescribeTrustedAdvisorCheckSummaries + where toHeaders = const (mconcat @@ -119,10 +123,11 @@ -- -- /See:/ 'describeTrustedAdvisorCheckSummariesResponse' smart constructor. data DescribeTrustedAdvisorCheckSummariesResponse = DescribeTrustedAdvisorCheckSummariesResponse' - { _dtacsrsResponseStatus :: !Int - , _dtacsrsSummaries :: ![TrustedAdvisorCheckSummary] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dtacsrsResponseStatus :: !Int + , _dtacsrsSummaries :: ![TrustedAdvisorCheckSummary] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTrustedAdvisorCheckSummariesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -134,11 +139,10 @@ :: Int -- ^ 'dtacsrsResponseStatus' -> DescribeTrustedAdvisorCheckSummariesResponse describeTrustedAdvisorCheckSummariesResponse pResponseStatus_ = - DescribeTrustedAdvisorCheckSummariesResponse' - { _dtacsrsResponseStatus = pResponseStatus_ - , _dtacsrsSummaries = mempty - } + DescribeTrustedAdvisorCheckSummariesResponse' + {_dtacsrsResponseStatus = pResponseStatus_, _dtacsrsSummaries = mempty} + -- | -- | The response status code. dtacsrsResponseStatus :: Lens' DescribeTrustedAdvisorCheckSummariesResponse Int dtacsrsResponseStatus = lens _dtacsrsResponseStatus (\ s a -> s{_dtacsrsResponseStatus = a}); @@ -148,4 +152,5 @@ dtacsrsSummaries = lens _dtacsrsSummaries (\ s a -> s{_dtacsrsSummaries = a}) . _Coerce; instance NFData - DescribeTrustedAdvisorCheckSummariesResponse + DescribeTrustedAdvisorCheckSummariesResponse + where diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs --- a/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs +++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Support.DescribeTrustedAdvisorChecks --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , dtacrsChecks ) where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.Support.Types -import Network.AWS.Support.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.Support.Types +import Network.AWS.Support.Types.Product -- | -- @@ -50,9 +50,10 @@ -- -- /See:/ 'describeTrustedAdvisorChecks' smart constructor. newtype DescribeTrustedAdvisorChecks = DescribeTrustedAdvisorChecks' - { _dtacLanguage :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dtacLanguage :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTrustedAdvisorChecks' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -62,10 +63,9 @@ :: Text -- ^ 'dtacLanguage' -> DescribeTrustedAdvisorChecks describeTrustedAdvisorChecks pLanguage_ = - DescribeTrustedAdvisorChecks' - { _dtacLanguage = pLanguage_ - } + DescribeTrustedAdvisorChecks' {_dtacLanguage = pLanguage_} + -- | The ISO 639-1 code for the language in which AWS provides support. AWS Support currently supports English ("en") and Japanese ("ja"). Language parameters must be passed explicitly for operations that take them. dtacLanguage :: Lens' DescribeTrustedAdvisorChecks Text dtacLanguage = lens _dtacLanguage (\ s a -> s{_dtacLanguage = a}); @@ -81,9 +81,9 @@ DescribeTrustedAdvisorChecksResponse' <$> (pure (fromEnum s)) <*> (x .?> "checks" .!@ mempty)) -instance Hashable DescribeTrustedAdvisorChecks +instance Hashable DescribeTrustedAdvisorChecks where -instance NFData DescribeTrustedAdvisorChecks +instance NFData DescribeTrustedAdvisorChecks where instance ToHeaders DescribeTrustedAdvisorChecks where toHeaders @@ -112,10 +112,11 @@ -- -- /See:/ 'describeTrustedAdvisorChecksResponse' smart constructor. data DescribeTrustedAdvisorChecksResponse = DescribeTrustedAdvisorChecksResponse' - { _dtacrsResponseStatus :: !Int - , _dtacrsChecks :: ![TrustedAdvisorCheckDescription] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dtacrsResponseStatus :: !Int + , _dtacrsChecks :: ![TrustedAdvisorCheckDescription] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTrustedAdvisorChecksResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -127,11 +128,10 @@ :: Int -- ^ 'dtacrsResponseStatus' -> DescribeTrustedAdvisorChecksResponse describeTrustedAdvisorChecksResponse pResponseStatus_ = - DescribeTrustedAdvisorChecksResponse' - { _dtacrsResponseStatus = pResponseStatus_ - , _dtacrsChecks = mempty - } + DescribeTrustedAdvisorChecksResponse' + {_dtacrsResponseStatus = pResponseStatus_, _dtacrsChecks = mempty} + -- | -- | The response status code. dtacrsResponseStatus :: Lens' DescribeTrustedAdvisorChecksResponse Int dtacrsResponseStatus = lens _dtacrsResponseStatus (\ s a -> s{_dtacrsResponseStatus = a}); @@ -141,3 +141,4 @@ dtacrsChecks = lens _dtacrsChecks (\ s a -> s{_dtacrsChecks = a}) . _Coerce; instance NFData DescribeTrustedAdvisorChecksResponse + where diff --git a/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs b/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs --- a/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs +++ b/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Support.RefreshTrustedAdvisorCheck --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -47,12 +47,12 @@ , rtacrsStatus ) where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.Support.Types -import Network.AWS.Support.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.Support.Types +import Network.AWS.Support.Types.Product -- | -- @@ -60,9 +60,10 @@ -- -- /See:/ 'refreshTrustedAdvisorCheck' smart constructor. newtype RefreshTrustedAdvisorCheck = RefreshTrustedAdvisorCheck' - { _rtacCheckId :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _rtacCheckId :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RefreshTrustedAdvisorCheck' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -72,10 +73,9 @@ :: Text -- ^ 'rtacCheckId' -> RefreshTrustedAdvisorCheck refreshTrustedAdvisorCheck pCheckId_ = - RefreshTrustedAdvisorCheck' - { _rtacCheckId = pCheckId_ - } + RefreshTrustedAdvisorCheck' {_rtacCheckId = pCheckId_} + -- | The unique identifier for the Trusted Advisor check to refresh. __Note:__ Specifying the check ID of a check that is automatically refreshed causes an @InvalidParameterValue@ error. rtacCheckId :: Lens' RefreshTrustedAdvisorCheck Text rtacCheckId = lens _rtacCheckId (\ s a -> s{_rtacCheckId = a}); @@ -90,9 +90,9 @@ RefreshTrustedAdvisorCheckResponse' <$> (pure (fromEnum s)) <*> (x .:> "status")) -instance Hashable RefreshTrustedAdvisorCheck +instance Hashable RefreshTrustedAdvisorCheck where -instance NFData RefreshTrustedAdvisorCheck +instance NFData RefreshTrustedAdvisorCheck where instance ToHeaders RefreshTrustedAdvisorCheck where toHeaders @@ -121,10 +121,11 @@ -- -- /See:/ 'refreshTrustedAdvisorCheckResponse' smart constructor. data RefreshTrustedAdvisorCheckResponse = RefreshTrustedAdvisorCheckResponse' - { _rtacrsResponseStatus :: !Int - , _rtacrsStatus :: !TrustedAdvisorCheckRefreshStatus - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _rtacrsResponseStatus :: !Int + , _rtacrsStatus :: !TrustedAdvisorCheckRefreshStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RefreshTrustedAdvisorCheckResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -137,11 +138,10 @@ -> TrustedAdvisorCheckRefreshStatus -- ^ 'rtacrsStatus' -> RefreshTrustedAdvisorCheckResponse refreshTrustedAdvisorCheckResponse pResponseStatus_ pStatus_ = - RefreshTrustedAdvisorCheckResponse' - { _rtacrsResponseStatus = pResponseStatus_ - , _rtacrsStatus = pStatus_ - } + RefreshTrustedAdvisorCheckResponse' + {_rtacrsResponseStatus = pResponseStatus_, _rtacrsStatus = pStatus_} + -- | -- | The response status code. rtacrsResponseStatus :: Lens' RefreshTrustedAdvisorCheckResponse Int rtacrsResponseStatus = lens _rtacrsResponseStatus (\ s a -> s{_rtacrsResponseStatus = a}); @@ -151,3 +151,4 @@ rtacrsStatus = lens _rtacrsStatus (\ s a -> s{_rtacrsStatus = a}); instance NFData RefreshTrustedAdvisorCheckResponse + where diff --git a/gen/Network/AWS/Support/ResolveCase.hs b/gen/Network/AWS/Support/ResolveCase.hs --- a/gen/Network/AWS/Support/ResolveCase.hs +++ b/gen/Network/AWS/Support/ResolveCase.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.Support.ResolveCase --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , rcrsResponseStatus ) where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response -import Network.AWS.Support.Types -import Network.AWS.Support.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.Support.Types +import Network.AWS.Support.Types.Product -- | -- @@ -51,9 +51,10 @@ -- -- /See:/ 'resolveCase' smart constructor. newtype ResolveCase = ResolveCase' - { _rcCaseId :: Maybe Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _rcCaseId :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResolveCase' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -61,11 +62,9 @@ -- * 'rcCaseId' - The AWS Support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-/12345678910-2013-c4c1d2bf33c5cf47/ resolveCase :: ResolveCase -resolveCase = - ResolveCase' - { _rcCaseId = Nothing - } +resolveCase = ResolveCase' {_rcCaseId = Nothing} + -- | The AWS Support case ID requested or returned in the call. The case ID is an alphanumeric string formatted as shown in this example: case-/12345678910-2013-c4c1d2bf33c5cf47/ rcCaseId :: Lens' ResolveCase (Maybe Text) rcCaseId = lens _rcCaseId (\ s a -> s{_rcCaseId = a}); @@ -81,9 +80,9 @@ (x .?> "finalCaseStatus") <*> (pure (fromEnum s))) -instance Hashable ResolveCase +instance Hashable ResolveCase where -instance NFData ResolveCase +instance NFData ResolveCase where instance ToHeaders ResolveCase where toHeaders @@ -110,11 +109,12 @@ -- -- /See:/ 'resolveCaseResponse' smart constructor. data ResolveCaseResponse = ResolveCaseResponse' - { _rcrsInitialCaseStatus :: !(Maybe Text) - , _rcrsFinalCaseStatus :: !(Maybe Text) - , _rcrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _rcrsInitialCaseStatus :: !(Maybe Text) + , _rcrsFinalCaseStatus :: !(Maybe Text) + , _rcrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResolveCaseResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -128,12 +128,13 @@ :: Int -- ^ 'rcrsResponseStatus' -> ResolveCaseResponse resolveCaseResponse pResponseStatus_ = - ResolveCaseResponse' - { _rcrsInitialCaseStatus = Nothing - , _rcrsFinalCaseStatus = Nothing - , _rcrsResponseStatus = pResponseStatus_ - } + ResolveCaseResponse' + { _rcrsInitialCaseStatus = Nothing + , _rcrsFinalCaseStatus = Nothing + , _rcrsResponseStatus = pResponseStatus_ + } + -- | The status of the case when the 'ResolveCase' request was sent. rcrsInitialCaseStatus :: Lens' ResolveCaseResponse (Maybe Text) rcrsInitialCaseStatus = lens _rcrsInitialCaseStatus (\ s a -> s{_rcrsInitialCaseStatus = a}); @@ -146,4 +147,4 @@ rcrsResponseStatus :: Lens' ResolveCaseResponse Int rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a}); -instance NFData ResolveCaseResponse +instance NFData ResolveCaseResponse where diff --git a/gen/Network/AWS/Support/Types.hs b/gen/Network/AWS/Support/Types.hs --- a/gen/Network/AWS/Support/Types.hs +++ b/gen/Network/AWS/Support/Types.hs @@ -4,9 +4,9 @@ -- | -- Module : Network.AWS.Support.Types --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -153,38 +153,40 @@ , tarsResourcesSuppressed ) where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Sign.V4 -import Network.AWS.Support.Types.Product -import Network.AWS.Support.Types.Sum +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Sign.V4 +import Network.AWS.Support.Types.Product +import Network.AWS.Support.Types.Sum -- | API version @2013-04-15@ of the Amazon Support SDK configuration. support :: Service support = - Service - { _svcAbbrev = "Support" - , _svcSigner = v4 - , _svcPrefix = "support" - , _svcVersion = "2013-04-15" - , _svcEndpoint = defaultEndpoint support - , _svcTimeout = Just 70 - , _svcCheck = statusSuccess - , _svcError = parseJSONError "Support" - , _svcRetry = retry - } + Service + { _svcAbbrev = "Support" + , _svcSigner = v4 + , _svcPrefix = "support" + , _svcVersion = "2013-04-15" + , _svcEndpoint = defaultEndpoint support + , _svcTimeout = Just 70 + , _svcCheck = statusSuccess + , _svcError = parseJSONError "Support" + , _svcRetry = retry + } where retry = - Exponential - { _retryBase = 5.0e-2 - , _retryGrowth = 2 - , _retryAttempts = 5 - , _retryCheck = check - } + Exponential + { _retryBase = 5.0e-2 + , _retryGrowth = 2 + , _retryAttempts = 5 + , _retryCheck = check + } check e + | has (hasCode "ThrottledException" . hasStatus 400) e = + Just "throttled_exception" | has (hasStatus 429) e = Just "too_many_requests" | has (hasCode "ThrottlingException" . hasStatus 400) e = - Just "throttling_exception" + Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout" | has (hasStatus 502) e = Just "bad_gateway" @@ -193,59 +195,69 @@ | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing + -- | The expiration time of the attachment set has passed. The set expires 1 hour after it is created. -- -- _AttachmentSetExpired :: AsError a => Getting (First ServiceError) a ServiceError -_AttachmentSetExpired = _ServiceError . hasCode "AttachmentSetExpired" +_AttachmentSetExpired = _MatchServiceError support "AttachmentSetExpired" + -- | The limit for the number of attachment sets created in a short period of time has been exceeded. -- -- _AttachmentLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError -_AttachmentLimitExceeded = _ServiceError . hasCode "AttachmentLimitExceeded" +_AttachmentLimitExceeded = _MatchServiceError support "AttachmentLimitExceeded" + -- | The limit for the number of 'DescribeAttachment' requests in a short period of time has been exceeded. -- -- _DescribeAttachmentLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError _DescribeAttachmentLimitExceeded = - _ServiceError . hasCode "DescribeAttachmentLimitExceeded" + _MatchServiceError support "DescribeAttachmentLimitExceeded" + -- | The requested @caseId@ could not be located. -- -- _CaseIdNotFound :: AsError a => Getting (First ServiceError) a ServiceError -_CaseIdNotFound = _ServiceError . hasCode "CaseIdNotFound" +_CaseIdNotFound = _MatchServiceError support "CaseIdNotFound" + -- | An attachment set with the specified ID could not be found. -- -- _AttachmentSetIdNotFound :: AsError a => Getting (First ServiceError) a ServiceError -_AttachmentSetIdNotFound = _ServiceError . hasCode "AttachmentSetIdNotFound" +_AttachmentSetIdNotFound = _MatchServiceError support "AttachmentSetIdNotFound" + -- | A limit for the size of an attachment set has been exceeded. The limits are 3 attachments and 5 MB per attachment. -- -- _AttachmentSetSizeLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError _AttachmentSetSizeLimitExceeded = - _ServiceError . hasCode "AttachmentSetSizeLimitExceeded" + _MatchServiceError support "AttachmentSetSizeLimitExceeded" + -- | An attachment with the specified ID could not be found. -- -- _AttachmentIdNotFound :: AsError a => Getting (First ServiceError) a ServiceError -_AttachmentIdNotFound = _ServiceError . hasCode "AttachmentIdNotFound" +_AttachmentIdNotFound = _MatchServiceError support "AttachmentIdNotFound" + -- | An internal server error occurred. -- -- _InternalServerError :: AsError a => Getting (First ServiceError) a ServiceError -_InternalServerError = _ServiceError . hasCode "InternalServerError" +_InternalServerError = _MatchServiceError support "InternalServerError" + -- | The case creation limit for the account has been exceeded. -- -- _CaseCreationLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError _CaseCreationLimitExceeded = - _ServiceError . hasCode "CaseCreationLimitExceeded" + _MatchServiceError support "CaseCreationLimitExceeded" + diff --git a/gen/Network/AWS/Support/Types/Product.hs b/gen/Network/AWS/Support/Types/Product.hs --- a/gen/Network/AWS/Support/Types/Product.hs +++ b/gen/Network/AWS/Support/Types/Product.hs @@ -9,17 +9,17 @@ -- | -- Module : Network.AWS.Support.Types.Product --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.Support.Types.Product where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Support.Types.Sum +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Support.Types.Sum -- | An attachment to a case communication. The attachment consists of the file name and the content of the file. -- @@ -27,10 +27,11 @@ -- -- /See:/ 'attachment' smart constructor. data Attachment = Attachment' - { _aData :: !(Maybe Base64) - , _aFileName :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _aData :: !(Maybe Base64) + , _aFileName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Attachment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -40,12 +41,9 @@ -- * 'aFileName' - The name of the attachment file. attachment :: Attachment -attachment = - Attachment' - { _aData = Nothing - , _aFileName = Nothing - } +attachment = Attachment' {_aData = Nothing, _aFileName = Nothing} + -- | The content of the attachment file.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. aData :: Lens' Attachment (Maybe ByteString) aData = lens _aData (\ s a -> s{_aData = a}) . mapping _Base64; @@ -61,9 +59,9 @@ Attachment' <$> (x .:? "data") <*> (x .:? "fileName")) -instance Hashable Attachment +instance Hashable Attachment where -instance NFData Attachment +instance NFData Attachment where instance ToJSON Attachment where toJSON Attachment'{..} @@ -78,10 +76,11 @@ -- -- /See:/ 'attachmentDetails' smart constructor. data AttachmentDetails = AttachmentDetails' - { _adAttachmentId :: !(Maybe Text) - , _adFileName :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _adAttachmentId :: !(Maybe Text) + , _adFileName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AttachmentDetails' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -92,11 +91,9 @@ attachmentDetails :: AttachmentDetails attachmentDetails = - AttachmentDetails' - { _adAttachmentId = Nothing - , _adFileName = Nothing - } + AttachmentDetails' {_adAttachmentId = Nothing, _adFileName = Nothing} + -- | The ID of the attachment. adAttachmentId :: Lens' AttachmentDetails (Maybe Text) adAttachmentId = lens _adAttachmentId (\ s a -> s{_adAttachmentId = a}); @@ -112,9 +109,9 @@ AttachmentDetails' <$> (x .:? "attachmentId") <*> (x .:? "fileName")) -instance Hashable AttachmentDetails +instance Hashable AttachmentDetails where -instance NFData AttachmentDetails +instance NFData AttachmentDetails where -- | A JSON-formatted object that contains the metadata for a support case. It is contained the response from a 'DescribeCases' request. __CaseDetails__ contains the following fields: -- @@ -148,20 +145,21 @@ -- -- /See:/ 'caseDetails' smart constructor. data CaseDetails = CaseDetails' - { _cdSubject :: !(Maybe Text) - , _cdStatus :: !(Maybe Text) - , _cdRecentCommunications :: !(Maybe RecentCaseCommunications) - , _cdSeverityCode :: !(Maybe Text) - , _cdCaseId :: !(Maybe Text) - , _cdCcEmailAddresses :: !(Maybe [Text]) - , _cdDisplayId :: !(Maybe Text) - , _cdSubmittedBy :: !(Maybe Text) - , _cdLanguage :: !(Maybe Text) - , _cdTimeCreated :: !(Maybe Text) - , _cdCategoryCode :: !(Maybe Text) - , _cdServiceCode :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _cdSubject :: !(Maybe Text) + , _cdStatus :: !(Maybe Text) + , _cdRecentCommunications :: !(Maybe RecentCaseCommunications) + , _cdSeverityCode :: !(Maybe Text) + , _cdCaseId :: !(Maybe Text) + , _cdCcEmailAddresses :: !(Maybe [Text]) + , _cdDisplayId :: !(Maybe Text) + , _cdSubmittedBy :: !(Maybe Text) + , _cdLanguage :: !(Maybe Text) + , _cdTimeCreated :: !(Maybe Text) + , _cdCategoryCode :: !(Maybe Text) + , _cdServiceCode :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CaseDetails' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -192,21 +190,22 @@ caseDetails :: CaseDetails caseDetails = - CaseDetails' - { _cdSubject = Nothing - , _cdStatus = Nothing - , _cdRecentCommunications = Nothing - , _cdSeverityCode = Nothing - , _cdCaseId = Nothing - , _cdCcEmailAddresses = Nothing - , _cdDisplayId = Nothing - , _cdSubmittedBy = Nothing - , _cdLanguage = Nothing - , _cdTimeCreated = Nothing - , _cdCategoryCode = Nothing - , _cdServiceCode = Nothing - } + CaseDetails' + { _cdSubject = Nothing + , _cdStatus = Nothing + , _cdRecentCommunications = Nothing + , _cdSeverityCode = Nothing + , _cdCaseId = Nothing + , _cdCcEmailAddresses = Nothing + , _cdDisplayId = Nothing + , _cdSubmittedBy = Nothing + , _cdLanguage = Nothing + , _cdTimeCreated = Nothing + , _cdCategoryCode = Nothing + , _cdServiceCode = Nothing + } + -- | The subject line for the case in the AWS Support Center. cdSubject :: Lens' CaseDetails (Maybe Text) cdSubject = lens _cdSubject (\ s a -> s{_cdSubject = a}); @@ -272,9 +271,9 @@ <*> (x .:? "categoryCode") <*> (x .:? "serviceCode")) -instance Hashable CaseDetails +instance Hashable CaseDetails where -instance NFData CaseDetails +instance NFData CaseDetails where -- | A JSON-formatted name/value pair that represents the category name and category code of the problem, selected from the 'DescribeServices' response for each AWS service. -- @@ -282,10 +281,11 @@ -- -- /See:/ 'category' smart constructor. data Category = Category' - { _cName :: !(Maybe Text) - , _cCode :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _cName :: !(Maybe Text) + , _cCode :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Category' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -295,12 +295,9 @@ -- * 'cCode' - The category code for the support case. category :: Category -category = - Category' - { _cName = Nothing - , _cCode = Nothing - } +category = Category' {_cName = Nothing, _cCode = Nothing} + -- | The category name for the support case. cName :: Lens' Category (Maybe Text) cName = lens _cName (\ s a -> s{_cName = a}); @@ -315,9 +312,9 @@ (\ x -> Category' <$> (x .:? "name") <*> (x .:? "code")) -instance Hashable Category +instance Hashable Category where -instance NFData Category +instance NFData Category where -- | A communication associated with an AWS Support case. The communication consists of the case ID, the message body, attachment information, the account email address, and the date and time of the communication. -- @@ -325,13 +322,14 @@ -- -- /See:/ 'communication' smart constructor. data Communication = Communication' - { _cBody :: !(Maybe Text) - , _cCaseId :: !(Maybe Text) - , _cSubmittedBy :: !(Maybe Text) - , _cTimeCreated :: !(Maybe Text) - , _cAttachmentSet :: !(Maybe [AttachmentDetails]) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _cBody :: !(Maybe Text) + , _cCaseId :: !(Maybe Text) + , _cSubmittedBy :: !(Maybe Text) + , _cTimeCreated :: !(Maybe Text) + , _cAttachmentSet :: !(Maybe [AttachmentDetails]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Communication' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -348,14 +346,15 @@ communication :: Communication communication = - Communication' - { _cBody = Nothing - , _cCaseId = Nothing - , _cSubmittedBy = Nothing - , _cTimeCreated = Nothing - , _cAttachmentSet = Nothing - } + Communication' + { _cBody = Nothing + , _cCaseId = Nothing + , _cSubmittedBy = Nothing + , _cTimeCreated = Nothing + , _cAttachmentSet = Nothing + } + -- | The text of the communication between the customer and AWS Support. cBody :: Lens' Communication (Maybe Text) cBody = lens _cBody (\ s a -> s{_cBody = a}); @@ -386,9 +385,9 @@ <*> (x .:? "timeCreated") <*> (x .:? "attachmentSet" .!= mempty)) -instance Hashable Communication +instance Hashable Communication where -instance NFData Communication +instance NFData Communication where -- | The five most recent communications associated with the case. -- @@ -396,10 +395,11 @@ -- -- /See:/ 'recentCaseCommunications' smart constructor. data RecentCaseCommunications = RecentCaseCommunications' - { _rccNextToken :: !(Maybe Text) - , _rccCommunications :: !(Maybe [Communication]) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _rccNextToken :: !(Maybe Text) + , _rccCommunications :: !(Maybe [Communication]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RecentCaseCommunications' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -410,11 +410,10 @@ recentCaseCommunications :: RecentCaseCommunications recentCaseCommunications = - RecentCaseCommunications' - { _rccNextToken = Nothing - , _rccCommunications = Nothing - } + RecentCaseCommunications' + {_rccNextToken = Nothing, _rccCommunications = Nothing} + -- | A resumption point for pagination. rccNextToken :: Lens' RecentCaseCommunications (Maybe Text) rccNextToken = lens _rccNextToken (\ s a -> s{_rccNextToken = a}); @@ -431,9 +430,9 @@ (x .:? "nextToken") <*> (x .:? "communications" .!= mempty)) -instance Hashable RecentCaseCommunications +instance Hashable RecentCaseCommunications where -instance NFData RecentCaseCommunications +instance NFData RecentCaseCommunications where -- | A code and name pair that represent a severity level that can be applied to a support case. -- @@ -441,10 +440,11 @@ -- -- /See:/ 'severityLevel' smart constructor. data SeverityLevel = SeverityLevel' - { _slName :: !(Maybe Text) - , _slCode :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _slName :: !(Maybe Text) + , _slCode :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SeverityLevel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -454,12 +454,9 @@ -- * 'slCode' - One of four values: "low," "medium," "high," and "urgent". These values correspond to response times returned to the caller in @severityLevel.name@ . severityLevel :: SeverityLevel -severityLevel = - SeverityLevel' - { _slName = Nothing - , _slCode = Nothing - } +severityLevel = SeverityLevel' {_slName = Nothing, _slCode = Nothing} + -- | The name of the severity level that corresponds to the severity level code. slName :: Lens' SeverityLevel (Maybe Text) slName = lens _slName (\ s a -> s{_slName = a}); @@ -474,9 +471,9 @@ (\ x -> SeverityLevel' <$> (x .:? "name") <*> (x .:? "code")) -instance Hashable SeverityLevel +instance Hashable SeverityLevel where -instance NFData SeverityLevel +instance NFData SeverityLevel where -- | Information about an AWS service returned by the 'DescribeServices' operation. -- @@ -484,11 +481,12 @@ -- -- /See:/ 'supportService' smart constructor. data SupportService = SupportService' - { _ssCategories :: !(Maybe [Category]) - , _ssName :: !(Maybe Text) - , _ssCode :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ssCategories :: !(Maybe [Category]) + , _ssName :: !(Maybe Text) + , _ssCode :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SupportService' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -501,12 +499,10 @@ supportService :: SupportService supportService = - SupportService' - { _ssCategories = Nothing - , _ssName = Nothing - , _ssCode = Nothing - } + SupportService' + {_ssCategories = Nothing, _ssName = Nothing, _ssCode = Nothing} + -- | A list of categories that describe the type of support issue a case describes. Categories consist of a category name and a category code. Category names and codes are passed to AWS Support when you call 'CreateCase' . ssCategories :: Lens' SupportService [Category] ssCategories = lens _ssCategories (\ s a -> s{_ssCategories = a}) . _Default . _Coerce; @@ -527,9 +523,9 @@ (x .:? "categories" .!= mempty) <*> (x .:? "name") <*> (x .:? "code")) -instance Hashable SupportService +instance Hashable SupportService where -instance NFData SupportService +instance NFData SupportService where -- | The container for summary information that relates to the category of the Trusted Advisor check. -- @@ -537,9 +533,10 @@ -- -- /See:/ 'trustedAdvisorCategorySpecificSummary' smart constructor. newtype TrustedAdvisorCategorySpecificSummary = TrustedAdvisorCategorySpecificSummary' - { _tacssCostOptimizing :: Maybe TrustedAdvisorCostOptimizingSummary - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _tacssCostOptimizing :: Maybe TrustedAdvisorCostOptimizingSummary + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrustedAdvisorCategorySpecificSummary' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -548,16 +545,16 @@ trustedAdvisorCategorySpecificSummary :: TrustedAdvisorCategorySpecificSummary trustedAdvisorCategorySpecificSummary = - TrustedAdvisorCategorySpecificSummary' - { _tacssCostOptimizing = Nothing - } + TrustedAdvisorCategorySpecificSummary' {_tacssCostOptimizing = Nothing} + -- | The summary information about cost savings for a Trusted Advisor check that is in the Cost Optimizing category. tacssCostOptimizing :: Lens' TrustedAdvisorCategorySpecificSummary (Maybe TrustedAdvisorCostOptimizingSummary) tacssCostOptimizing = lens _tacssCostOptimizing (\ s a -> s{_tacssCostOptimizing = a}); instance FromJSON - TrustedAdvisorCategorySpecificSummary where + TrustedAdvisorCategorySpecificSummary + where parseJSON = withObject "TrustedAdvisorCategorySpecificSummary" (\ x -> @@ -565,9 +562,11 @@ (x .:? "costOptimizing")) instance Hashable - TrustedAdvisorCategorySpecificSummary + TrustedAdvisorCategorySpecificSummary + where instance NFData TrustedAdvisorCategorySpecificSummary + where -- | The description and metadata for a Trusted Advisor check. -- @@ -575,13 +574,14 @@ -- -- /See:/ 'trustedAdvisorCheckDescription' smart constructor. data TrustedAdvisorCheckDescription = TrustedAdvisorCheckDescription' - { _tacdId :: !Text - , _tacdName :: !Text - , _tacdDescription :: !Text - , _tacdCategory :: !Text - , _tacdMetadata :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _tacdId :: !Text + , _tacdName :: !Text + , _tacdDescription :: !Text + , _tacdCategory :: !Text + , _tacdMetadata :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrustedAdvisorCheckDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -602,14 +602,15 @@ -> Text -- ^ 'tacdCategory' -> TrustedAdvisorCheckDescription trustedAdvisorCheckDescription pId_ pName_ pDescription_ pCategory_ = - TrustedAdvisorCheckDescription' - { _tacdId = pId_ - , _tacdName = pName_ - , _tacdDescription = pDescription_ - , _tacdCategory = pCategory_ - , _tacdMetadata = mempty - } + TrustedAdvisorCheckDescription' + { _tacdId = pId_ + , _tacdName = pName_ + , _tacdDescription = pDescription_ + , _tacdCategory = pCategory_ + , _tacdMetadata = mempty + } + -- | The unique identifier for the Trusted Advisor check. tacdId :: Lens' TrustedAdvisorCheckDescription Text tacdId = lens _tacdId (\ s a -> s{_tacdId = a}); @@ -642,8 +643,9 @@ <*> (x .:? "metadata" .!= mempty)) instance Hashable TrustedAdvisorCheckDescription + where -instance NFData TrustedAdvisorCheckDescription +instance NFData TrustedAdvisorCheckDescription where -- | The refresh status of a Trusted Advisor check. -- @@ -651,11 +653,12 @@ -- -- /See:/ 'trustedAdvisorCheckRefreshStatus' smart constructor. data TrustedAdvisorCheckRefreshStatus = TrustedAdvisorCheckRefreshStatus' - { _tacrsCheckId :: !Text - , _tacrsStatus :: !Text - , _tacrsMillisUntilNextRefreshable :: !Integer - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _tacrsCheckId :: !Text + , _tacrsStatus :: !Text + , _tacrsMillisUntilNextRefreshable :: !Integer + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrustedAdvisorCheckRefreshStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -671,12 +674,13 @@ -> Integer -- ^ 'tacrsMillisUntilNextRefreshable' -> TrustedAdvisorCheckRefreshStatus trustedAdvisorCheckRefreshStatus pCheckId_ pStatus_ pMillisUntilNextRefreshable_ = - TrustedAdvisorCheckRefreshStatus' - { _tacrsCheckId = pCheckId_ - , _tacrsStatus = pStatus_ - , _tacrsMillisUntilNextRefreshable = pMillisUntilNextRefreshable_ - } + TrustedAdvisorCheckRefreshStatus' + { _tacrsCheckId = pCheckId_ + , _tacrsStatus = pStatus_ + , _tacrsMillisUntilNextRefreshable = pMillisUntilNextRefreshable_ + } + -- | The unique identifier for the Trusted Advisor check. tacrsCheckId :: Lens' TrustedAdvisorCheckRefreshStatus Text tacrsCheckId = lens _tacrsCheckId (\ s a -> s{_tacrsCheckId = a}); @@ -699,8 +703,10 @@ (x .: "millisUntilNextRefreshable")) instance Hashable TrustedAdvisorCheckRefreshStatus + where instance NFData TrustedAdvisorCheckRefreshStatus + where -- | The results of a Trusted Advisor check returned by 'DescribeTrustedAdvisorCheckResult' . -- @@ -708,14 +714,15 @@ -- -- /See:/ 'trustedAdvisorCheckResult' smart constructor. data TrustedAdvisorCheckResult = TrustedAdvisorCheckResult' - { _tacrCheckId :: !Text - , _tacrTimestamp :: !Text - , _tacrStatus :: !Text - , _tacrResourcesSummary :: !TrustedAdvisorResourcesSummary - , _tacrCategorySpecificSummary :: !TrustedAdvisorCategorySpecificSummary - , _tacrFlaggedResources :: ![TrustedAdvisorResourceDetail] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _tacrCheckId :: !Text + , _tacrTimestamp :: !Text + , _tacrStatus :: !Text + , _tacrResourcesSummary :: !TrustedAdvisorResourcesSummary + , _tacrCategorySpecificSummary :: !TrustedAdvisorCategorySpecificSummary + , _tacrFlaggedResources :: ![TrustedAdvisorResourceDetail] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrustedAdvisorCheckResult' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -739,15 +746,16 @@ -> TrustedAdvisorCategorySpecificSummary -- ^ 'tacrCategorySpecificSummary' -> TrustedAdvisorCheckResult trustedAdvisorCheckResult pCheckId_ pTimestamp_ pStatus_ pResourcesSummary_ pCategorySpecificSummary_ = - TrustedAdvisorCheckResult' - { _tacrCheckId = pCheckId_ - , _tacrTimestamp = pTimestamp_ - , _tacrStatus = pStatus_ - , _tacrResourcesSummary = pResourcesSummary_ - , _tacrCategorySpecificSummary = pCategorySpecificSummary_ - , _tacrFlaggedResources = mempty - } + TrustedAdvisorCheckResult' + { _tacrCheckId = pCheckId_ + , _tacrTimestamp = pTimestamp_ + , _tacrStatus = pStatus_ + , _tacrResourcesSummary = pResourcesSummary_ + , _tacrCategorySpecificSummary = pCategorySpecificSummary_ + , _tacrFlaggedResources = mempty + } + -- | The unique identifier for the Trusted Advisor check. tacrCheckId :: Lens' TrustedAdvisorCheckResult Text tacrCheckId = lens _tacrCheckId (\ s a -> s{_tacrCheckId = a}); @@ -783,9 +791,9 @@ <*> (x .: "categorySpecificSummary") <*> (x .:? "flaggedResources" .!= mempty)) -instance Hashable TrustedAdvisorCheckResult +instance Hashable TrustedAdvisorCheckResult where -instance NFData TrustedAdvisorCheckResult +instance NFData TrustedAdvisorCheckResult where -- | A summary of a Trusted Advisor check result, including the alert status, last refresh, and number of resources examined. -- @@ -793,14 +801,15 @@ -- -- /See:/ 'trustedAdvisorCheckSummary' smart constructor. data TrustedAdvisorCheckSummary = TrustedAdvisorCheckSummary' - { _tacsHasFlaggedResources :: !(Maybe Bool) - , _tacsCheckId :: !Text - , _tacsTimestamp :: !Text - , _tacsStatus :: !Text - , _tacsResourcesSummary :: !TrustedAdvisorResourcesSummary - , _tacsCategorySpecificSummary :: !TrustedAdvisorCategorySpecificSummary - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _tacsHasFlaggedResources :: !(Maybe Bool) + , _tacsCheckId :: !Text + , _tacsTimestamp :: !Text + , _tacsStatus :: !Text + , _tacsResourcesSummary :: !TrustedAdvisorResourcesSummary + , _tacsCategorySpecificSummary :: !TrustedAdvisorCategorySpecificSummary + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrustedAdvisorCheckSummary' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -824,15 +833,16 @@ -> TrustedAdvisorCategorySpecificSummary -- ^ 'tacsCategorySpecificSummary' -> TrustedAdvisorCheckSummary trustedAdvisorCheckSummary pCheckId_ pTimestamp_ pStatus_ pResourcesSummary_ pCategorySpecificSummary_ = - TrustedAdvisorCheckSummary' - { _tacsHasFlaggedResources = Nothing - , _tacsCheckId = pCheckId_ - , _tacsTimestamp = pTimestamp_ - , _tacsStatus = pStatus_ - , _tacsResourcesSummary = pResourcesSummary_ - , _tacsCategorySpecificSummary = pCategorySpecificSummary_ - } + TrustedAdvisorCheckSummary' + { _tacsHasFlaggedResources = Nothing + , _tacsCheckId = pCheckId_ + , _tacsTimestamp = pTimestamp_ + , _tacsStatus = pStatus_ + , _tacsResourcesSummary = pResourcesSummary_ + , _tacsCategorySpecificSummary = pCategorySpecificSummary_ + } + -- | Specifies whether the Trusted Advisor check has flagged resources. tacsHasFlaggedResources :: Lens' TrustedAdvisorCheckSummary (Maybe Bool) tacsHasFlaggedResources = lens _tacsHasFlaggedResources (\ s a -> s{_tacsHasFlaggedResources = a}); @@ -868,9 +878,9 @@ <*> (x .: "resourcesSummary") <*> (x .: "categorySpecificSummary")) -instance Hashable TrustedAdvisorCheckSummary +instance Hashable TrustedAdvisorCheckSummary where -instance NFData TrustedAdvisorCheckSummary +instance NFData TrustedAdvisorCheckSummary where -- | The estimated cost savings that might be realized if the recommended actions are taken. -- @@ -878,10 +888,11 @@ -- -- /See:/ 'trustedAdvisorCostOptimizingSummary' smart constructor. data TrustedAdvisorCostOptimizingSummary = TrustedAdvisorCostOptimizingSummary' - { _tacosEstimatedMonthlySavings :: !Double - , _tacosEstimatedPercentMonthlySavings :: !Double - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _tacosEstimatedMonthlySavings :: !Double + , _tacosEstimatedPercentMonthlySavings :: !Double + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrustedAdvisorCostOptimizingSummary' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -894,11 +905,12 @@ -> Double -- ^ 'tacosEstimatedPercentMonthlySavings' -> TrustedAdvisorCostOptimizingSummary trustedAdvisorCostOptimizingSummary pEstimatedMonthlySavings_ pEstimatedPercentMonthlySavings_ = - TrustedAdvisorCostOptimizingSummary' - { _tacosEstimatedMonthlySavings = pEstimatedMonthlySavings_ - , _tacosEstimatedPercentMonthlySavings = pEstimatedPercentMonthlySavings_ - } + TrustedAdvisorCostOptimizingSummary' + { _tacosEstimatedMonthlySavings = pEstimatedMonthlySavings_ + , _tacosEstimatedPercentMonthlySavings = pEstimatedPercentMonthlySavings_ + } + -- | The estimated monthly savings that might be realized if the recommended actions are taken. tacosEstimatedMonthlySavings :: Lens' TrustedAdvisorCostOptimizingSummary Double tacosEstimatedMonthlySavings = lens _tacosEstimatedMonthlySavings (\ s a -> s{_tacosEstimatedMonthlySavings = a}); @@ -917,8 +929,10 @@ (x .: "estimatedPercentMonthlySavings")) instance Hashable TrustedAdvisorCostOptimizingSummary + where instance NFData TrustedAdvisorCostOptimizingSummary + where -- | Contains information about a resource identified by a Trusted Advisor check. -- @@ -926,13 +940,14 @@ -- -- /See:/ 'trustedAdvisorResourceDetail' smart constructor. data TrustedAdvisorResourceDetail = TrustedAdvisorResourceDetail' - { _tardIsSuppressed :: !(Maybe Bool) - , _tardRegion :: !(Maybe Text) - , _tardStatus :: !Text - , _tardResourceId :: !Text - , _tardMetadata :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _tardIsSuppressed :: !(Maybe Bool) + , _tardRegion :: !(Maybe Text) + , _tardStatus :: !Text + , _tardResourceId :: !Text + , _tardMetadata :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrustedAdvisorResourceDetail' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -951,14 +966,15 @@ -> Text -- ^ 'tardResourceId' -> TrustedAdvisorResourceDetail trustedAdvisorResourceDetail pStatus_ pResourceId_ = - TrustedAdvisorResourceDetail' - { _tardIsSuppressed = Nothing - , _tardRegion = Nothing - , _tardStatus = pStatus_ - , _tardResourceId = pResourceId_ - , _tardMetadata = mempty - } + TrustedAdvisorResourceDetail' + { _tardIsSuppressed = Nothing + , _tardRegion = Nothing + , _tardStatus = pStatus_ + , _tardResourceId = pResourceId_ + , _tardMetadata = mempty + } + -- | Specifies whether the AWS resource was ignored by Trusted Advisor because it was marked as suppressed by the user. tardIsSuppressed :: Lens' TrustedAdvisorResourceDetail (Maybe Bool) tardIsSuppressed = lens _tardIsSuppressed (\ s a -> s{_tardIsSuppressed = a}); @@ -989,9 +1005,9 @@ <*> (x .: "resourceId") <*> (x .:? "metadata" .!= mempty)) -instance Hashable TrustedAdvisorResourceDetail +instance Hashable TrustedAdvisorResourceDetail where -instance NFData TrustedAdvisorResourceDetail +instance NFData TrustedAdvisorResourceDetail where -- | Details about AWS resources that were analyzed in a call to Trusted Advisor 'DescribeTrustedAdvisorCheckSummaries' . -- @@ -999,12 +1015,13 @@ -- -- /See:/ 'trustedAdvisorResourcesSummary' smart constructor. data TrustedAdvisorResourcesSummary = TrustedAdvisorResourcesSummary' - { _tarsResourcesProcessed :: !Integer - , _tarsResourcesFlagged :: !Integer - , _tarsResourcesIgnored :: !Integer - , _tarsResourcesSuppressed :: !Integer - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _tarsResourcesProcessed :: !Integer + , _tarsResourcesFlagged :: !Integer + , _tarsResourcesIgnored :: !Integer + , _tarsResourcesSuppressed :: !Integer + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TrustedAdvisorResourcesSummary' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1023,13 +1040,14 @@ -> Integer -- ^ 'tarsResourcesSuppressed' -> TrustedAdvisorResourcesSummary trustedAdvisorResourcesSummary pResourcesProcessed_ pResourcesFlagged_ pResourcesIgnored_ pResourcesSuppressed_ = - TrustedAdvisorResourcesSummary' - { _tarsResourcesProcessed = pResourcesProcessed_ - , _tarsResourcesFlagged = pResourcesFlagged_ - , _tarsResourcesIgnored = pResourcesIgnored_ - , _tarsResourcesSuppressed = pResourcesSuppressed_ - } + TrustedAdvisorResourcesSummary' + { _tarsResourcesProcessed = pResourcesProcessed_ + , _tarsResourcesFlagged = pResourcesFlagged_ + , _tarsResourcesIgnored = pResourcesIgnored_ + , _tarsResourcesSuppressed = pResourcesSuppressed_ + } + -- | The number of AWS resources that were analyzed by the Trusted Advisor check. tarsResourcesProcessed :: Lens' TrustedAdvisorResourcesSummary Integer tarsResourcesProcessed = lens _tarsResourcesProcessed (\ s a -> s{_tarsResourcesProcessed = a}); @@ -1058,5 +1076,6 @@ <*> (x .: "resourcesSuppressed")) instance Hashable TrustedAdvisorResourcesSummary + where -instance NFData TrustedAdvisorResourcesSummary +instance NFData TrustedAdvisorResourcesSummary where diff --git a/gen/Network/AWS/Support/Types/Sum.hs b/gen/Network/AWS/Support/Types/Sum.hs --- a/gen/Network/AWS/Support/Types/Sum.hs +++ b/gen/Network/AWS/Support/Types/Sum.hs @@ -9,12 +9,12 @@ -- | -- Module : Network.AWS.Support.Types.Sum --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.Support.Types.Sum where -import Network.AWS.Prelude +import Network.AWS.Prelude diff --git a/gen/Network/AWS/Support/Waiters.hs b/gen/Network/AWS/Support/Waiters.hs --- a/gen/Network/AWS/Support/Waiters.hs +++ b/gen/Network/AWS/Support/Waiters.hs @@ -7,15 +7,15 @@ -- | -- Module : Network.AWS.Support.Waiters --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.Support.Waiters where -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Support.Types -import Network.AWS.Waiter +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Support.Types +import Network.AWS.Waiter diff --git a/test/Main.hs b/test/Main.hs --- a/test/Main.hs +++ b/test/Main.hs @@ -2,9 +2,9 @@ -- | -- Module : Main --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- diff --git a/test/Test/AWS/Gen/Support.hs b/test/Test/AWS/Gen/Support.hs --- a/test/Test/AWS/Gen/Support.hs +++ b/test/Test/AWS/Gen/Support.hs @@ -5,20 +5,20 @@ -- | -- Module : Test.AWS.Gen.Support --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.Support where import Data.Proxy +import Network.AWS.Support import Test.AWS.Fixture import Test.AWS.Prelude -import Test.Tasty -import Network.AWS.Support import Test.AWS.Support.Internal +import Test.Tasty -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.