{-# 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.GetStackPolicy
(
getStackPolicy
, GetStackPolicy
, gspStackName
, getStackPolicyResponse
, GetStackPolicyResponse
, gsprsStackPolicyBody
, gsprsResponseStatus
) 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
newtype GetStackPolicy = GetStackPolicy'
{ _gspStackName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getStackPolicy
:: Text
-> GetStackPolicy
getStackPolicy pStackName_ =
GetStackPolicy'
{ _gspStackName = pStackName_
}
gspStackName :: Lens' GetStackPolicy Text
gspStackName = lens _gspStackName (\ s a -> s{_gspStackName = a});
instance AWSRequest GetStackPolicy where
type Rs GetStackPolicy = GetStackPolicyResponse
request = postQuery cloudFormation
response
= receiveXMLWrapper "GetStackPolicyResult"
(\ s h x ->
GetStackPolicyResponse' <$>
(x .@? "StackPolicyBody") <*> (pure (fromEnum s)))
instance Hashable GetStackPolicy
instance NFData GetStackPolicy
instance ToHeaders GetStackPolicy where
toHeaders = const mempty
instance ToPath GetStackPolicy where
toPath = const "/"
instance ToQuery GetStackPolicy where
toQuery GetStackPolicy'{..}
= mconcat
["Action" =: ("GetStackPolicy" :: ByteString),
"Version" =: ("2010-05-15" :: ByteString),
"StackName" =: _gspStackName]
data GetStackPolicyResponse = GetStackPolicyResponse'
{ _gsprsStackPolicyBody :: !(Maybe Text)
, _gsprsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getStackPolicyResponse
:: Int
-> GetStackPolicyResponse
getStackPolicyResponse pResponseStatus_ =
GetStackPolicyResponse'
{ _gsprsStackPolicyBody = Nothing
, _gsprsResponseStatus = pResponseStatus_
}
gsprsStackPolicyBody :: Lens' GetStackPolicyResponse (Maybe Text)
gsprsStackPolicyBody = lens _gsprsStackPolicyBody (\ s a -> s{_gsprsStackPolicyBody = a});
gsprsResponseStatus :: Lens' GetStackPolicyResponse Int
gsprsResponseStatus = lens _gsprsResponseStatus (\ s a -> s{_gsprsResponseStatus = a});
instance NFData GetStackPolicyResponse