module Network.AWS.EC2.ModifyVpcEndpoint
(
ModifyVpcEndpoint
, modifyVpcEndpoint
, mveAddRouteTableIds
, mveDryRun
, mvePolicyDocument
, mveRemoveRouteTableIds
, mveResetPolicy
, mveVpcEndpointId
, ModifyVpcEndpointResponse
, modifyVpcEndpointResponse
, mverReturn
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data ModifyVpcEndpoint = ModifyVpcEndpoint
{ _mveAddRouteTableIds :: List "item" Text
, _mveDryRun :: Maybe Bool
, _mvePolicyDocument :: Maybe Text
, _mveRemoveRouteTableIds :: List "item" Text
, _mveResetPolicy :: Maybe Bool
, _mveVpcEndpointId :: Text
} deriving (Eq, Ord, Read, Show)
modifyVpcEndpoint :: Text
-> ModifyVpcEndpoint
modifyVpcEndpoint p1 = ModifyVpcEndpoint
{ _mveVpcEndpointId = p1
, _mveDryRun = Nothing
, _mveResetPolicy = Nothing
, _mvePolicyDocument = Nothing
, _mveAddRouteTableIds = mempty
, _mveRemoveRouteTableIds = mempty
}
mveAddRouteTableIds :: Lens' ModifyVpcEndpoint [Text]
mveAddRouteTableIds =
lens _mveAddRouteTableIds (\s a -> s { _mveAddRouteTableIds = a })
. _List
mveDryRun :: Lens' ModifyVpcEndpoint (Maybe Bool)
mveDryRun = lens _mveDryRun (\s a -> s { _mveDryRun = a })
mvePolicyDocument :: Lens' ModifyVpcEndpoint (Maybe Text)
mvePolicyDocument =
lens _mvePolicyDocument (\s a -> s { _mvePolicyDocument = a })
mveRemoveRouteTableIds :: Lens' ModifyVpcEndpoint [Text]
mveRemoveRouteTableIds =
lens _mveRemoveRouteTableIds (\s a -> s { _mveRemoveRouteTableIds = a })
. _List
mveResetPolicy :: Lens' ModifyVpcEndpoint (Maybe Bool)
mveResetPolicy = lens _mveResetPolicy (\s a -> s { _mveResetPolicy = a })
mveVpcEndpointId :: Lens' ModifyVpcEndpoint Text
mveVpcEndpointId = lens _mveVpcEndpointId (\s a -> s { _mveVpcEndpointId = a })
newtype ModifyVpcEndpointResponse = ModifyVpcEndpointResponse
{ _mverReturn :: Maybe Bool
} deriving (Eq, Ord, Read, Show)
modifyVpcEndpointResponse :: ModifyVpcEndpointResponse
modifyVpcEndpointResponse = ModifyVpcEndpointResponse
{ _mverReturn = Nothing
}
mverReturn :: Lens' ModifyVpcEndpointResponse (Maybe Bool)
mverReturn = lens _mverReturn (\s a -> s { _mverReturn = a })
instance ToPath ModifyVpcEndpoint where
toPath = const "/"
instance ToQuery ModifyVpcEndpoint where
toQuery ModifyVpcEndpoint{..} = mconcat
[ "AddRouteTableId" `toQueryList` _mveAddRouteTableIds
, "DryRun" =? _mveDryRun
, "PolicyDocument" =? _mvePolicyDocument
, "RemoveRouteTableId" `toQueryList` _mveRemoveRouteTableIds
, "ResetPolicy" =? _mveResetPolicy
, "VpcEndpointId" =? _mveVpcEndpointId
]
instance ToHeaders ModifyVpcEndpoint
instance AWSRequest ModifyVpcEndpoint where
type Sv ModifyVpcEndpoint = EC2
type Rs ModifyVpcEndpoint = ModifyVpcEndpointResponse
request = post "ModifyVpcEndpoint"
response = xmlResponse
instance FromXML ModifyVpcEndpointResponse where
parseXML x = ModifyVpcEndpointResponse
<$> x .@? "return"