amazonka-cloudwatch 1.1.0 → 1.2.0

raw patch · 17 files changed

+62/−67 lines, 17 filesdep ~amazonka-cloudwatchdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-cloudwatch, amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-cloudwatch.cabal +5/−5
• gen/Network/AWS/CloudWatch.hs +2/−2
• gen/Network/AWS/CloudWatch/DeleteAlarms.hs +1/−2
• gen/Network/AWS/CloudWatch/DescribeAlarmHistory.hs +1/−2
• gen/Network/AWS/CloudWatch/DescribeAlarms.hs +1/−2
• gen/Network/AWS/CloudWatch/DescribeAlarmsForMetric.hs +1/−2
• gen/Network/AWS/CloudWatch/DisableAlarmActions.hs +1/−2
• gen/Network/AWS/CloudWatch/EnableAlarmActions.hs +1/−2
• gen/Network/AWS/CloudWatch/GetMetricStatistics.hs +1/−2
• gen/Network/AWS/CloudWatch/ListMetrics.hs +1/−2
• gen/Network/AWS/CloudWatch/PutMetricAlarm.hs +1/−2
• gen/Network/AWS/CloudWatch/PutMetricData.hs +1/−2
• gen/Network/AWS/CloudWatch/SetAlarmState.hs +1/−2
• gen/Network/AWS/CloudWatch/Types.hs +32/−36
• gen/Network/AWS/CloudWatch/Types/Product.hs +0/−1
• test/Test/AWS/Gen/CloudWatch.hs +11/−0

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-cloudwatch-version:               1.1.0+version:               1.2.0 synopsis:              Amazon CloudWatch SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -109,7 +109,7 @@         , Network.AWS.CloudWatch.Types.Sum      build-depends:-          amazonka-core == 1.1.0.*+          amazonka-core == 1.2.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cloudwatch-test@@ -128,9 +128,9 @@         , Test.AWS.CloudWatch.Internal      build-depends:-          amazonka-core == 1.1.0-        , amazonka-test == 1.1.0-        , amazonka-cloudwatch == 1.1.0+          amazonka-core == 1.2.0+        , amazonka-test == 1.2.0+        , amazonka-cloudwatch == 1.2.0         , base         , bytestring         , lens

@@ -65,8 +65,8 @@ -- /See:/ <http://docs.aws.amazon.com/AmazonCloudWatch/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.CloudWatch     (-    -- * Service-      CloudWatch+    -- * Service Configuration+      cloudWatch      -- * Errors     -- $errors

@@ -63,9 +63,8 @@ dAlarmNames = lens _dAlarmNames (\ s a -> s{_dAlarmNames = a}) . _Coerce;  instance AWSRequest DeleteAlarms where-        type Sv DeleteAlarms = CloudWatch         type Rs DeleteAlarms = DeleteAlarmsResponse-        request = postQuery+        request = postQuery cloudWatch         response = receiveNull DeleteAlarmsResponse'  instance ToHeaders DeleteAlarms where

@@ -124,10 +124,9 @@             Just $ rq & dahNextToken .~ rs ^. dahrsNextToken  instance AWSRequest DescribeAlarmHistory where-        type Sv DescribeAlarmHistory = CloudWatch         type Rs DescribeAlarmHistory =              DescribeAlarmHistoryResponse-        request = postQuery+        request = postQuery cloudWatch         response           = receiveXMLWrapper "DescribeAlarmHistoryResult"               (\ s h x ->

@@ -126,9 +126,8 @@             Just $ rq & daNextToken .~ rs ^. darsNextToken  instance AWSRequest DescribeAlarms where-        type Sv DescribeAlarms = CloudWatch         type Rs DescribeAlarms = DescribeAlarmsResponse-        request = postQuery+        request = postQuery cloudWatch         response           = receiveXMLWrapper "DescribeAlarmsResult"               (\ s h x ->

@@ -113,10 +113,9 @@ dafmNamespace = lens _dafmNamespace (\ s a -> s{_dafmNamespace = a});  instance AWSRequest DescribeAlarmsForMetric where-        type Sv DescribeAlarmsForMetric = CloudWatch         type Rs DescribeAlarmsForMetric =              DescribeAlarmsForMetricResponse-        request = postQuery+        request = postQuery cloudWatch         response           = receiveXMLWrapper "DescribeAlarmsForMetricResult"               (\ s h x ->

@@ -66,10 +66,9 @@ daaAlarmNames = lens _daaAlarmNames (\ s a -> s{_daaAlarmNames = a}) . _Coerce;  instance AWSRequest DisableAlarmActions where-        type Sv DisableAlarmActions = CloudWatch         type Rs DisableAlarmActions =              DisableAlarmActionsResponse-        request = postQuery+        request = postQuery cloudWatch         response = receiveNull DisableAlarmActionsResponse'  instance ToHeaders DisableAlarmActions where

@@ -62,10 +62,9 @@ eaaAlarmNames = lens _eaaAlarmNames (\ s a -> s{_eaaAlarmNames = a}) . _Coerce;  instance AWSRequest EnableAlarmActions where-        type Sv EnableAlarmActions = CloudWatch         type Rs EnableAlarmActions =              EnableAlarmActionsResponse-        request = postQuery+        request = postQuery cloudWatch         response = receiveNull EnableAlarmActionsResponse'  instance ToHeaders EnableAlarmActions where

@@ -174,10 +174,9 @@ gmsStatistics = lens _gmsStatistics (\ s a -> s{_gmsStatistics = a}) . _List1;  instance AWSRequest GetMetricStatistics where-        type Sv GetMetricStatistics = CloudWatch         type Rs GetMetricStatistics =              GetMetricStatisticsResponse-        request = postQuery+        request = postQuery cloudWatch         response           = receiveXMLWrapper "GetMetricStatisticsResult"               (\ s h x ->

@@ -106,9 +106,8 @@             Just $ rq & lmNextToken .~ rs ^. lmrsNextToken  instance AWSRequest ListMetrics where-        type Sv ListMetrics = CloudWatch         type Rs ListMetrics = ListMetricsResponse-        request = postQuery+        request = postQuery cloudWatch         response           = receiveXMLWrapper "ListMetricsResult"               (\ s h x ->

@@ -217,9 +217,8 @@ pmaComparisonOperator = lens _pmaComparisonOperator (\ s a -> s{_pmaComparisonOperator = a});  instance AWSRequest PutMetricAlarm where-        type Sv PutMetricAlarm = CloudWatch         type Rs PutMetricAlarm = PutMetricAlarmResponse-        request = postQuery+        request = postQuery cloudWatch         response = receiveNull PutMetricAlarmResponse'  instance ToHeaders PutMetricAlarm where

@@ -89,9 +89,8 @@ pmdMetricData = lens _pmdMetricData (\ s a -> s{_pmdMetricData = a}) . _Coerce;  instance AWSRequest PutMetricData where-        type Sv PutMetricData = CloudWatch         type Rs PutMetricData = PutMetricDataResponse-        request = postQuery+        request = postQuery cloudWatch         response = receiveNull PutMetricDataResponse'  instance ToHeaders PutMetricData where

@@ -99,9 +99,8 @@ sasStateReason = lens _sasStateReason (\ s a -> s{_sasStateReason = a});  instance AWSRequest SetAlarmState where-        type Sv SetAlarmState = CloudWatch         type Rs SetAlarmState = SetAlarmStateResponse-        request = postQuery+        request = postQuery cloudWatch         response = receiveNull SetAlarmStateResponse'  instance ToHeaders SetAlarmState where

@@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}  -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.CloudWatch.Types     (-    -- * Service-      CloudWatch+    -- * Service Configuration+      cloudWatch      -- * Errors     , _LimitExceededFault@@ -129,39 +128,36 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | Version @2010-08-01@ of the Amazon CloudWatch SDK.-data CloudWatch--instance AWSService CloudWatch where-    type Sg CloudWatch = V4-    service = const svc-      where-        svc =-            Service-            { _svcAbbrev = "CloudWatch"-            , _svcPrefix = "monitoring"-            , _svcVersion = "2010-08-01"-            , _svcEndpoint = defaultEndpoint svc-            , _svcTimeout = Just 70-            , _svcStatus = statusSuccess-            , _svcError = parseXMLError-            , _svcRetry = retry-            }-        retry =-            Exponential-            { _retryBase = 5.0e-2-            , _retryGrowth = 2-            , _retryAttempts = 5-            , _retryCheck = check-            }-        check e-          | has (hasCode "ThrottlingException" . hasStatus 400) e =-              Just "throttling_exception"-          | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-          | has (hasStatus 503) e = Just "service_unavailable"-          | has (hasStatus 500) e = Just "general_server_error"-          | has (hasStatus 509) e = Just "limit_exceeded"-          | otherwise = Nothing+-- | API version '2010-08-01' of the Amazon CloudWatch SDK configuration.+cloudWatch :: Service+cloudWatch =+    Service+    { _svcAbbrev = "CloudWatch"+    , _svcSigner = v4+    , _svcPrefix = "monitoring"+    , _svcVersion = "2010-08-01"+    , _svcEndpoint = defaultEndpoint cloudWatch+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseXMLError+    , _svcRetry = retry+    }+  where+    retry =+        Exponential+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }+    check e+      | has (hasCode "ThrottlingException" . hasStatus 400) e =+          Just "throttling_exception"+      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 503) e = Just "service_unavailable"+      | has (hasStatus 500) e = Just "general_server_error"+      | has (hasStatus 509) e = Just "limit_exceeded"+      | otherwise = Nothing  -- | The quota for alarms for this customer has already been reached. _LimitExceededFault :: AsError a => Getting (First ServiceError) a ServiceError

@@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE OverloadedStrings  #-} {-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-} 

@@ -163,64 +163,75 @@ testEnableAlarmActionsResponse = res     "EnableAlarmActionsResponse"     "fixture/EnableAlarmActionsResponse"+    cloudWatch     (Proxy :: Proxy EnableAlarmActions)  testPutMetricDataResponse :: PutMetricDataResponse -> TestTree testPutMetricDataResponse = res     "PutMetricDataResponse"     "fixture/PutMetricDataResponse"+    cloudWatch     (Proxy :: Proxy PutMetricData)  testDescribeAlarmsResponse :: DescribeAlarmsResponse -> TestTree testDescribeAlarmsResponse = res     "DescribeAlarmsResponse"     "fixture/DescribeAlarmsResponse"+    cloudWatch     (Proxy :: Proxy DescribeAlarms)  testListMetricsResponse :: ListMetricsResponse -> TestTree testListMetricsResponse = res     "ListMetricsResponse"     "fixture/ListMetricsResponse"+    cloudWatch     (Proxy :: Proxy ListMetrics)  testDeleteAlarmsResponse :: DeleteAlarmsResponse -> TestTree testDeleteAlarmsResponse = res     "DeleteAlarmsResponse"     "fixture/DeleteAlarmsResponse"+    cloudWatch     (Proxy :: Proxy DeleteAlarms)  testDescribeAlarmHistoryResponse :: DescribeAlarmHistoryResponse -> TestTree testDescribeAlarmHistoryResponse = res     "DescribeAlarmHistoryResponse"     "fixture/DescribeAlarmHistoryResponse"+    cloudWatch     (Proxy :: Proxy DescribeAlarmHistory)  testGetMetricStatisticsResponse :: GetMetricStatisticsResponse -> TestTree testGetMetricStatisticsResponse = res     "GetMetricStatisticsResponse"     "fixture/GetMetricStatisticsResponse"+    cloudWatch     (Proxy :: Proxy GetMetricStatistics)  testDisableAlarmActionsResponse :: DisableAlarmActionsResponse -> TestTree testDisableAlarmActionsResponse = res     "DisableAlarmActionsResponse"     "fixture/DisableAlarmActionsResponse"+    cloudWatch     (Proxy :: Proxy DisableAlarmActions)  testDescribeAlarmsForMetricResponse :: DescribeAlarmsForMetricResponse -> TestTree testDescribeAlarmsForMetricResponse = res     "DescribeAlarmsForMetricResponse"     "fixture/DescribeAlarmsForMetricResponse"+    cloudWatch     (Proxy :: Proxy DescribeAlarmsForMetric)  testSetAlarmStateResponse :: SetAlarmStateResponse -> TestTree testSetAlarmStateResponse = res     "SetAlarmStateResponse"     "fixture/SetAlarmStateResponse"+    cloudWatch     (Proxy :: Proxy SetAlarmState)  testPutMetricAlarmResponse :: PutMetricAlarmResponse -> TestTree testPutMetricAlarmResponse = res     "PutMetricAlarmResponse"     "fixture/PutMetricAlarmResponse"+    cloudWatch     (Proxy :: Proxy PutMetricAlarm)