{-# 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.UpdateTestGridProject -- Copyright : (c) 2013-2023 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Change details of a project. module Amazonka.DeviceFarm.UpdateTestGridProject ( -- * Creating a Request UpdateTestGridProject (..), newUpdateTestGridProject, -- * Request Lenses updateTestGridProject_description, updateTestGridProject_name, updateTestGridProject_vpcConfig, updateTestGridProject_projectArn, -- * Destructuring the Response UpdateTestGridProjectResponse (..), newUpdateTestGridProjectResponse, -- * Response Lenses updateTestGridProjectResponse_testGridProject, updateTestGridProjectResponse_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:/ 'newUpdateTestGridProject' smart constructor. data UpdateTestGridProject = UpdateTestGridProject' { -- | Human-readable description for the project. description :: Prelude.Maybe Prelude.Text, -- | Human-readable name for the project. name :: Prelude.Maybe Prelude.Text, -- | The VPC security groups and subnets that are attached to a project. vpcConfig :: Prelude.Maybe TestGridVpcConfig, -- | ARN of the project to update. projectArn :: Prelude.Text } deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) -- | -- Create a value of 'UpdateTestGridProject' 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: -- -- 'description', 'updateTestGridProject_description' - Human-readable description for the project. -- -- 'name', 'updateTestGridProject_name' - Human-readable name for the project. -- -- 'vpcConfig', 'updateTestGridProject_vpcConfig' - The VPC security groups and subnets that are attached to a project. -- -- 'projectArn', 'updateTestGridProject_projectArn' - ARN of the project to update. newUpdateTestGridProject :: -- | 'projectArn' Prelude.Text -> UpdateTestGridProject newUpdateTestGridProject pProjectArn_ = UpdateTestGridProject' { description = Prelude.Nothing, name = Prelude.Nothing, vpcConfig = Prelude.Nothing, projectArn = pProjectArn_ } -- | Human-readable description for the project. updateTestGridProject_description :: Lens.Lens' UpdateTestGridProject (Prelude.Maybe Prelude.Text) updateTestGridProject_description = Lens.lens (\UpdateTestGridProject' {description} -> description) (\s@UpdateTestGridProject' {} a -> s {description = a} :: UpdateTestGridProject) -- | Human-readable name for the project. updateTestGridProject_name :: Lens.Lens' UpdateTestGridProject (Prelude.Maybe Prelude.Text) updateTestGridProject_name = Lens.lens (\UpdateTestGridProject' {name} -> name) (\s@UpdateTestGridProject' {} a -> s {name = a} :: UpdateTestGridProject) -- | The VPC security groups and subnets that are attached to a project. updateTestGridProject_vpcConfig :: Lens.Lens' UpdateTestGridProject (Prelude.Maybe TestGridVpcConfig) updateTestGridProject_vpcConfig = Lens.lens (\UpdateTestGridProject' {vpcConfig} -> vpcConfig) (\s@UpdateTestGridProject' {} a -> s {vpcConfig = a} :: UpdateTestGridProject) -- | ARN of the project to update. updateTestGridProject_projectArn :: Lens.Lens' UpdateTestGridProject Prelude.Text updateTestGridProject_projectArn = Lens.lens (\UpdateTestGridProject' {projectArn} -> projectArn) (\s@UpdateTestGridProject' {} a -> s {projectArn = a} :: UpdateTestGridProject) instance Core.AWSRequest UpdateTestGridProject where type AWSResponse UpdateTestGridProject = UpdateTestGridProjectResponse request overrides = Request.postJSON (overrides defaultService) response = Response.receiveJSON ( \s h x -> UpdateTestGridProjectResponse' Prelude.<$> (x Data..?> "testGridProject") Prelude.<*> (Prelude.pure (Prelude.fromEnum s)) ) instance Prelude.Hashable UpdateTestGridProject where hashWithSalt _salt UpdateTestGridProject' {..} = _salt `Prelude.hashWithSalt` description `Prelude.hashWithSalt` name `Prelude.hashWithSalt` vpcConfig `Prelude.hashWithSalt` projectArn instance Prelude.NFData UpdateTestGridProject where rnf UpdateTestGridProject' {..} = Prelude.rnf description `Prelude.seq` Prelude.rnf name `Prelude.seq` Prelude.rnf vpcConfig `Prelude.seq` Prelude.rnf projectArn instance Data.ToHeaders UpdateTestGridProject where toHeaders = Prelude.const ( Prelude.mconcat [ "X-Amz-Target" Data.=# ( "DeviceFarm_20150623.UpdateTestGridProject" :: Prelude.ByteString ), "Content-Type" Data.=# ( "application/x-amz-json-1.1" :: Prelude.ByteString ) ] ) instance Data.ToJSON UpdateTestGridProject where toJSON UpdateTestGridProject' {..} = Data.object ( Prelude.catMaybes [ ("description" Data..=) Prelude.<$> description, ("name" Data..=) Prelude.<$> name, ("vpcConfig" Data..=) Prelude.<$> vpcConfig, Prelude.Just ("projectArn" Data..= projectArn) ] ) instance Data.ToPath UpdateTestGridProject where toPath = Prelude.const "/" instance Data.ToQuery UpdateTestGridProject where toQuery = Prelude.const Prelude.mempty -- | /See:/ 'newUpdateTestGridProjectResponse' smart constructor. data UpdateTestGridProjectResponse = UpdateTestGridProjectResponse' { -- | The project, including updated information. testGridProject :: Prelude.Maybe TestGridProject, -- | The response's http status code. httpStatus :: Prelude.Int } deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) -- | -- Create a value of 'UpdateTestGridProjectResponse' 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: -- -- 'testGridProject', 'updateTestGridProjectResponse_testGridProject' - The project, including updated information. -- -- 'httpStatus', 'updateTestGridProjectResponse_httpStatus' - The response's http status code. newUpdateTestGridProjectResponse :: -- | 'httpStatus' Prelude.Int -> UpdateTestGridProjectResponse newUpdateTestGridProjectResponse pHttpStatus_ = UpdateTestGridProjectResponse' { testGridProject = Prelude.Nothing, httpStatus = pHttpStatus_ } -- | The project, including updated information. updateTestGridProjectResponse_testGridProject :: Lens.Lens' UpdateTestGridProjectResponse (Prelude.Maybe TestGridProject) updateTestGridProjectResponse_testGridProject = Lens.lens (\UpdateTestGridProjectResponse' {testGridProject} -> testGridProject) (\s@UpdateTestGridProjectResponse' {} a -> s {testGridProject = a} :: UpdateTestGridProjectResponse) -- | The response's http status code. updateTestGridProjectResponse_httpStatus :: Lens.Lens' UpdateTestGridProjectResponse Prelude.Int updateTestGridProjectResponse_httpStatus = Lens.lens (\UpdateTestGridProjectResponse' {httpStatus} -> httpStatus) (\s@UpdateTestGridProjectResponse' {} a -> s {httpStatus = a} :: UpdateTestGridProjectResponse) instance Prelude.NFData UpdateTestGridProjectResponse where rnf UpdateTestGridProjectResponse' {..} = Prelude.rnf testGridProject `Prelude.seq` Prelude.rnf httpStatus