module Network.AWS.OpsWorks.DescribeStackProvisioningParameters
(
DescribeStackProvisioningParameters
, describeStackProvisioningParameters
, dsppStackId
, DescribeStackProvisioningParametersResponse
, describeStackProvisioningParametersResponse
, dspprAgentInstallerUrl
, dspprParameters
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.OpsWorks.Types
import qualified GHC.Exts
newtype DescribeStackProvisioningParameters = DescribeStackProvisioningParameters
{ _dsppStackId :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
describeStackProvisioningParameters :: Text
-> DescribeStackProvisioningParameters
describeStackProvisioningParameters p1 = DescribeStackProvisioningParameters
{ _dsppStackId = p1
}
dsppStackId :: Lens' DescribeStackProvisioningParameters Text
dsppStackId = lens _dsppStackId (\s a -> s { _dsppStackId = a })
data DescribeStackProvisioningParametersResponse = DescribeStackProvisioningParametersResponse
{ _dspprAgentInstallerUrl :: Maybe Text
, _dspprParameters :: Map Text Text
} deriving (Eq, Show)
describeStackProvisioningParametersResponse :: DescribeStackProvisioningParametersResponse
describeStackProvisioningParametersResponse = DescribeStackProvisioningParametersResponse
{ _dspprAgentInstallerUrl = Nothing
, _dspprParameters = mempty
}
dspprAgentInstallerUrl :: Lens' DescribeStackProvisioningParametersResponse (Maybe Text)
dspprAgentInstallerUrl =
lens _dspprAgentInstallerUrl (\s a -> s { _dspprAgentInstallerUrl = a })
dspprParameters :: Lens' DescribeStackProvisioningParametersResponse (HashMap Text Text)
dspprParameters = lens _dspprParameters (\s a -> s { _dspprParameters = a }) . _Map
instance ToPath DescribeStackProvisioningParameters where
toPath = const "/"
instance ToQuery DescribeStackProvisioningParameters where
toQuery = const mempty
instance ToHeaders DescribeStackProvisioningParameters
instance ToJSON DescribeStackProvisioningParameters where
toJSON DescribeStackProvisioningParameters{..} = object
[ "StackId" .= _dsppStackId
]
instance AWSRequest DescribeStackProvisioningParameters where
type Sv DescribeStackProvisioningParameters = OpsWorks
type Rs DescribeStackProvisioningParameters = DescribeStackProvisioningParametersResponse
request = post "DescribeStackProvisioningParameters"
response = jsonResponse
instance FromJSON DescribeStackProvisioningParametersResponse where
parseJSON = withObject "DescribeStackProvisioningParametersResponse" $ \o -> DescribeStackProvisioningParametersResponse
<$> o .:? "AgentInstallerUrl"
<*> o .:? "Parameters" .!= mempty