{-# 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.SSM.GetParameter
(
getParameter
, GetParameter
, gWithDecryption
, gName
, getParameterResponse
, GetParameterResponse
, gprsParameter
, gprsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SSM.Types
import Network.AWS.SSM.Types.Product
data GetParameter = GetParameter'
{ _gWithDecryption :: !(Maybe Bool)
, _gName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getParameter
:: Text
-> GetParameter
getParameter pName_ =
GetParameter' {_gWithDecryption = Nothing, _gName = pName_}
gWithDecryption :: Lens' GetParameter (Maybe Bool)
gWithDecryption = lens _gWithDecryption (\ s a -> s{_gWithDecryption = a})
gName :: Lens' GetParameter Text
gName = lens _gName (\ s a -> s{_gName = a})
instance AWSRequest GetParameter where
type Rs GetParameter = GetParameterResponse
request = postJSON ssm
response
= receiveJSON
(\ s h x ->
GetParameterResponse' <$>
(x .?> "Parameter") <*> (pure (fromEnum s)))
instance Hashable GetParameter where
instance NFData GetParameter where
instance ToHeaders GetParameter where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.GetParameter" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetParameter where
toJSON GetParameter'{..}
= object
(catMaybes
[("WithDecryption" .=) <$> _gWithDecryption,
Just ("Name" .= _gName)])
instance ToPath GetParameter where
toPath = const "/"
instance ToQuery GetParameter where
toQuery = const mempty
data GetParameterResponse = GetParameterResponse'
{ _gprsParameter :: !(Maybe Parameter)
, _gprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getParameterResponse
:: Int
-> GetParameterResponse
getParameterResponse pResponseStatus_ =
GetParameterResponse'
{_gprsParameter = Nothing, _gprsResponseStatus = pResponseStatus_}
gprsParameter :: Lens' GetParameterResponse (Maybe Parameter)
gprsParameter = lens _gprsParameter (\ s a -> s{_gprsParameter = a})
gprsResponseStatus :: Lens' GetParameterResponse Int
gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a})
instance NFData GetParameterResponse where