module Network.AWS.Greengrass.DeleteCoreDefinition
(
deleteCoreDefinition
, DeleteCoreDefinition
, dcdCoreDefinitionId
, deleteCoreDefinitionResponse
, DeleteCoreDefinitionResponse
, dcdrsResponseStatus
) where
import Network.AWS.Greengrass.Types
import Network.AWS.Greengrass.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteCoreDefinition = DeleteCoreDefinition'
{ _dcdCoreDefinitionId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteCoreDefinition
:: Text
-> DeleteCoreDefinition
deleteCoreDefinition pCoreDefinitionId_ =
DeleteCoreDefinition' {_dcdCoreDefinitionId = pCoreDefinitionId_}
dcdCoreDefinitionId :: Lens' DeleteCoreDefinition Text
dcdCoreDefinitionId = lens _dcdCoreDefinitionId (\ s a -> s{_dcdCoreDefinitionId = a});
instance AWSRequest DeleteCoreDefinition where
type Rs DeleteCoreDefinition =
DeleteCoreDefinitionResponse
request = delete greengrass
response
= receiveEmpty
(\ s h x ->
DeleteCoreDefinitionResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteCoreDefinition where
instance NFData DeleteCoreDefinition where
instance ToHeaders DeleteCoreDefinition where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteCoreDefinition where
toPath DeleteCoreDefinition'{..}
= mconcat
["/greengrass/definition/cores/",
toBS _dcdCoreDefinitionId]
instance ToQuery DeleteCoreDefinition where
toQuery = const mempty
newtype DeleteCoreDefinitionResponse = DeleteCoreDefinitionResponse'
{ _dcdrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteCoreDefinitionResponse
:: Int
-> DeleteCoreDefinitionResponse
deleteCoreDefinitionResponse pResponseStatus_ =
DeleteCoreDefinitionResponse' {_dcdrsResponseStatus = pResponseStatus_}
dcdrsResponseStatus :: Lens' DeleteCoreDefinitionResponse Int
dcdrsResponseStatus = lens _dcdrsResponseStatus (\ s a -> s{_dcdrsResponseStatus = a});
instance NFData DeleteCoreDefinitionResponse where