{-# 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.CloudFormation.DescribeChangeSet
(
describeChangeSet
, DescribeChangeSet
, desNextToken
, desStackName
, desChangeSetName
, describeChangeSetResponse
, DescribeChangeSetResponse
, desrsCreationTime
, desrsChanges
, desrsNotificationARNs
, desrsChangeSetName
, desrsExecutionStatus
, desrsChangeSetId
, desrsNextToken
, desrsParameters
, desrsStatusReason
, desrsStackId
, desrsDescription
, desrsCapabilities
, desrsRollbackConfiguration
, desrsTags
, desrsStackName
, desrsResponseStatus
, desrsStatus
) where
import Network.AWS.CloudFormation.Types
import Network.AWS.CloudFormation.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeChangeSet = DescribeChangeSet'
{ _desNextToken :: !(Maybe Text)
, _desStackName :: !(Maybe Text)
, _desChangeSetName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeChangeSet
:: Text
-> DescribeChangeSet
describeChangeSet pChangeSetName_ =
DescribeChangeSet'
{ _desNextToken = Nothing
, _desStackName = Nothing
, _desChangeSetName = pChangeSetName_
}
desNextToken :: Lens' DescribeChangeSet (Maybe Text)
desNextToken = lens _desNextToken (\ s a -> s{_desNextToken = a})
desStackName :: Lens' DescribeChangeSet (Maybe Text)
desStackName = lens _desStackName (\ s a -> s{_desStackName = a})
desChangeSetName :: Lens' DescribeChangeSet Text
desChangeSetName = lens _desChangeSetName (\ s a -> s{_desChangeSetName = a})
instance AWSRequest DescribeChangeSet where
type Rs DescribeChangeSet = DescribeChangeSetResponse
request = postQuery cloudFormation
response
= receiveXMLWrapper "DescribeChangeSetResult"
(\ s h x ->
DescribeChangeSetResponse' <$>
(x .@? "CreationTime") <*>
(x .@? "Changes" .!@ mempty >>=
may (parseXMLList "member"))
<*>
(x .@? "NotificationARNs" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "ChangeSetName")
<*> (x .@? "ExecutionStatus")
<*> (x .@? "ChangeSetId")
<*> (x .@? "NextToken")
<*>
(x .@? "Parameters" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "StatusReason")
<*> (x .@? "StackId")
<*> (x .@? "Description")
<*>
(x .@? "Capabilities" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "RollbackConfiguration")
<*>
(x .@? "Tags" .!@ mempty >>=
may (parseXMLList "member"))
<*> (x .@? "StackName")
<*> (pure (fromEnum s))
<*> (x .@ "Status"))
instance Hashable DescribeChangeSet where
instance NFData DescribeChangeSet where
instance ToHeaders DescribeChangeSet where
toHeaders = const mempty
instance ToPath DescribeChangeSet where
toPath = const "/"
instance ToQuery DescribeChangeSet where
toQuery DescribeChangeSet'{..}
= mconcat
["Action" =: ("DescribeChangeSet" :: ByteString),
"Version" =: ("2010-05-15" :: ByteString),
"NextToken" =: _desNextToken,
"StackName" =: _desStackName,
"ChangeSetName" =: _desChangeSetName]
data DescribeChangeSetResponse = DescribeChangeSetResponse'
{ _desrsCreationTime :: !(Maybe ISO8601)
, _desrsChanges :: !(Maybe [Change])
, _desrsNotificationARNs :: !(Maybe [Text])
, _desrsChangeSetName :: !(Maybe Text)
, _desrsExecutionStatus :: !(Maybe ExecutionStatus)
, _desrsChangeSetId :: !(Maybe Text)
, _desrsNextToken :: !(Maybe Text)
, _desrsParameters :: !(Maybe [Parameter])
, _desrsStatusReason :: !(Maybe Text)
, _desrsStackId :: !(Maybe Text)
, _desrsDescription :: !(Maybe Text)
, _desrsCapabilities :: !(Maybe [Capability])
, _desrsRollbackConfiguration :: !(Maybe RollbackConfiguration)
, _desrsTags :: !(Maybe [Tag])
, _desrsStackName :: !(Maybe Text)
, _desrsResponseStatus :: !Int
, _desrsStatus :: !ChangeSetStatus
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeChangeSetResponse
:: Int
-> ChangeSetStatus
-> DescribeChangeSetResponse
describeChangeSetResponse pResponseStatus_ pStatus_ =
DescribeChangeSetResponse'
{ _desrsCreationTime = Nothing
, _desrsChanges = Nothing
, _desrsNotificationARNs = Nothing
, _desrsChangeSetName = Nothing
, _desrsExecutionStatus = Nothing
, _desrsChangeSetId = Nothing
, _desrsNextToken = Nothing
, _desrsParameters = Nothing
, _desrsStatusReason = Nothing
, _desrsStackId = Nothing
, _desrsDescription = Nothing
, _desrsCapabilities = Nothing
, _desrsRollbackConfiguration = Nothing
, _desrsTags = Nothing
, _desrsStackName = Nothing
, _desrsResponseStatus = pResponseStatus_
, _desrsStatus = pStatus_
}
desrsCreationTime :: Lens' DescribeChangeSetResponse (Maybe UTCTime)
desrsCreationTime = lens _desrsCreationTime (\ s a -> s{_desrsCreationTime = a}) . mapping _Time
desrsChanges :: Lens' DescribeChangeSetResponse [Change]
desrsChanges = lens _desrsChanges (\ s a -> s{_desrsChanges = a}) . _Default . _Coerce
desrsNotificationARNs :: Lens' DescribeChangeSetResponse [Text]
desrsNotificationARNs = lens _desrsNotificationARNs (\ s a -> s{_desrsNotificationARNs = a}) . _Default . _Coerce
desrsChangeSetName :: Lens' DescribeChangeSetResponse (Maybe Text)
desrsChangeSetName = lens _desrsChangeSetName (\ s a -> s{_desrsChangeSetName = a})
desrsExecutionStatus :: Lens' DescribeChangeSetResponse (Maybe ExecutionStatus)
desrsExecutionStatus = lens _desrsExecutionStatus (\ s a -> s{_desrsExecutionStatus = a})
desrsChangeSetId :: Lens' DescribeChangeSetResponse (Maybe Text)
desrsChangeSetId = lens _desrsChangeSetId (\ s a -> s{_desrsChangeSetId = a})
desrsNextToken :: Lens' DescribeChangeSetResponse (Maybe Text)
desrsNextToken = lens _desrsNextToken (\ s a -> s{_desrsNextToken = a})
desrsParameters :: Lens' DescribeChangeSetResponse [Parameter]
desrsParameters = lens _desrsParameters (\ s a -> s{_desrsParameters = a}) . _Default . _Coerce
desrsStatusReason :: Lens' DescribeChangeSetResponse (Maybe Text)
desrsStatusReason = lens _desrsStatusReason (\ s a -> s{_desrsStatusReason = a})
desrsStackId :: Lens' DescribeChangeSetResponse (Maybe Text)
desrsStackId = lens _desrsStackId (\ s a -> s{_desrsStackId = a})
desrsDescription :: Lens' DescribeChangeSetResponse (Maybe Text)
desrsDescription = lens _desrsDescription (\ s a -> s{_desrsDescription = a})
desrsCapabilities :: Lens' DescribeChangeSetResponse [Capability]
desrsCapabilities = lens _desrsCapabilities (\ s a -> s{_desrsCapabilities = a}) . _Default . _Coerce
desrsRollbackConfiguration :: Lens' DescribeChangeSetResponse (Maybe RollbackConfiguration)
desrsRollbackConfiguration = lens _desrsRollbackConfiguration (\ s a -> s{_desrsRollbackConfiguration = a})
desrsTags :: Lens' DescribeChangeSetResponse [Tag]
desrsTags = lens _desrsTags (\ s a -> s{_desrsTags = a}) . _Default . _Coerce
desrsStackName :: Lens' DescribeChangeSetResponse (Maybe Text)
desrsStackName = lens _desrsStackName (\ s a -> s{_desrsStackName = a})
desrsResponseStatus :: Lens' DescribeChangeSetResponse Int
desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a})
desrsStatus :: Lens' DescribeChangeSetResponse ChangeSetStatus
desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a})
instance NFData DescribeChangeSetResponse where