{-# 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 :: !ByteString
} deriving (Eq, Show, Data, Typeable, Generic)
importDocumentationParts
:: Text
-> ByteString
-> 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 ByteString
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 where
instance NFData ImportDocumentationParts where
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
where