module Network.AWS.APIGateway.CreateRestAPI
(
createRestAPI
, CreateRestAPI
, craCloneFrom
, craDescription
, craName
, restAPI
, RestAPI
, raCreatedDate
, raName
, raId
, raDescription
) 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 CreateRestAPI = CreateRestAPI'
{ _craCloneFrom :: !(Maybe Text)
, _craDescription :: !(Maybe Text)
, _craName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createRestAPI
:: Text
-> CreateRestAPI
createRestAPI pName_ =
CreateRestAPI'
{ _craCloneFrom = Nothing
, _craDescription = Nothing
, _craName = pName_
}
craCloneFrom :: Lens' CreateRestAPI (Maybe Text)
craCloneFrom = lens _craCloneFrom (\ s a -> s{_craCloneFrom = a});
craDescription :: Lens' CreateRestAPI (Maybe Text)
craDescription = lens _craDescription (\ s a -> s{_craDescription = a});
craName :: Lens' CreateRestAPI Text
craName = lens _craName (\ s a -> s{_craName = a});
instance AWSRequest CreateRestAPI where
type Rs CreateRestAPI = RestAPI
request = postJSON aPIGateway
response = receiveJSON (\ s h x -> eitherParseJSON x)
instance ToHeaders CreateRestAPI where
toHeaders = const mempty
instance ToJSON CreateRestAPI where
toJSON CreateRestAPI'{..}
= object
(catMaybes
[("cloneFrom" .=) <$> _craCloneFrom,
("description" .=) <$> _craDescription,
Just ("name" .= _craName)])
instance ToPath CreateRestAPI where
toPath = const "/restapis"
instance ToQuery CreateRestAPI where
toQuery = const mempty