diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -33,3 +33,5 @@ ## Licence `amazonka-cloudwatch` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/). + +Parts of the code are derived from AWS service descriptions, licensed under Apache 2.0. diff --git a/amazonka-cloudwatch.cabal b/amazonka-cloudwatch.cabal --- a/amazonka-cloudwatch.cabal +++ b/amazonka-cloudwatch.cabal @@ -1,5 +1,5 @@ name: amazonka-cloudwatch -version: 0.0.4 +version: 0.0.5 synopsis: Amazon CloudWatch SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -58,5 +58,5 @@ other-modules: build-depends: - amazonka-core == 0.0.4.* + amazonka-core == 0.0.5.* , base >= 4.7 && < 5 diff --git a/gen/Network/AWS/CloudWatch.hs b/gen/Network/AWS/CloudWatch.hs --- a/gen/Network/AWS/CloudWatch.hs +++ b/gen/Network/AWS/CloudWatch.hs @@ -7,6 +7,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Amazon CloudWatch is a monitoring service for AWS cloud resources and the -- applications you run on AWS. You can use Amazon CloudWatch to collect and diff --git a/gen/Network/AWS/CloudWatch/DeleteAlarms.hs b/gen/Network/AWS/CloudWatch/DeleteAlarms.hs --- a/gen/Network/AWS/CloudWatch/DeleteAlarms.hs +++ b/gen/Network/AWS/CloudWatch/DeleteAlarms.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Deletes all specified alarms. In the event of an error, no alarms are -- deleted. @@ -45,7 +47,7 @@ import qualified GHC.Exts newtype DeleteAlarms = DeleteAlarms - { _da1AlarmNames :: List "AlarmNames" Text + { _da1AlarmNames :: List "member" Text } deriving (Eq, Ord, Show, Monoid, Semigroup) instance GHC.Exts.IsList DeleteAlarms where diff --git a/gen/Network/AWS/CloudWatch/DescribeAlarmHistory.hs b/gen/Network/AWS/CloudWatch/DescribeAlarmHistory.hs --- a/gen/Network/AWS/CloudWatch/DescribeAlarmHistory.hs +++ b/gen/Network/AWS/CloudWatch/DescribeAlarmHistory.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Retrieves history for the specified alarm. Filter alarms by date range or -- item type. If an alarm name is not specified, Amazon CloudWatch returns @@ -115,7 +117,7 @@ dahStartDate = lens _dahStartDate (\s a -> s { _dahStartDate = a }) . mapping _Time data DescribeAlarmHistoryResponse = DescribeAlarmHistoryResponse - { _dahrAlarmHistoryItems :: List "AlarmHistoryItems" AlarmHistoryItem + { _dahrAlarmHistoryItems :: List "member" AlarmHistoryItem , _dahrNextToken :: Maybe Text } deriving (Eq, Show) diff --git a/gen/Network/AWS/CloudWatch/DescribeAlarms.hs b/gen/Network/AWS/CloudWatch/DescribeAlarms.hs --- a/gen/Network/AWS/CloudWatch/DescribeAlarms.hs +++ b/gen/Network/AWS/CloudWatch/DescribeAlarms.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Retrieves alarms with the specified names. If no name is specified, all -- alarms for the user are returned. Alarms can be retrieved by using only a @@ -56,7 +58,7 @@ data DescribeAlarms = DescribeAlarms { _daActionPrefix :: Maybe Text , _daAlarmNamePrefix :: Maybe Text - , _daAlarmNames :: List "AlarmNames" Text + , _daAlarmNames :: List "member" Text , _daMaxRecords :: Maybe Nat , _daNextToken :: Maybe Text , _daStateValue :: Maybe StateValue @@ -116,7 +118,7 @@ daStateValue = lens _daStateValue (\s a -> s { _daStateValue = a }) data DescribeAlarmsResponse = DescribeAlarmsResponse - { _darMetricAlarms :: List "MetricAlarms" MetricAlarm + { _darMetricAlarms :: List "member" MetricAlarm , _darNextToken :: Maybe Text } deriving (Eq, Show) diff --git a/gen/Network/AWS/CloudWatch/DescribeAlarmsForMetric.hs b/gen/Network/AWS/CloudWatch/DescribeAlarmsForMetric.hs --- a/gen/Network/AWS/CloudWatch/DescribeAlarmsForMetric.hs +++ b/gen/Network/AWS/CloudWatch/DescribeAlarmsForMetric.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Retrieves all alarms for a single metric. Specify a statistic, period, or -- unit to filter the set of alarms further. @@ -52,7 +54,7 @@ import qualified GHC.Exts data DescribeAlarmsForMetric = DescribeAlarmsForMetric - { _dafmDimensions :: List "Dimensions" Dimension + { _dafmDimensions :: List "member" Dimension , _dafmMetricName :: Text , _dafmNamespace :: Text , _dafmPeriod :: Maybe Nat @@ -113,7 +115,7 @@ dafmUnit = lens _dafmUnit (\s a -> s { _dafmUnit = a }) newtype DescribeAlarmsForMetricResponse = DescribeAlarmsForMetricResponse - { _dafmrMetricAlarms :: List "MetricAlarms" MetricAlarm + { _dafmrMetricAlarms :: List "member" MetricAlarm } deriving (Eq, Show, Monoid, Semigroup) instance GHC.Exts.IsList DescribeAlarmsForMetricResponse where diff --git a/gen/Network/AWS/CloudWatch/DisableAlarmActions.hs b/gen/Network/AWS/CloudWatch/DisableAlarmActions.hs --- a/gen/Network/AWS/CloudWatch/DisableAlarmActions.hs +++ b/gen/Network/AWS/CloudWatch/DisableAlarmActions.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Disables actions for the specified alarms. When an alarm's actions are -- disabled the alarm's state may change, but none of the alarm's actions will @@ -46,7 +48,7 @@ import qualified GHC.Exts newtype DisableAlarmActions = DisableAlarmActions - { _daaAlarmNames :: List "AlarmNames" Text + { _daaAlarmNames :: List "member" Text } deriving (Eq, Ord, Show, Monoid, Semigroup) instance GHC.Exts.IsList DisableAlarmActions where diff --git a/gen/Network/AWS/CloudWatch/EnableAlarmActions.hs b/gen/Network/AWS/CloudWatch/EnableAlarmActions.hs --- a/gen/Network/AWS/CloudWatch/EnableAlarmActions.hs +++ b/gen/Network/AWS/CloudWatch/EnableAlarmActions.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Enables actions for the specified alarms. -- @@ -44,7 +46,7 @@ import qualified GHC.Exts newtype EnableAlarmActions = EnableAlarmActions - { _eaaAlarmNames :: List "AlarmNames" Text + { _eaaAlarmNames :: List "member" Text } deriving (Eq, Ord, Show, Monoid, Semigroup) instance GHC.Exts.IsList EnableAlarmActions where diff --git a/gen/Network/AWS/CloudWatch/GetMetricStatistics.hs b/gen/Network/AWS/CloudWatch/GetMetricStatistics.hs --- a/gen/Network/AWS/CloudWatch/GetMetricStatistics.hs +++ b/gen/Network/AWS/CloudWatch/GetMetricStatistics.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Gets statistics for the specified metric. -- @@ -78,13 +80,13 @@ import qualified GHC.Exts data GetMetricStatistics = GetMetricStatistics - { _gmsDimensions :: List "Dimensions" Dimension + { _gmsDimensions :: List "member" Dimension , _gmsEndTime :: ISO8601 , _gmsMetricName :: Text , _gmsNamespace :: Text , _gmsPeriod :: Nat , _gmsStartTime :: ISO8601 - , _gmsStatistics :: List1 "Statistics" Statistic + , _gmsStatistics :: List1 "member" Statistic , _gmsUnit :: Maybe StandardUnit } deriving (Eq, Show) @@ -167,7 +169,7 @@ gmsUnit = lens _gmsUnit (\s a -> s { _gmsUnit = a }) data GetMetricStatisticsResponse = GetMetricStatisticsResponse - { _gmsrDatapoints :: List "Datapoints" Datapoint + { _gmsrDatapoints :: List "member" Datapoint , _gmsrLabel :: Maybe Text } deriving (Eq, Show) diff --git a/gen/Network/AWS/CloudWatch/ListMetrics.hs b/gen/Network/AWS/CloudWatch/ListMetrics.hs --- a/gen/Network/AWS/CloudWatch/ListMetrics.hs +++ b/gen/Network/AWS/CloudWatch/ListMetrics.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Returns a list of valid metrics stored for the AWS account owner. Returned -- metrics can be used with 'GetMetricStatistics' to obtain statistical data for a @@ -52,7 +54,7 @@ import qualified GHC.Exts data ListMetrics = ListMetrics - { _lmDimensions :: List "Dimensions" DimensionFilter + { _lmDimensions :: List "member" DimensionFilter , _lmMetricName :: Maybe Text , _lmNamespace :: Maybe Text , _lmNextToken :: Maybe Text @@ -96,7 +98,7 @@ lmNextToken = lens _lmNextToken (\s a -> s { _lmNextToken = a }) data ListMetricsResponse = ListMetricsResponse - { _lmrMetrics :: List "Metrics" Metric + { _lmrMetrics :: List "member" Metric , _lmrNextToken :: Maybe Text } deriving (Eq, Show) diff --git a/gen/Network/AWS/CloudWatch/PutMetricAlarm.hs b/gen/Network/AWS/CloudWatch/PutMetricAlarm.hs --- a/gen/Network/AWS/CloudWatch/PutMetricAlarm.hs +++ b/gen/Network/AWS/CloudWatch/PutMetricAlarm.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Creates or updates an alarm and associates it with the specified Amazon -- CloudWatch metric. Optionally, this operation can associate one or more @@ -64,16 +66,16 @@ data PutMetricAlarm = PutMetricAlarm { _pmaActionsEnabled :: Maybe Bool - , _pmaAlarmActions :: List "OKActions" Text + , _pmaAlarmActions :: List "member" Text , _pmaAlarmDescription :: Maybe Text , _pmaAlarmName :: Text , _pmaComparisonOperator :: ComparisonOperator - , _pmaDimensions :: List "Dimensions" Dimension + , _pmaDimensions :: List "member" Dimension , _pmaEvaluationPeriods :: Nat - , _pmaInsufficientDataActions :: List "OKActions" Text + , _pmaInsufficientDataActions :: List "member" Text , _pmaMetricName :: Text , _pmaNamespace :: Text - , _pmaOKActions :: List "OKActions" Text + , _pmaOKActions :: List "member" Text , _pmaPeriod :: Nat , _pmaStatistic :: Statistic , _pmaThreshold :: Double diff --git a/gen/Network/AWS/CloudWatch/PutMetricData.hs b/gen/Network/AWS/CloudWatch/PutMetricData.hs --- a/gen/Network/AWS/CloudWatch/PutMetricData.hs +++ b/gen/Network/AWS/CloudWatch/PutMetricData.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Publishes metric data points to Amazon CloudWatch. Amazon Cloudwatch -- associates the data points with the specified metric. If the specified metric @@ -58,7 +60,7 @@ import qualified GHC.Exts data PutMetricData = PutMetricData - { _pmdMetricData :: List "MetricData" MetricDatum + { _pmdMetricData :: List "member" MetricDatum , _pmdNamespace :: Text } deriving (Eq, Show) diff --git a/gen/Network/AWS/CloudWatch/SetAlarmState.hs b/gen/Network/AWS/CloudWatch/SetAlarmState.hs --- a/gen/Network/AWS/CloudWatch/SetAlarmState.hs +++ b/gen/Network/AWS/CloudWatch/SetAlarmState.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Temporarily sets the state of an alarm. When the updated 'StateValue' differs -- from the previous value, the action configured for the appropriate state is diff --git a/gen/Network/AWS/CloudWatch/Types.hs b/gen/Network/AWS/CloudWatch/Types.hs --- a/gen/Network/AWS/CloudWatch/Types.hs +++ b/gen/Network/AWS/CloudWatch/Types.hs @@ -19,6 +19,8 @@ -- Maintainer : Brendan Hay -- Stability : experimental -- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. module Network.AWS.CloudWatch.Types ( @@ -216,18 +218,18 @@ data MetricAlarm = MetricAlarm { _maActionsEnabled :: Maybe Bool - , _maAlarmActions :: List "OKActions" Text + , _maAlarmActions :: List "member" Text , _maAlarmArn :: Maybe Text , _maAlarmConfigurationUpdatedTimestamp :: Maybe ISO8601 , _maAlarmDescription :: Maybe Text , _maAlarmName :: Maybe Text , _maComparisonOperator :: Maybe ComparisonOperator - , _maDimensions :: List "Dimensions" Dimension + , _maDimensions :: List "member" Dimension , _maEvaluationPeriods :: Maybe Nat - , _maInsufficientDataActions :: List "OKActions" Text + , _maInsufficientDataActions :: List "member" Text , _maMetricName :: Maybe Text , _maNamespace :: Maybe Text - , _maOKActions :: List "OKActions" Text + , _maOKActions :: List "member" Text , _maPeriod :: Maybe Nat , _maStateReason :: Maybe Text , _maStateReasonData :: Maybe Text @@ -504,7 +506,7 @@ parseXML = parseXMLText "HistoryItemType" data MetricDatum = MetricDatum - { _mdDimensions :: List "Dimensions" Dimension + { _mdDimensions :: List "member" Dimension , _mdMetricName :: Text , _mdStatisticValues :: Maybe StatisticSet , _mdTimestamp :: Maybe ISO8601 @@ -841,7 +843,7 @@ ] data Metric = Metric - { _mDimensions :: List "Dimensions" Dimension + { _mDimensions :: List "member" Dimension , _mMetricName :: Maybe Text , _mNamespace :: Maybe Text } deriving (Eq, Show)