{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE StrictData #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE NoImplicitPrelude #-} {-# OPTIONS_GHC -fno-warn-unused-binds #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Amazonka.DeviceFarm.DeleteVPCEConfiguration -- Copyright : (c) 2013-2023 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Deletes a configuration for your Amazon Virtual Private Cloud (VPC) -- endpoint. module Amazonka.DeviceFarm.DeleteVPCEConfiguration ( -- * Creating a Request DeleteVPCEConfiguration (..), newDeleteVPCEConfiguration, -- * Request Lenses deleteVPCEConfiguration_arn, -- * Destructuring the Response DeleteVPCEConfigurationResponse (..), newDeleteVPCEConfigurationResponse, -- * Response Lenses deleteVPCEConfigurationResponse_httpStatus, ) where import qualified Amazonka.Core as Core import qualified Amazonka.Core.Lens.Internal as Lens import qualified Amazonka.Data as Data import Amazonka.DeviceFarm.Types import qualified Amazonka.Prelude as Prelude import qualified Amazonka.Request as Request import qualified Amazonka.Response as Response -- | /See:/ 'newDeleteVPCEConfiguration' smart constructor. data DeleteVPCEConfiguration = DeleteVPCEConfiguration' { -- | The Amazon Resource Name (ARN) of the VPC endpoint configuration you -- want to delete. arn :: Prelude.Text } deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) -- | -- Create a value of 'DeleteVPCEConfiguration' with all optional fields omitted. -- -- Use or to modify other optional fields. -- -- The following record fields are available, with the corresponding lenses provided -- for backwards compatibility: -- -- 'arn', 'deleteVPCEConfiguration_arn' - The Amazon Resource Name (ARN) of the VPC endpoint configuration you -- want to delete. newDeleteVPCEConfiguration :: -- | 'arn' Prelude.Text -> DeleteVPCEConfiguration newDeleteVPCEConfiguration pArn_ = DeleteVPCEConfiguration' {arn = pArn_} -- | The Amazon Resource Name (ARN) of the VPC endpoint configuration you -- want to delete. deleteVPCEConfiguration_arn :: Lens.Lens' DeleteVPCEConfiguration Prelude.Text deleteVPCEConfiguration_arn = Lens.lens (\DeleteVPCEConfiguration' {arn} -> arn) (\s@DeleteVPCEConfiguration' {} a -> s {arn = a} :: DeleteVPCEConfiguration) instance Core.AWSRequest DeleteVPCEConfiguration where type AWSResponse DeleteVPCEConfiguration = DeleteVPCEConfigurationResponse request overrides = Request.postJSON (overrides defaultService) response = Response.receiveEmpty ( \s h x -> DeleteVPCEConfigurationResponse' Prelude.<$> (Prelude.pure (Prelude.fromEnum s)) ) instance Prelude.Hashable DeleteVPCEConfiguration where hashWithSalt _salt DeleteVPCEConfiguration' {..} = _salt `Prelude.hashWithSalt` arn instance Prelude.NFData DeleteVPCEConfiguration where rnf DeleteVPCEConfiguration' {..} = Prelude.rnf arn instance Data.ToHeaders DeleteVPCEConfiguration where toHeaders = Prelude.const ( Prelude.mconcat [ "X-Amz-Target" Data.=# ( "DeviceFarm_20150623.DeleteVPCEConfiguration" :: Prelude.ByteString ), "Content-Type" Data.=# ( "application/x-amz-json-1.1" :: Prelude.ByteString ) ] ) instance Data.ToJSON DeleteVPCEConfiguration where toJSON DeleteVPCEConfiguration' {..} = Data.object ( Prelude.catMaybes [Prelude.Just ("arn" Data..= arn)] ) instance Data.ToPath DeleteVPCEConfiguration where toPath = Prelude.const "/" instance Data.ToQuery DeleteVPCEConfiguration where toQuery = Prelude.const Prelude.mempty -- | /See:/ 'newDeleteVPCEConfigurationResponse' smart constructor. data DeleteVPCEConfigurationResponse = DeleteVPCEConfigurationResponse' { -- | The response's http status code. httpStatus :: Prelude.Int } deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) -- | -- Create a value of 'DeleteVPCEConfigurationResponse' with all optional fields omitted. -- -- Use or to modify other optional fields. -- -- The following record fields are available, with the corresponding lenses provided -- for backwards compatibility: -- -- 'httpStatus', 'deleteVPCEConfigurationResponse_httpStatus' - The response's http status code. newDeleteVPCEConfigurationResponse :: -- | 'httpStatus' Prelude.Int -> DeleteVPCEConfigurationResponse newDeleteVPCEConfigurationResponse pHttpStatus_ = DeleteVPCEConfigurationResponse' { httpStatus = pHttpStatus_ } -- | The response's http status code. deleteVPCEConfigurationResponse_httpStatus :: Lens.Lens' DeleteVPCEConfigurationResponse Prelude.Int deleteVPCEConfigurationResponse_httpStatus = Lens.lens (\DeleteVPCEConfigurationResponse' {httpStatus} -> httpStatus) (\s@DeleteVPCEConfigurationResponse' {} a -> s {httpStatus = a} :: DeleteVPCEConfigurationResponse) instance Prelude.NFData DeleteVPCEConfigurationResponse where rnf DeleteVPCEConfigurationResponse' {..} = Prelude.rnf httpStatus