{-# 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.Snowball.Types.JobResource
-- 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.Snowball.Types.JobResource where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import Amazonka.Snowball.Types.Ec2AmiResource
import Amazonka.Snowball.Types.LambdaResource
import Amazonka.Snowball.Types.S3Resource

-- | Contains an array of Amazon Web Services resource objects. Each object
-- represents an Amazon S3 bucket, an Lambda function, or an Amazon Machine
-- Image (AMI) based on Amazon EC2 that is associated with a particular
-- job.
--
-- /See:/ 'newJobResource' smart constructor.
data JobResource = JobResource'
  { -- | The Amazon Machine Images (AMIs) associated with this job.
    JobResource -> Maybe [Ec2AmiResource]
ec2AmiResources :: Prelude.Maybe [Ec2AmiResource],
    -- | The Python-language Lambda functions for this job.
    JobResource -> Maybe [LambdaResource]
lambdaResources :: Prelude.Maybe [LambdaResource],
    -- | An array of @S3Resource@ objects.
    JobResource -> Maybe [S3Resource]
s3Resources :: Prelude.Maybe [S3Resource]
  }
  deriving (JobResource -> JobResource -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: JobResource -> JobResource -> Bool
$c/= :: JobResource -> JobResource -> Bool
== :: JobResource -> JobResource -> Bool
$c== :: JobResource -> JobResource -> Bool
Prelude.Eq, ReadPrec [JobResource]
ReadPrec JobResource
Int -> ReadS JobResource
ReadS [JobResource]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [JobResource]
$creadListPrec :: ReadPrec [JobResource]
readPrec :: ReadPrec JobResource
$creadPrec :: ReadPrec JobResource
readList :: ReadS [JobResource]
$creadList :: ReadS [JobResource]
readsPrec :: Int -> ReadS JobResource
$creadsPrec :: Int -> ReadS JobResource
Prelude.Read, Int -> JobResource -> ShowS
[JobResource] -> ShowS
JobResource -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [JobResource] -> ShowS
$cshowList :: [JobResource] -> ShowS
show :: JobResource -> String
$cshow :: JobResource -> String
showsPrec :: Int -> JobResource -> ShowS
$cshowsPrec :: Int -> JobResource -> ShowS
Prelude.Show, forall x. Rep JobResource x -> JobResource
forall x. JobResource -> Rep JobResource x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep JobResource x -> JobResource
$cfrom :: forall x. JobResource -> Rep JobResource x
Prelude.Generic)

-- |
-- Create a value of 'JobResource' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'ec2AmiResources', 'jobResource_ec2AmiResources' - The Amazon Machine Images (AMIs) associated with this job.
--
-- 'lambdaResources', 'jobResource_lambdaResources' - The Python-language Lambda functions for this job.
--
-- 's3Resources', 'jobResource_s3Resources' - An array of @S3Resource@ objects.
newJobResource ::
  JobResource
newJobResource :: JobResource
newJobResource =
  JobResource'
    { $sel:ec2AmiResources:JobResource' :: Maybe [Ec2AmiResource]
ec2AmiResources = forall a. Maybe a
Prelude.Nothing,
      $sel:lambdaResources:JobResource' :: Maybe [LambdaResource]
lambdaResources = forall a. Maybe a
Prelude.Nothing,
      $sel:s3Resources:JobResource' :: Maybe [S3Resource]
s3Resources = forall a. Maybe a
Prelude.Nothing
    }

-- | The Amazon Machine Images (AMIs) associated with this job.
jobResource_ec2AmiResources :: Lens.Lens' JobResource (Prelude.Maybe [Ec2AmiResource])
jobResource_ec2AmiResources :: Lens' JobResource (Maybe [Ec2AmiResource])
jobResource_ec2AmiResources = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobResource' {Maybe [Ec2AmiResource]
ec2AmiResources :: Maybe [Ec2AmiResource]
$sel:ec2AmiResources:JobResource' :: JobResource -> Maybe [Ec2AmiResource]
ec2AmiResources} -> Maybe [Ec2AmiResource]
ec2AmiResources) (\s :: JobResource
s@JobResource' {} Maybe [Ec2AmiResource]
a -> JobResource
s {$sel:ec2AmiResources:JobResource' :: Maybe [Ec2AmiResource]
ec2AmiResources = Maybe [Ec2AmiResource]
a} :: JobResource) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The Python-language Lambda functions for this job.
jobResource_lambdaResources :: Lens.Lens' JobResource (Prelude.Maybe [LambdaResource])
jobResource_lambdaResources :: Lens' JobResource (Maybe [LambdaResource])
jobResource_lambdaResources = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobResource' {Maybe [LambdaResource]
lambdaResources :: Maybe [LambdaResource]
$sel:lambdaResources:JobResource' :: JobResource -> Maybe [LambdaResource]
lambdaResources} -> Maybe [LambdaResource]
lambdaResources) (\s :: JobResource
s@JobResource' {} Maybe [LambdaResource]
a -> JobResource
s {$sel:lambdaResources:JobResource' :: Maybe [LambdaResource]
lambdaResources = Maybe [LambdaResource]
a} :: JobResource) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | An array of @S3Resource@ objects.
jobResource_s3Resources :: Lens.Lens' JobResource (Prelude.Maybe [S3Resource])
jobResource_s3Resources :: Lens' JobResource (Maybe [S3Resource])
jobResource_s3Resources = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\JobResource' {Maybe [S3Resource]
s3Resources :: Maybe [S3Resource]
$sel:s3Resources:JobResource' :: JobResource -> Maybe [S3Resource]
s3Resources} -> Maybe [S3Resource]
s3Resources) (\s :: JobResource
s@JobResource' {} Maybe [S3Resource]
a -> JobResource
s {$sel:s3Resources:JobResource' :: Maybe [S3Resource]
s3Resources = Maybe [S3Resource]
a} :: JobResource) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

instance Data.FromJSON JobResource where
  parseJSON :: Value -> Parser JobResource
parseJSON =
    forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
      String
"JobResource"
      ( \Object
x ->
          Maybe [Ec2AmiResource]
-> Maybe [LambdaResource] -> Maybe [S3Resource] -> JobResource
JobResource'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( Object
x
                            forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Ec2AmiResources"
                            forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
                        )
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
                            forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"LambdaResources"
                            forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
                        )
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"S3Resources" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
      )

instance Prelude.Hashable JobResource where
  hashWithSalt :: Int -> JobResource -> Int
hashWithSalt Int
_salt JobResource' {Maybe [Ec2AmiResource]
Maybe [LambdaResource]
Maybe [S3Resource]
s3Resources :: Maybe [S3Resource]
lambdaResources :: Maybe [LambdaResource]
ec2AmiResources :: Maybe [Ec2AmiResource]
$sel:s3Resources:JobResource' :: JobResource -> Maybe [S3Resource]
$sel:lambdaResources:JobResource' :: JobResource -> Maybe [LambdaResource]
$sel:ec2AmiResources:JobResource' :: JobResource -> Maybe [Ec2AmiResource]
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Ec2AmiResource]
ec2AmiResources
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [LambdaResource]
lambdaResources
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [S3Resource]
s3Resources

instance Prelude.NFData JobResource where
  rnf :: JobResource -> ()
rnf JobResource' {Maybe [Ec2AmiResource]
Maybe [LambdaResource]
Maybe [S3Resource]
s3Resources :: Maybe [S3Resource]
lambdaResources :: Maybe [LambdaResource]
ec2AmiResources :: Maybe [Ec2AmiResource]
$sel:s3Resources:JobResource' :: JobResource -> Maybe [S3Resource]
$sel:lambdaResources:JobResource' :: JobResource -> Maybe [LambdaResource]
$sel:ec2AmiResources:JobResource' :: JobResource -> Maybe [Ec2AmiResource]
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe [Ec2AmiResource]
ec2AmiResources
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [LambdaResource]
lambdaResources
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [S3Resource]
s3Resources

instance Data.ToJSON JobResource where
  toJSON :: JobResource -> Value
toJSON JobResource' {Maybe [Ec2AmiResource]
Maybe [LambdaResource]
Maybe [S3Resource]
s3Resources :: Maybe [S3Resource]
lambdaResources :: Maybe [LambdaResource]
ec2AmiResources :: Maybe [Ec2AmiResource]
$sel:s3Resources:JobResource' :: JobResource -> Maybe [S3Resource]
$sel:lambdaResources:JobResource' :: JobResource -> Maybe [LambdaResource]
$sel:ec2AmiResources:JobResource' :: JobResource -> Maybe [Ec2AmiResource]
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"Ec2AmiResources" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Ec2AmiResource]
ec2AmiResources,
            (Key
"LambdaResources" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [LambdaResource]
lambdaResources,
            (Key
"S3Resources" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [S3Resource]
s3Resources
          ]
      )