module Network.AWS.Lightsail.DetachStaticIP
(
detachStaticIP
, DetachStaticIP
, dsiStaticIPName
, detachStaticIPResponse
, DetachStaticIPResponse
, dsirsOperations
, dsirsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Lightsail.Types
import Network.AWS.Lightsail.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DetachStaticIP = DetachStaticIP'
{ _dsiStaticIPName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
detachStaticIP
:: Text
-> DetachStaticIP
detachStaticIP pStaticIPName_ =
DetachStaticIP' {_dsiStaticIPName = pStaticIPName_}
dsiStaticIPName :: Lens' DetachStaticIP Text
dsiStaticIPName = lens _dsiStaticIPName (\ s a -> s{_dsiStaticIPName = a});
instance AWSRequest DetachStaticIP where
type Rs DetachStaticIP = DetachStaticIPResponse
request = postJSON lightsail
response
= receiveJSON
(\ s h x ->
DetachStaticIPResponse' <$>
(x .?> "operations" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DetachStaticIP where
instance NFData DetachStaticIP where
instance ToHeaders DetachStaticIP where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Lightsail_20161128.DetachStaticIp" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DetachStaticIP where
toJSON DetachStaticIP'{..}
= object
(catMaybes
[Just ("staticIpName" .= _dsiStaticIPName)])
instance ToPath DetachStaticIP where
toPath = const "/"
instance ToQuery DetachStaticIP where
toQuery = const mempty
data DetachStaticIPResponse = DetachStaticIPResponse'
{ _dsirsOperations :: !(Maybe [Operation])
, _dsirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
detachStaticIPResponse
:: Int
-> DetachStaticIPResponse
detachStaticIPResponse pResponseStatus_ =
DetachStaticIPResponse'
{_dsirsOperations = Nothing, _dsirsResponseStatus = pResponseStatus_}
dsirsOperations :: Lens' DetachStaticIPResponse [Operation]
dsirsOperations = lens _dsirsOperations (\ s a -> s{_dsirsOperations = a}) . _Default . _Coerce;
dsirsResponseStatus :: Lens' DetachStaticIPResponse Int
dsirsResponseStatus = lens _dsirsResponseStatus (\ s a -> s{_dsirsResponseStatus = a});
instance NFData DetachStaticIPResponse where