module Network.AWS.SSM.CreateDocument
(
createDocument
, CreateDocument
, cdContent
, cdName
, createDocumentResponse
, CreateDocumentResponse
, cdrsDocumentDescription
, cdrsStatus
) where
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SSM.Types
import Network.AWS.SSM.Types.Product
data CreateDocument = CreateDocument'
{ _cdContent :: !Text
, _cdName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createDocument
:: Text
-> Text
-> CreateDocument
createDocument pContent_ pName_ =
CreateDocument'
{ _cdContent = pContent_
, _cdName = pName_
}
cdContent :: Lens' CreateDocument Text
cdContent = lens _cdContent (\ s a -> s{_cdContent = a});
cdName :: Lens' CreateDocument Text
cdName = lens _cdName (\ s a -> s{_cdName = a});
instance AWSRequest CreateDocument where
type Rs CreateDocument = CreateDocumentResponse
request = postJSON sSM
response
= receiveJSON
(\ s h x ->
CreateDocumentResponse' <$>
(x .?> "DocumentDescription") <*>
(pure (fromEnum s)))
instance ToHeaders CreateDocument where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonSSM.CreateDocument" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateDocument where
toJSON CreateDocument'{..}
= object
(catMaybes
[Just ("Content" .= _cdContent),
Just ("Name" .= _cdName)])
instance ToPath CreateDocument where
toPath = const "/"
instance ToQuery CreateDocument where
toQuery = const mempty
data CreateDocumentResponse = CreateDocumentResponse'
{ _cdrsDocumentDescription :: !(Maybe DocumentDescription)
, _cdrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createDocumentResponse
:: Int
-> CreateDocumentResponse
createDocumentResponse pStatus_ =
CreateDocumentResponse'
{ _cdrsDocumentDescription = Nothing
, _cdrsStatus = pStatus_
}
cdrsDocumentDescription :: Lens' CreateDocumentResponse (Maybe DocumentDescription)
cdrsDocumentDescription = lens _cdrsDocumentDescription (\ s a -> s{_cdrsDocumentDescription = a});
cdrsStatus :: Lens' CreateDocumentResponse Int
cdrsStatus = lens _cdrsStatus (\ s a -> s{_cdrsStatus = a});