{-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE DuplicateRecordFields #-} {-# LANGUAGE NamedFieldPuns #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} {-# LANGUAGE StrictData #-} {-# LANGUAGE NoImplicitPrelude #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} {-# OPTIONS_GHC -fno-warn-unused-matches #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Amazonka.Panorama.Types.DeviceJob -- Copyright : (c) 2013-2023 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) module Amazonka.Panorama.Types.DeviceJob where import qualified Amazonka.Core as Core import qualified Amazonka.Core.Lens.Internal as Lens import qualified Amazonka.Data as Data import Amazonka.Panorama.Types.JobType import qualified Amazonka.Prelude as Prelude -- | A job that runs on a device. -- -- /See:/ 'newDeviceJob' smart constructor. data DeviceJob = DeviceJob' { -- | When the job was created. createdTime :: Prelude.Maybe Data.POSIX, -- | The ID of the target device. deviceId :: Prelude.Maybe Prelude.Text, -- | The name of the target device deviceName :: Prelude.Maybe Prelude.Text, -- | The job\'s ID. jobId :: Prelude.Maybe Prelude.Text, -- | The job\'s type. jobType :: Prelude.Maybe JobType } deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic) -- | -- Create a value of 'DeviceJob' 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: -- -- 'createdTime', 'deviceJob_createdTime' - When the job was created. -- -- 'deviceId', 'deviceJob_deviceId' - The ID of the target device. -- -- 'deviceName', 'deviceJob_deviceName' - The name of the target device -- -- 'jobId', 'deviceJob_jobId' - The job\'s ID. -- -- 'jobType', 'deviceJob_jobType' - The job\'s type. newDeviceJob :: DeviceJob newDeviceJob = DeviceJob' { createdTime = Prelude.Nothing, deviceId = Prelude.Nothing, deviceName = Prelude.Nothing, jobId = Prelude.Nothing, jobType = Prelude.Nothing } -- | When the job was created. deviceJob_createdTime :: Lens.Lens' DeviceJob (Prelude.Maybe Prelude.UTCTime) deviceJob_createdTime = Lens.lens (\DeviceJob' {createdTime} -> createdTime) (\s@DeviceJob' {} a -> s {createdTime = a} :: DeviceJob) Prelude.. Lens.mapping Data._Time -- | The ID of the target device. deviceJob_deviceId :: Lens.Lens' DeviceJob (Prelude.Maybe Prelude.Text) deviceJob_deviceId = Lens.lens (\DeviceJob' {deviceId} -> deviceId) (\s@DeviceJob' {} a -> s {deviceId = a} :: DeviceJob) -- | The name of the target device deviceJob_deviceName :: Lens.Lens' DeviceJob (Prelude.Maybe Prelude.Text) deviceJob_deviceName = Lens.lens (\DeviceJob' {deviceName} -> deviceName) (\s@DeviceJob' {} a -> s {deviceName = a} :: DeviceJob) -- | The job\'s ID. deviceJob_jobId :: Lens.Lens' DeviceJob (Prelude.Maybe Prelude.Text) deviceJob_jobId = Lens.lens (\DeviceJob' {jobId} -> jobId) (\s@DeviceJob' {} a -> s {jobId = a} :: DeviceJob) -- | The job\'s type. deviceJob_jobType :: Lens.Lens' DeviceJob (Prelude.Maybe JobType) deviceJob_jobType = Lens.lens (\DeviceJob' {jobType} -> jobType) (\s@DeviceJob' {} a -> s {jobType = a} :: DeviceJob) instance Data.FromJSON DeviceJob where parseJSON = Data.withObject "DeviceJob" ( \x -> DeviceJob' Prelude.<$> (x Data..:? "CreatedTime") Prelude.<*> (x Data..:? "DeviceId") Prelude.<*> (x Data..:? "DeviceName") Prelude.<*> (x Data..:? "JobId") Prelude.<*> (x Data..:? "JobType") ) instance Prelude.Hashable DeviceJob where hashWithSalt _salt DeviceJob' {..} = _salt `Prelude.hashWithSalt` createdTime `Prelude.hashWithSalt` deviceId `Prelude.hashWithSalt` deviceName `Prelude.hashWithSalt` jobId `Prelude.hashWithSalt` jobType instance Prelude.NFData DeviceJob where rnf DeviceJob' {..} = Prelude.rnf createdTime `Prelude.seq` Prelude.rnf deviceId `Prelude.seq` Prelude.rnf deviceName `Prelude.seq` Prelude.rnf jobId `Prelude.seq` Prelude.rnf jobType