module Network.AWS.StorageGateway.UpdateVTLDeviceType
(
updateVTLDeviceType
, UpdateVTLDeviceType
, uvtldtVTLDeviceARN
, uvtldtDeviceType
, updateVTLDeviceTypeResponse
, UpdateVTLDeviceTypeResponse
, uvtldtrsVTLDeviceARN
, uvtldtrsResponseStatus
) where
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.StorageGateway.Types
import Network.AWS.StorageGateway.Types.Product
data UpdateVTLDeviceType = UpdateVTLDeviceType'
{ _uvtldtVTLDeviceARN :: !Text
, _uvtldtDeviceType :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateVTLDeviceType
:: Text
-> Text
-> UpdateVTLDeviceType
updateVTLDeviceType pVTLDeviceARN_ pDeviceType_ =
UpdateVTLDeviceType'
{ _uvtldtVTLDeviceARN = pVTLDeviceARN_
, _uvtldtDeviceType = pDeviceType_
}
uvtldtVTLDeviceARN :: Lens' UpdateVTLDeviceType Text
uvtldtVTLDeviceARN = lens _uvtldtVTLDeviceARN (\ s a -> s{_uvtldtVTLDeviceARN = a});
uvtldtDeviceType :: Lens' UpdateVTLDeviceType Text
uvtldtDeviceType = lens _uvtldtDeviceType (\ s a -> s{_uvtldtDeviceType = a});
instance AWSRequest UpdateVTLDeviceType where
type Rs UpdateVTLDeviceType =
UpdateVTLDeviceTypeResponse
request = postJSON storageGateway
response
= receiveJSON
(\ s h x ->
UpdateVTLDeviceTypeResponse' <$>
(x .?> "VTLDeviceARN") <*> (pure (fromEnum s)))
instance ToHeaders UpdateVTLDeviceType where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StorageGateway_20130630.UpdateVTLDeviceType" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateVTLDeviceType where
toJSON UpdateVTLDeviceType'{..}
= object
(catMaybes
[Just ("VTLDeviceARN" .= _uvtldtVTLDeviceARN),
Just ("DeviceType" .= _uvtldtDeviceType)])
instance ToPath UpdateVTLDeviceType where
toPath = const "/"
instance ToQuery UpdateVTLDeviceType where
toQuery = const mempty
data UpdateVTLDeviceTypeResponse = UpdateVTLDeviceTypeResponse'
{ _uvtldtrsVTLDeviceARN :: !(Maybe Text)
, _uvtldtrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateVTLDeviceTypeResponse
:: Int
-> UpdateVTLDeviceTypeResponse
updateVTLDeviceTypeResponse pResponseStatus_ =
UpdateVTLDeviceTypeResponse'
{ _uvtldtrsVTLDeviceARN = Nothing
, _uvtldtrsResponseStatus = pResponseStatus_
}
uvtldtrsVTLDeviceARN :: Lens' UpdateVTLDeviceTypeResponse (Maybe Text)
uvtldtrsVTLDeviceARN = lens _uvtldtrsVTLDeviceARN (\ s a -> s{_uvtldtrsVTLDeviceARN = a});
uvtldtrsResponseStatus :: Lens' UpdateVTLDeviceTypeResponse Int
uvtldtrsResponseStatus = lens _uvtldtrsResponseStatus (\ s a -> s{_uvtldtrsResponseStatus = a});