module Network.AWS.EC2.DisableVpcClassicLink
(
DisableVpcClassicLink
, disableVpcClassicLink
, dvcl1DryRun
, dvcl1VpcId
, DisableVpcClassicLinkResponse
, disableVpcClassicLinkResponse
, dvclrReturn
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data DisableVpcClassicLink = DisableVpcClassicLink
{ _dvcl1DryRun :: Maybe Bool
, _dvcl1VpcId :: Text
} deriving (Eq, Ord, Show)
disableVpcClassicLink :: Text
-> DisableVpcClassicLink
disableVpcClassicLink p1 = DisableVpcClassicLink
{ _dvcl1VpcId = p1
, _dvcl1DryRun = Nothing
}
dvcl1DryRun :: Lens' DisableVpcClassicLink (Maybe Bool)
dvcl1DryRun = lens _dvcl1DryRun (\s a -> s { _dvcl1DryRun = a })
dvcl1VpcId :: Lens' DisableVpcClassicLink Text
dvcl1VpcId = lens _dvcl1VpcId (\s a -> s { _dvcl1VpcId = a })
newtype DisableVpcClassicLinkResponse = DisableVpcClassicLinkResponse
{ _dvclrReturn :: Maybe Bool
} deriving (Eq, Ord, Show)
disableVpcClassicLinkResponse :: DisableVpcClassicLinkResponse
disableVpcClassicLinkResponse = DisableVpcClassicLinkResponse
{ _dvclrReturn = Nothing
}
dvclrReturn :: Lens' DisableVpcClassicLinkResponse (Maybe Bool)
dvclrReturn = lens _dvclrReturn (\s a -> s { _dvclrReturn = a })
instance ToPath DisableVpcClassicLink where
toPath = const "/"
instance ToQuery DisableVpcClassicLink where
toQuery DisableVpcClassicLink{..} = mconcat
[ "dryRun" =? _dvcl1DryRun
, "vpcId" =? _dvcl1VpcId
]
instance ToHeaders DisableVpcClassicLink
instance AWSRequest DisableVpcClassicLink where
type Sv DisableVpcClassicLink = EC2
type Rs DisableVpcClassicLink = DisableVpcClassicLinkResponse
request = post "DisableVpcClassicLink"
response = xmlResponse
instance FromXML DisableVpcClassicLinkResponse where
parseXML x = DisableVpcClassicLinkResponse
<$> x .@? "return"