module Network.AWS.StorageGateway.ListVolumeInitiators
(
listVolumeInitiators
, ListVolumeInitiators
, lviVolumeARN
, listVolumeInitiatorsResponse
, ListVolumeInitiatorsResponse
, lvirsInitiators
, lvirsResponseStatus
) where
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.StorageGateway.Types
import Network.AWS.StorageGateway.Types.Product
newtype ListVolumeInitiators = ListVolumeInitiators'
{ _lviVolumeARN :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listVolumeInitiators
:: Text
-> ListVolumeInitiators
listVolumeInitiators pVolumeARN_ =
ListVolumeInitiators'
{ _lviVolumeARN = pVolumeARN_
}
lviVolumeARN :: Lens' ListVolumeInitiators Text
lviVolumeARN = lens _lviVolumeARN (\ s a -> s{_lviVolumeARN = a});
instance AWSRequest ListVolumeInitiators where
type Rs ListVolumeInitiators =
ListVolumeInitiatorsResponse
request = postJSON storageGateway
response
= receiveJSON
(\ s h x ->
ListVolumeInitiatorsResponse' <$>
(x .?> "Initiators" .!@ mempty) <*>
(pure (fromEnum s)))
instance ToHeaders ListVolumeInitiators where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StorageGateway_20130630.ListVolumeInitiators" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListVolumeInitiators where
toJSON ListVolumeInitiators'{..}
= object
(catMaybes [Just ("VolumeARN" .= _lviVolumeARN)])
instance ToPath ListVolumeInitiators where
toPath = const "/"
instance ToQuery ListVolumeInitiators where
toQuery = const mempty
data ListVolumeInitiatorsResponse = ListVolumeInitiatorsResponse'
{ _lvirsInitiators :: !(Maybe [Text])
, _lvirsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listVolumeInitiatorsResponse
:: Int
-> ListVolumeInitiatorsResponse
listVolumeInitiatorsResponse pResponseStatus_ =
ListVolumeInitiatorsResponse'
{ _lvirsInitiators = Nothing
, _lvirsResponseStatus = pResponseStatus_
}
lvirsInitiators :: Lens' ListVolumeInitiatorsResponse [Text]
lvirsInitiators = lens _lvirsInitiators (\ s a -> s{_lvirsInitiators = a}) . _Default . _Coerce;
lvirsResponseStatus :: Lens' ListVolumeInitiatorsResponse Int
lvirsResponseStatus = lens _lvirsResponseStatus (\ s a -> s{_lvirsResponseStatus = a});