module Network.AWS.Greengrass.DeleteDeviceDefinition
(
deleteDeviceDefinition
, DeleteDeviceDefinition
, dddDeviceDefinitionId
, deleteDeviceDefinitionResponse
, DeleteDeviceDefinitionResponse
, dddrsResponseStatus
) 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 DeleteDeviceDefinition = DeleteDeviceDefinition'
{ _dddDeviceDefinitionId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDeviceDefinition
:: Text
-> DeleteDeviceDefinition
deleteDeviceDefinition pDeviceDefinitionId_ =
DeleteDeviceDefinition' {_dddDeviceDefinitionId = pDeviceDefinitionId_}
dddDeviceDefinitionId :: Lens' DeleteDeviceDefinition Text
dddDeviceDefinitionId = lens _dddDeviceDefinitionId (\ s a -> s{_dddDeviceDefinitionId = a});
instance AWSRequest DeleteDeviceDefinition where
type Rs DeleteDeviceDefinition =
DeleteDeviceDefinitionResponse
request = delete greengrass
response
= receiveEmpty
(\ s h x ->
DeleteDeviceDefinitionResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteDeviceDefinition where
instance NFData DeleteDeviceDefinition where
instance ToHeaders DeleteDeviceDefinition where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteDeviceDefinition where
toPath DeleteDeviceDefinition'{..}
= mconcat
["/greengrass/definition/devices/",
toBS _dddDeviceDefinitionId]
instance ToQuery DeleteDeviceDefinition where
toQuery = const mempty
newtype DeleteDeviceDefinitionResponse = DeleteDeviceDefinitionResponse'
{ _dddrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDeviceDefinitionResponse
:: Int
-> DeleteDeviceDefinitionResponse
deleteDeviceDefinitionResponse pResponseStatus_ =
DeleteDeviceDefinitionResponse' {_dddrsResponseStatus = pResponseStatus_}
dddrsResponseStatus :: Lens' DeleteDeviceDefinitionResponse Int
dddrsResponseStatus = lens _dddrsResponseStatus (\ s a -> s{_dddrsResponseStatus = a});
instance NFData DeleteDeviceDefinitionResponse where