module Network.AWS.EC2.DeleteInternetGateway
(
DeleteInternetGateway
, deleteInternetGateway
, dig2DryRun
, dig2InternetGatewayId
, DeleteInternetGatewayResponse
, deleteInternetGatewayResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data DeleteInternetGateway = DeleteInternetGateway
{ _dig2DryRun :: Maybe Bool
, _dig2InternetGatewayId :: Text
} deriving (Eq, Ord, Show)
deleteInternetGateway :: Text
-> DeleteInternetGateway
deleteInternetGateway p1 = DeleteInternetGateway
{ _dig2InternetGatewayId = p1
, _dig2DryRun = Nothing
}
dig2DryRun :: Lens' DeleteInternetGateway (Maybe Bool)
dig2DryRun = lens _dig2DryRun (\s a -> s { _dig2DryRun = a })
dig2InternetGatewayId :: Lens' DeleteInternetGateway Text
dig2InternetGatewayId =
lens _dig2InternetGatewayId (\s a -> s { _dig2InternetGatewayId = a })
data DeleteInternetGatewayResponse = DeleteInternetGatewayResponse
deriving (Eq, Ord, Show, Generic)
deleteInternetGatewayResponse :: DeleteInternetGatewayResponse
deleteInternetGatewayResponse = DeleteInternetGatewayResponse
instance ToPath DeleteInternetGateway where
toPath = const "/"
instance ToQuery DeleteInternetGateway where
toQuery DeleteInternetGateway{..} = mconcat
[ "dryRun" =? _dig2DryRun
, "internetGatewayId" =? _dig2InternetGatewayId
]
instance ToHeaders DeleteInternetGateway
instance AWSRequest DeleteInternetGateway where
type Sv DeleteInternetGateway = EC2
type Rs DeleteInternetGateway = DeleteInternetGatewayResponse
request = post "DeleteInternetGateway"
response = nullResponse DeleteInternetGatewayResponse