module Network.AWS.EC2.CreateInternetGateway
(
CreateInternetGateway
, createInternetGateway
, cigDryRun
, CreateInternetGatewayResponse
, createInternetGatewayResponse
, cigrInternetGateway
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
newtype CreateInternetGateway = CreateInternetGateway
{ _cigDryRun :: Maybe Bool
} deriving (Eq, Ord, Show)
createInternetGateway :: CreateInternetGateway
createInternetGateway = CreateInternetGateway
{ _cigDryRun = Nothing
}
cigDryRun :: Lens' CreateInternetGateway (Maybe Bool)
cigDryRun = lens _cigDryRun (\s a -> s { _cigDryRun = a })
newtype CreateInternetGatewayResponse = CreateInternetGatewayResponse
{ _cigrInternetGateway :: Maybe InternetGateway
} deriving (Eq, Show)
createInternetGatewayResponse :: CreateInternetGatewayResponse
createInternetGatewayResponse = CreateInternetGatewayResponse
{ _cigrInternetGateway = Nothing
}
cigrInternetGateway :: Lens' CreateInternetGatewayResponse (Maybe InternetGateway)
cigrInternetGateway =
lens _cigrInternetGateway (\s a -> s { _cigrInternetGateway = a })
instance ToPath CreateInternetGateway where
toPath = const "/"
instance ToQuery CreateInternetGateway where
toQuery CreateInternetGateway{..} = mconcat
[ "dryRun" =? _cigDryRun
]
instance ToHeaders CreateInternetGateway
instance AWSRequest CreateInternetGateway where
type Sv CreateInternetGateway = EC2
type Rs CreateInternetGateway = CreateInternetGatewayResponse
request = post "CreateInternetGateway"
response = xmlResponse
instance FromXML CreateInternetGatewayResponse where
parseXML x = CreateInternetGatewayResponse
<$> x .@? "internetGateway"