{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
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
instance NFData DetachStaticIP
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