{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.EC2.ModifyInstanceCreditSpecification
(
modifyInstanceCreditSpecification
, ModifyInstanceCreditSpecification
, micsClientToken
, micsDryRun
, micsInstanceCreditSpecifications
, modifyInstanceCreditSpecificationResponse
, ModifyInstanceCreditSpecificationResponse
, micsrsUnsuccessfulInstanceCreditSpecifications
, micsrsSuccessfulInstanceCreditSpecifications
, micsrsResponseStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ModifyInstanceCreditSpecification = ModifyInstanceCreditSpecification'
{ _micsClientToken :: !(Maybe Text)
, _micsDryRun :: !(Maybe Bool)
, _micsInstanceCreditSpecifications :: ![InstanceCreditSpecificationRequest]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyInstanceCreditSpecification
:: ModifyInstanceCreditSpecification
modifyInstanceCreditSpecification =
ModifyInstanceCreditSpecification'
{ _micsClientToken = Nothing
, _micsDryRun = Nothing
, _micsInstanceCreditSpecifications = mempty
}
micsClientToken :: Lens' ModifyInstanceCreditSpecification (Maybe Text)
micsClientToken = lens _micsClientToken (\ s a -> s{_micsClientToken = a})
micsDryRun :: Lens' ModifyInstanceCreditSpecification (Maybe Bool)
micsDryRun = lens _micsDryRun (\ s a -> s{_micsDryRun = a})
micsInstanceCreditSpecifications :: Lens' ModifyInstanceCreditSpecification [InstanceCreditSpecificationRequest]
micsInstanceCreditSpecifications = lens _micsInstanceCreditSpecifications (\ s a -> s{_micsInstanceCreditSpecifications = a}) . _Coerce
instance AWSRequest ModifyInstanceCreditSpecification
where
type Rs ModifyInstanceCreditSpecification =
ModifyInstanceCreditSpecificationResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
ModifyInstanceCreditSpecificationResponse' <$>
(x .@? "unsuccessfulInstanceCreditSpecificationSet"
.!@ mempty
>>= may (parseXMLList "item"))
<*>
(x .@? "successfulInstanceCreditSpecificationSet" .!@
mempty
>>= may (parseXMLList "item"))
<*> (pure (fromEnum s)))
instance Hashable ModifyInstanceCreditSpecification
where
instance NFData ModifyInstanceCreditSpecification
where
instance ToHeaders ModifyInstanceCreditSpecification
where
toHeaders = const mempty
instance ToPath ModifyInstanceCreditSpecification
where
toPath = const "/"
instance ToQuery ModifyInstanceCreditSpecification
where
toQuery ModifyInstanceCreditSpecification'{..}
= mconcat
["Action" =:
("ModifyInstanceCreditSpecification" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"ClientToken" =: _micsClientToken,
"DryRun" =: _micsDryRun,
toQueryList "InstanceCreditSpecification"
_micsInstanceCreditSpecifications]
data ModifyInstanceCreditSpecificationResponse = ModifyInstanceCreditSpecificationResponse'
{ _micsrsUnsuccessfulInstanceCreditSpecifications :: !(Maybe [UnsuccessfulInstanceCreditSpecificationItem])
, _micsrsSuccessfulInstanceCreditSpecifications :: !(Maybe [SuccessfulInstanceCreditSpecificationItem])
, _micsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
modifyInstanceCreditSpecificationResponse
:: Int
-> ModifyInstanceCreditSpecificationResponse
modifyInstanceCreditSpecificationResponse pResponseStatus_ =
ModifyInstanceCreditSpecificationResponse'
{ _micsrsUnsuccessfulInstanceCreditSpecifications = Nothing
, _micsrsSuccessfulInstanceCreditSpecifications = Nothing
, _micsrsResponseStatus = pResponseStatus_
}
micsrsUnsuccessfulInstanceCreditSpecifications :: Lens' ModifyInstanceCreditSpecificationResponse [UnsuccessfulInstanceCreditSpecificationItem]
micsrsUnsuccessfulInstanceCreditSpecifications = lens _micsrsUnsuccessfulInstanceCreditSpecifications (\ s a -> s{_micsrsUnsuccessfulInstanceCreditSpecifications = a}) . _Default . _Coerce
micsrsSuccessfulInstanceCreditSpecifications :: Lens' ModifyInstanceCreditSpecificationResponse [SuccessfulInstanceCreditSpecificationItem]
micsrsSuccessfulInstanceCreditSpecifications = lens _micsrsSuccessfulInstanceCreditSpecifications (\ s a -> s{_micsrsSuccessfulInstanceCreditSpecifications = a}) . _Default . _Coerce
micsrsResponseStatus :: Lens' ModifyInstanceCreditSpecificationResponse Int
micsrsResponseStatus = lens _micsrsResponseStatus (\ s a -> s{_micsrsResponseStatus = a})
instance NFData
ModifyInstanceCreditSpecificationResponse
where