{-# 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.OpsWorks.DescribeStackProvisioningParameters
(
describeStackProvisioningParameters
, DescribeStackProvisioningParameters
, dsppStackId
, describeStackProvisioningParametersResponse
, DescribeStackProvisioningParametersResponse
, dspprsAgentInstallerURL
, dspprsParameters
, dspprsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeStackProvisioningParameters = DescribeStackProvisioningParameters'
{ _dsppStackId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeStackProvisioningParameters
:: Text
-> DescribeStackProvisioningParameters
describeStackProvisioningParameters pStackId_ =
DescribeStackProvisioningParameters' {_dsppStackId = pStackId_}
dsppStackId :: Lens' DescribeStackProvisioningParameters Text
dsppStackId = lens _dsppStackId (\ s a -> s{_dsppStackId = a})
instance AWSRequest
DescribeStackProvisioningParameters
where
type Rs DescribeStackProvisioningParameters =
DescribeStackProvisioningParametersResponse
request = postJSON opsWorks
response
= receiveJSON
(\ s h x ->
DescribeStackProvisioningParametersResponse' <$>
(x .?> "AgentInstallerUrl") <*>
(x .?> "Parameters" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable DescribeStackProvisioningParameters
where
instance NFData DescribeStackProvisioningParameters
where
instance ToHeaders
DescribeStackProvisioningParameters
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.DescribeStackProvisioningParameters"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeStackProvisioningParameters
where
toJSON DescribeStackProvisioningParameters'{..}
= object
(catMaybes [Just ("StackId" .= _dsppStackId)])
instance ToPath DescribeStackProvisioningParameters
where
toPath = const "/"
instance ToQuery DescribeStackProvisioningParameters
where
toQuery = const mempty
data DescribeStackProvisioningParametersResponse = DescribeStackProvisioningParametersResponse'
{ _dspprsAgentInstallerURL :: !(Maybe Text)
, _dspprsParameters :: !(Maybe (Map Text Text))
, _dspprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeStackProvisioningParametersResponse
:: Int
-> DescribeStackProvisioningParametersResponse
describeStackProvisioningParametersResponse pResponseStatus_ =
DescribeStackProvisioningParametersResponse'
{ _dspprsAgentInstallerURL = Nothing
, _dspprsParameters = Nothing
, _dspprsResponseStatus = pResponseStatus_
}
dspprsAgentInstallerURL :: Lens' DescribeStackProvisioningParametersResponse (Maybe Text)
dspprsAgentInstallerURL = lens _dspprsAgentInstallerURL (\ s a -> s{_dspprsAgentInstallerURL = a})
dspprsParameters :: Lens' DescribeStackProvisioningParametersResponse (HashMap Text Text)
dspprsParameters = lens _dspprsParameters (\ s a -> s{_dspprsParameters = a}) . _Default . _Map
dspprsResponseStatus :: Lens' DescribeStackProvisioningParametersResponse Int
dspprsResponseStatus = lens _dspprsResponseStatus (\ s a -> s{_dspprsResponseStatus = a})
instance NFData
DescribeStackProvisioningParametersResponse
where