module Network.AWS.OpsWorks.RegisterVolume
(
registerVolume
, RegisterVolume
, rvEC2VolumeId
, rvStackId
, registerVolumeResponse
, RegisterVolumeResponse
, rvrsVolumeId
, rvrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data RegisterVolume = RegisterVolume'
{ _rvEC2VolumeId :: !(Maybe Text)
, _rvStackId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
registerVolume
:: Text
-> RegisterVolume
registerVolume pStackId_ =
RegisterVolume'
{ _rvEC2VolumeId = Nothing
, _rvStackId = pStackId_
}
rvEC2VolumeId :: Lens' RegisterVolume (Maybe Text)
rvEC2VolumeId = lens _rvEC2VolumeId (\ s a -> s{_rvEC2VolumeId = a});
rvStackId :: Lens' RegisterVolume Text
rvStackId = lens _rvStackId (\ s a -> s{_rvStackId = a});
instance AWSRequest RegisterVolume where
type Rs RegisterVolume = RegisterVolumeResponse
request = postJSON opsWorks
response
= receiveJSON
(\ s h x ->
RegisterVolumeResponse' <$>
(x .?> "VolumeId") <*> (pure (fromEnum s)))
instance Hashable RegisterVolume
instance NFData RegisterVolume
instance ToHeaders RegisterVolume where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.RegisterVolume" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RegisterVolume where
toJSON RegisterVolume'{..}
= object
(catMaybes
[("Ec2VolumeId" .=) <$> _rvEC2VolumeId,
Just ("StackId" .= _rvStackId)])
instance ToPath RegisterVolume where
toPath = const "/"
instance ToQuery RegisterVolume where
toQuery = const mempty
data RegisterVolumeResponse = RegisterVolumeResponse'
{ _rvrsVolumeId :: !(Maybe Text)
, _rvrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
registerVolumeResponse
:: Int
-> RegisterVolumeResponse
registerVolumeResponse pResponseStatus_ =
RegisterVolumeResponse'
{ _rvrsVolumeId = Nothing
, _rvrsResponseStatus = pResponseStatus_
}
rvrsVolumeId :: Lens' RegisterVolumeResponse (Maybe Text)
rvrsVolumeId = lens _rvrsVolumeId (\ s a -> s{_rvrsVolumeId = a});
rvrsResponseStatus :: Lens' RegisterVolumeResponse Int
rvrsResponseStatus = lens _rvrsResponseStatus (\ s a -> s{_rvrsResponseStatus = a});
instance NFData RegisterVolumeResponse