module Network.AWS.EC2.DetachClassicLinkVpc
(
DetachClassicLinkVpc
, detachClassicLinkVpc
, dclvDryRun
, dclvInstanceId
, dclvVpcId
, DetachClassicLinkVpcResponse
, detachClassicLinkVpcResponse
, dclvrReturn
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data DetachClassicLinkVpc = DetachClassicLinkVpc
{ _dclvDryRun :: Maybe Bool
, _dclvInstanceId :: Text
, _dclvVpcId :: Text
} deriving (Eq, Ord, Read, Show)
detachClassicLinkVpc :: Text
-> Text
-> DetachClassicLinkVpc
detachClassicLinkVpc p1 p2 = DetachClassicLinkVpc
{ _dclvInstanceId = p1
, _dclvVpcId = p2
, _dclvDryRun = Nothing
}
dclvDryRun :: Lens' DetachClassicLinkVpc (Maybe Bool)
dclvDryRun = lens _dclvDryRun (\s a -> s { _dclvDryRun = a })
dclvInstanceId :: Lens' DetachClassicLinkVpc Text
dclvInstanceId = lens _dclvInstanceId (\s a -> s { _dclvInstanceId = a })
dclvVpcId :: Lens' DetachClassicLinkVpc Text
dclvVpcId = lens _dclvVpcId (\s a -> s { _dclvVpcId = a })
newtype DetachClassicLinkVpcResponse = DetachClassicLinkVpcResponse
{ _dclvrReturn :: Maybe Bool
} deriving (Eq, Ord, Read, Show)
detachClassicLinkVpcResponse :: DetachClassicLinkVpcResponse
detachClassicLinkVpcResponse = DetachClassicLinkVpcResponse
{ _dclvrReturn = Nothing
}
dclvrReturn :: Lens' DetachClassicLinkVpcResponse (Maybe Bool)
dclvrReturn = lens _dclvrReturn (\s a -> s { _dclvrReturn = a })
instance ToPath DetachClassicLinkVpc where
toPath = const "/"
instance ToQuery DetachClassicLinkVpc where
toQuery DetachClassicLinkVpc{..} = mconcat
[ "DryRun" =? _dclvDryRun
, "InstanceId" =? _dclvInstanceId
, "VpcId" =? _dclvVpcId
]
instance ToHeaders DetachClassicLinkVpc
instance AWSRequest DetachClassicLinkVpc where
type Sv DetachClassicLinkVpc = EC2
type Rs DetachClassicLinkVpc = DetachClassicLinkVpcResponse
request = post "DetachClassicLinkVpc"
response = xmlResponse
instance FromXML DetachClassicLinkVpcResponse where
parseXML x = DetachClassicLinkVpcResponse
<$> x .@? "return"