module Network.AWS.SSM.GetDocument
(
getDocument
, GetDocument
, gdName
, getDocumentResponse
, GetDocumentResponse
, gdrsContent
, gdrsName
, gdrsResponseStatus
) where
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SSM.Types
import Network.AWS.SSM.Types.Product
newtype GetDocument = GetDocument'
{ _gdName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getDocument
:: Text
-> GetDocument
getDocument pName_ =
GetDocument'
{ _gdName = pName_
}
gdName :: Lens' GetDocument Text
gdName = lens _gdName (\ s a -> s{_gdName = a});
instance AWSRequest GetDocument where
type Rs GetDocument = GetDocumentResponse
request = postJSON sSM
response
= receiveJSON
(\ s h x ->
GetDocumentResponse' <$>
(x .?> "Content") <*> (x .?> "Name") <*>
(pure (fromEnum s)))
instance ToHeaders GetDocument where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.GetDocument" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetDocument where
toJSON GetDocument'{..}
= object (catMaybes [Just ("Name" .= _gdName)])
instance ToPath GetDocument where
toPath = const "/"
instance ToQuery GetDocument where
toQuery = const mempty
data GetDocumentResponse = GetDocumentResponse'
{ _gdrsContent :: !(Maybe Text)
, _gdrsName :: !(Maybe Text)
, _gdrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getDocumentResponse
:: Int
-> GetDocumentResponse
getDocumentResponse pResponseStatus_ =
GetDocumentResponse'
{ _gdrsContent = Nothing
, _gdrsName = Nothing
, _gdrsResponseStatus = pResponseStatus_
}
gdrsContent :: Lens' GetDocumentResponse (Maybe Text)
gdrsContent = lens _gdrsContent (\ s a -> s{_gdrsContent = a});
gdrsName :: Lens' GetDocumentResponse (Maybe Text)
gdrsName = lens _gdrsName (\ s a -> s{_gdrsName = a});
gdrsResponseStatus :: Lens' GetDocumentResponse Int
gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a});