module Network.AWS.KinesisAnalytics.DeleteApplicationInputProcessingConfiguration
(
deleteApplicationInputProcessingConfiguration
, DeleteApplicationInputProcessingConfiguration
, daipcApplicationName
, daipcCurrentApplicationVersionId
, daipcInputId
, deleteApplicationInputProcessingConfigurationResponse
, DeleteApplicationInputProcessingConfigurationResponse
, daipcrsResponseStatus
) where
import Network.AWS.KinesisAnalytics.Types
import Network.AWS.KinesisAnalytics.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteApplicationInputProcessingConfiguration = DeleteApplicationInputProcessingConfiguration'
{ _daipcApplicationName :: !Text
, _daipcCurrentApplicationVersionId :: !Nat
, _daipcInputId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteApplicationInputProcessingConfiguration
:: Text
-> Natural
-> Text
-> DeleteApplicationInputProcessingConfiguration
deleteApplicationInputProcessingConfiguration pApplicationName_ pCurrentApplicationVersionId_ pInputId_ =
DeleteApplicationInputProcessingConfiguration'
{ _daipcApplicationName = pApplicationName_
, _daipcCurrentApplicationVersionId = _Nat # pCurrentApplicationVersionId_
, _daipcInputId = pInputId_
}
daipcApplicationName :: Lens' DeleteApplicationInputProcessingConfiguration Text
daipcApplicationName = lens _daipcApplicationName (\ s a -> s{_daipcApplicationName = a});
daipcCurrentApplicationVersionId :: Lens' DeleteApplicationInputProcessingConfiguration Natural
daipcCurrentApplicationVersionId = lens _daipcCurrentApplicationVersionId (\ s a -> s{_daipcCurrentApplicationVersionId = a}) . _Nat;
daipcInputId :: Lens' DeleteApplicationInputProcessingConfiguration Text
daipcInputId = lens _daipcInputId (\ s a -> s{_daipcInputId = a});
instance AWSRequest
DeleteApplicationInputProcessingConfiguration
where
type Rs DeleteApplicationInputProcessingConfiguration
=
DeleteApplicationInputProcessingConfigurationResponse
request = postJSON kinesisAnalytics
response
= receiveEmpty
(\ s h x ->
DeleteApplicationInputProcessingConfigurationResponse'
<$> (pure (fromEnum s)))
instance Hashable
DeleteApplicationInputProcessingConfiguration
where
instance NFData
DeleteApplicationInputProcessingConfiguration
where
instance ToHeaders
DeleteApplicationInputProcessingConfiguration
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("KinesisAnalytics_20150814.DeleteApplicationInputProcessingConfiguration"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON
DeleteApplicationInputProcessingConfiguration
where
toJSON
DeleteApplicationInputProcessingConfiguration'{..}
= object
(catMaybes
[Just ("ApplicationName" .= _daipcApplicationName),
Just
("CurrentApplicationVersionId" .=
_daipcCurrentApplicationVersionId),
Just ("InputId" .= _daipcInputId)])
instance ToPath
DeleteApplicationInputProcessingConfiguration
where
toPath = const "/"
instance ToQuery
DeleteApplicationInputProcessingConfiguration
where
toQuery = const mempty
newtype DeleteApplicationInputProcessingConfigurationResponse = DeleteApplicationInputProcessingConfigurationResponse'
{ _daipcrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteApplicationInputProcessingConfigurationResponse
:: Int
-> DeleteApplicationInputProcessingConfigurationResponse
deleteApplicationInputProcessingConfigurationResponse pResponseStatus_ =
DeleteApplicationInputProcessingConfigurationResponse'
{_daipcrsResponseStatus = pResponseStatus_}
daipcrsResponseStatus :: Lens' DeleteApplicationInputProcessingConfigurationResponse Int
daipcrsResponseStatus = lens _daipcrsResponseStatus (\ s a -> s{_daipcrsResponseStatus = a});
instance NFData
DeleteApplicationInputProcessingConfigurationResponse
where