module Network.AWS.EC2.ModifySubnetAttribute
(
ModifySubnetAttribute
, modifySubnetAttribute
, msaMapPublicIpOnLaunch
, msaSubnetId
, ModifySubnetAttributeResponse
, modifySubnetAttributeResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data ModifySubnetAttribute = ModifySubnetAttribute
{ _msaMapPublicIpOnLaunch :: Maybe AttributeBooleanValue
, _msaSubnetId :: Text
} deriving (Eq, Read, Show)
modifySubnetAttribute :: Text
-> ModifySubnetAttribute
modifySubnetAttribute p1 = ModifySubnetAttribute
{ _msaSubnetId = p1
, _msaMapPublicIpOnLaunch = Nothing
}
msaMapPublicIpOnLaunch :: Lens' ModifySubnetAttribute (Maybe AttributeBooleanValue)
msaMapPublicIpOnLaunch =
lens _msaMapPublicIpOnLaunch (\s a -> s { _msaMapPublicIpOnLaunch = a })
msaSubnetId :: Lens' ModifySubnetAttribute Text
msaSubnetId = lens _msaSubnetId (\s a -> s { _msaSubnetId = a })
data ModifySubnetAttributeResponse = ModifySubnetAttributeResponse
deriving (Eq, Ord, Read, Show, Generic)
modifySubnetAttributeResponse :: ModifySubnetAttributeResponse
modifySubnetAttributeResponse = ModifySubnetAttributeResponse
instance ToPath ModifySubnetAttribute where
toPath = const "/"
instance ToQuery ModifySubnetAttribute where
toQuery ModifySubnetAttribute{..} = mconcat
[ "MapPublicIpOnLaunch" =? _msaMapPublicIpOnLaunch
, "SubnetId" =? _msaSubnetId
]
instance ToHeaders ModifySubnetAttribute
instance AWSRequest ModifySubnetAttribute where
type Sv ModifySubnetAttribute = EC2
type Rs ModifySubnetAttribute = ModifySubnetAttributeResponse
request = post "ModifySubnetAttribute"
response = nullResponse ModifySubnetAttributeResponse