{-# 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.APIGateway.ImportDocumentationParts
(
importDocumentationParts
, ImportDocumentationParts
, idpMode
, idpFailOnWarnings
, idpRestAPIId
, idpBody
, importDocumentationPartsResponse
, ImportDocumentationPartsResponse
, idprsIds
, idprsWarnings
, idprsResponseStatus
) where
import Network.AWS.APIGateway.Types
import Network.AWS.APIGateway.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ImportDocumentationParts = ImportDocumentationParts'
{ _idpMode :: !(Maybe PutMode)
, _idpFailOnWarnings :: !(Maybe Bool)
, _idpRestAPIId :: !Text
, _idpBody :: !(HashMap Text Value)
} deriving (Eq,Show,Data,Typeable,Generic)
importDocumentationParts
:: Text
-> HashMap Text Value
-> ImportDocumentationParts
importDocumentationParts pRestAPIId_ pBody_ =
ImportDocumentationParts'
{ _idpMode = Nothing
, _idpFailOnWarnings = Nothing
, _idpRestAPIId = pRestAPIId_
, _idpBody = pBody_
}
idpMode :: Lens' ImportDocumentationParts (Maybe PutMode)
idpMode = lens _idpMode (\ s a -> s{_idpMode = a});
idpFailOnWarnings :: Lens' ImportDocumentationParts (Maybe Bool)
idpFailOnWarnings = lens _idpFailOnWarnings (\ s a -> s{_idpFailOnWarnings = a});
idpRestAPIId :: Lens' ImportDocumentationParts Text
idpRestAPIId = lens _idpRestAPIId (\ s a -> s{_idpRestAPIId = a});
idpBody :: Lens' ImportDocumentationParts (HashMap Text Value)
idpBody = lens _idpBody (\ s a -> s{_idpBody = a});
instance AWSRequest ImportDocumentationParts where
type Rs ImportDocumentationParts =
ImportDocumentationPartsResponse
request = putBody apiGateway
response
= receiveJSON
(\ s h x ->
ImportDocumentationPartsResponse' <$>
(x .?> "ids" .!@ mempty) <*>
(x .?> "warnings" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ImportDocumentationParts
instance NFData ImportDocumentationParts
instance ToBody ImportDocumentationParts where
toBody = toBody . _idpBody
instance ToHeaders ImportDocumentationParts where
toHeaders
= const
(mconcat
["Accept" =# ("application/json" :: ByteString)])
instance ToPath ImportDocumentationParts where
toPath ImportDocumentationParts'{..}
= mconcat
["/restapis/", toBS _idpRestAPIId,
"/documentation/parts"]
instance ToQuery ImportDocumentationParts where
toQuery ImportDocumentationParts'{..}
= mconcat
["mode" =: _idpMode,
"failonwarnings" =: _idpFailOnWarnings]
data ImportDocumentationPartsResponse = ImportDocumentationPartsResponse'
{ _idprsIds :: !(Maybe [Text])
, _idprsWarnings :: !(Maybe [Text])
, _idprsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
importDocumentationPartsResponse
:: Int
-> ImportDocumentationPartsResponse
importDocumentationPartsResponse pResponseStatus_ =
ImportDocumentationPartsResponse'
{ _idprsIds = Nothing
, _idprsWarnings = Nothing
, _idprsResponseStatus = pResponseStatus_
}
idprsIds :: Lens' ImportDocumentationPartsResponse [Text]
idprsIds = lens _idprsIds (\ s a -> s{_idprsIds = a}) . _Default . _Coerce;
idprsWarnings :: Lens' ImportDocumentationPartsResponse [Text]
idprsWarnings = lens _idprsWarnings (\ s a -> s{_idprsWarnings = a}) . _Default . _Coerce;
idprsResponseStatus :: Lens' ImportDocumentationPartsResponse Int
idprsResponseStatus = lens _idprsResponseStatus (\ s a -> s{_idprsResponseStatus = a});
instance NFData ImportDocumentationPartsResponse