{-# 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.MediaPackageVOD.CreateAsset
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates a new MediaPackage VOD Asset resource.
module Amazonka.MediaPackageVOD.CreateAsset
  ( -- * Creating a Request
    CreateAsset (..),
    newCreateAsset,

    -- * Request Lenses
    createAsset_resourceId,
    createAsset_tags,
    createAsset_sourceArn,
    createAsset_id,
    createAsset_packagingGroupId,
    createAsset_sourceRoleArn,

    -- * Destructuring the Response
    CreateAssetResponse (..),
    newCreateAssetResponse,

    -- * Response Lenses
    createAssetResponse_arn,
    createAssetResponse_createdAt,
    createAssetResponse_egressEndpoints,
    createAssetResponse_id,
    createAssetResponse_packagingGroupId,
    createAssetResponse_resourceId,
    createAssetResponse_sourceArn,
    createAssetResponse_sourceRoleArn,
    createAssetResponse_tags,
    createAssetResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MediaPackageVOD.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | A new MediaPackage VOD Asset configuration.
--
-- /See:/ 'newCreateAsset' smart constructor.
data CreateAsset = CreateAsset'
  { -- | The resource ID to include in SPEKE key requests.
    CreateAsset -> Maybe Text
resourceId :: Prelude.Maybe Prelude.Text,
    CreateAsset -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | ARN of the source object in S3.
    CreateAsset -> Text
sourceArn :: Prelude.Text,
    -- | The unique identifier for the Asset.
    CreateAsset -> Text
id :: Prelude.Text,
    -- | The ID of the PackagingGroup for the Asset.
    CreateAsset -> Text
packagingGroupId :: Prelude.Text,
    -- | The IAM role ARN used to access the source S3 bucket.
    CreateAsset -> Text
sourceRoleArn :: Prelude.Text
  }
  deriving (CreateAsset -> CreateAsset -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAsset -> CreateAsset -> Bool
$c/= :: CreateAsset -> CreateAsset -> Bool
== :: CreateAsset -> CreateAsset -> Bool
$c== :: CreateAsset -> CreateAsset -> Bool
Prelude.Eq, ReadPrec [CreateAsset]
ReadPrec CreateAsset
Int -> ReadS CreateAsset
ReadS [CreateAsset]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateAsset]
$creadListPrec :: ReadPrec [CreateAsset]
readPrec :: ReadPrec CreateAsset
$creadPrec :: ReadPrec CreateAsset
readList :: ReadS [CreateAsset]
$creadList :: ReadS [CreateAsset]
readsPrec :: Int -> ReadS CreateAsset
$creadsPrec :: Int -> ReadS CreateAsset
Prelude.Read, Int -> CreateAsset -> ShowS
[CreateAsset] -> ShowS
CreateAsset -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAsset] -> ShowS
$cshowList :: [CreateAsset] -> ShowS
show :: CreateAsset -> String
$cshow :: CreateAsset -> String
showsPrec :: Int -> CreateAsset -> ShowS
$cshowsPrec :: Int -> CreateAsset -> ShowS
Prelude.Show, forall x. Rep CreateAsset x -> CreateAsset
forall x. CreateAsset -> Rep CreateAsset x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateAsset x -> CreateAsset
$cfrom :: forall x. CreateAsset -> Rep CreateAsset x
Prelude.Generic)

-- |
-- Create a value of 'CreateAsset' 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:
--
-- 'resourceId', 'createAsset_resourceId' - The resource ID to include in SPEKE key requests.
--
-- 'tags', 'createAsset_tags' - Undocumented member.
--
-- 'sourceArn', 'createAsset_sourceArn' - ARN of the source object in S3.
--
-- 'id', 'createAsset_id' - The unique identifier for the Asset.
--
-- 'packagingGroupId', 'createAsset_packagingGroupId' - The ID of the PackagingGroup for the Asset.
--
-- 'sourceRoleArn', 'createAsset_sourceRoleArn' - The IAM role ARN used to access the source S3 bucket.
newCreateAsset ::
  -- | 'sourceArn'
  Prelude.Text ->
  -- | 'id'
  Prelude.Text ->
  -- | 'packagingGroupId'
  Prelude.Text ->
  -- | 'sourceRoleArn'
  Prelude.Text ->
  CreateAsset
newCreateAsset :: Text -> Text -> Text -> Text -> CreateAsset
newCreateAsset
  Text
pSourceArn_
  Text
pId_
  Text
pPackagingGroupId_
  Text
pSourceRoleArn_ =
    CreateAsset'
      { $sel:resourceId:CreateAsset' :: Maybe Text
resourceId = forall a. Maybe a
Prelude.Nothing,
        $sel:tags:CreateAsset' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
        $sel:sourceArn:CreateAsset' :: Text
sourceArn = Text
pSourceArn_,
        $sel:id:CreateAsset' :: Text
id = Text
pId_,
        $sel:packagingGroupId:CreateAsset' :: Text
packagingGroupId = Text
pPackagingGroupId_,
        $sel:sourceRoleArn:CreateAsset' :: Text
sourceRoleArn = Text
pSourceRoleArn_
      }

-- | The resource ID to include in SPEKE key requests.
createAsset_resourceId :: Lens.Lens' CreateAsset (Prelude.Maybe Prelude.Text)
createAsset_resourceId :: Lens' CreateAsset (Maybe Text)
createAsset_resourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAsset' {Maybe Text
resourceId :: Maybe Text
$sel:resourceId:CreateAsset' :: CreateAsset -> Maybe Text
resourceId} -> Maybe Text
resourceId) (\s :: CreateAsset
s@CreateAsset' {} Maybe Text
a -> CreateAsset
s {$sel:resourceId:CreateAsset' :: Maybe Text
resourceId = Maybe Text
a} :: CreateAsset)

-- | Undocumented member.
createAsset_tags :: Lens.Lens' CreateAsset (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createAsset_tags :: Lens' CreateAsset (Maybe (HashMap Text Text))
createAsset_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAsset' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateAsset' :: CreateAsset -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateAsset
s@CreateAsset' {} Maybe (HashMap Text Text)
a -> CreateAsset
s {$sel:tags:CreateAsset' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateAsset) 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

-- | ARN of the source object in S3.
createAsset_sourceArn :: Lens.Lens' CreateAsset Prelude.Text
createAsset_sourceArn :: Lens' CreateAsset Text
createAsset_sourceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAsset' {Text
sourceArn :: Text
$sel:sourceArn:CreateAsset' :: CreateAsset -> Text
sourceArn} -> Text
sourceArn) (\s :: CreateAsset
s@CreateAsset' {} Text
a -> CreateAsset
s {$sel:sourceArn:CreateAsset' :: Text
sourceArn = Text
a} :: CreateAsset)

-- | The unique identifier for the Asset.
createAsset_id :: Lens.Lens' CreateAsset Prelude.Text
createAsset_id :: Lens' CreateAsset Text
createAsset_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAsset' {Text
id :: Text
$sel:id:CreateAsset' :: CreateAsset -> Text
id} -> Text
id) (\s :: CreateAsset
s@CreateAsset' {} Text
a -> CreateAsset
s {$sel:id:CreateAsset' :: Text
id = Text
a} :: CreateAsset)

-- | The ID of the PackagingGroup for the Asset.
createAsset_packagingGroupId :: Lens.Lens' CreateAsset Prelude.Text
createAsset_packagingGroupId :: Lens' CreateAsset Text
createAsset_packagingGroupId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAsset' {Text
packagingGroupId :: Text
$sel:packagingGroupId:CreateAsset' :: CreateAsset -> Text
packagingGroupId} -> Text
packagingGroupId) (\s :: CreateAsset
s@CreateAsset' {} Text
a -> CreateAsset
s {$sel:packagingGroupId:CreateAsset' :: Text
packagingGroupId = Text
a} :: CreateAsset)

-- | The IAM role ARN used to access the source S3 bucket.
createAsset_sourceRoleArn :: Lens.Lens' CreateAsset Prelude.Text
createAsset_sourceRoleArn :: Lens' CreateAsset Text
createAsset_sourceRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAsset' {Text
sourceRoleArn :: Text
$sel:sourceRoleArn:CreateAsset' :: CreateAsset -> Text
sourceRoleArn} -> Text
sourceRoleArn) (\s :: CreateAsset
s@CreateAsset' {} Text
a -> CreateAsset
s {$sel:sourceRoleArn:CreateAsset' :: Text
sourceRoleArn = Text
a} :: CreateAsset)

instance Core.AWSRequest CreateAsset where
  type AWSResponse CreateAsset = CreateAssetResponse
  request :: (Service -> Service) -> CreateAsset -> Request CreateAsset
request Service -> Service
overrides =
    forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateAsset
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateAsset)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
      ( \Int
s ResponseHeaders
h Object
x ->
          Maybe Text
-> Maybe Text
-> Maybe [EgressEndpoint]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe (HashMap Text Text)
-> Int
-> CreateAssetResponse
CreateAssetResponse'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"arn")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"createdAt")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
                            forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"egressEndpoints"
                            forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ 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 -> Either String (Maybe a)
Data..?> Key
"id")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"packagingGroupId")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"resourceId")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"sourceArn")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"sourceRoleArn")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"tags" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable CreateAsset where
  hashWithSalt :: Int -> CreateAsset -> Int
hashWithSalt Int
_salt CreateAsset' {Maybe Text
Maybe (HashMap Text Text)
Text
sourceRoleArn :: Text
packagingGroupId :: Text
id :: Text
sourceArn :: Text
tags :: Maybe (HashMap Text Text)
resourceId :: Maybe Text
$sel:sourceRoleArn:CreateAsset' :: CreateAsset -> Text
$sel:packagingGroupId:CreateAsset' :: CreateAsset -> Text
$sel:id:CreateAsset' :: CreateAsset -> Text
$sel:sourceArn:CreateAsset' :: CreateAsset -> Text
$sel:tags:CreateAsset' :: CreateAsset -> Maybe (HashMap Text Text)
$sel:resourceId:CreateAsset' :: CreateAsset -> Maybe Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
resourceId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sourceArn
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
id
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
packagingGroupId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sourceRoleArn

instance Prelude.NFData CreateAsset where
  rnf :: CreateAsset -> ()
rnf CreateAsset' {Maybe Text
Maybe (HashMap Text Text)
Text
sourceRoleArn :: Text
packagingGroupId :: Text
id :: Text
sourceArn :: Text
tags :: Maybe (HashMap Text Text)
resourceId :: Maybe Text
$sel:sourceRoleArn:CreateAsset' :: CreateAsset -> Text
$sel:packagingGroupId:CreateAsset' :: CreateAsset -> Text
$sel:id:CreateAsset' :: CreateAsset -> Text
$sel:sourceArn:CreateAsset' :: CreateAsset -> Text
$sel:tags:CreateAsset' :: CreateAsset -> Maybe (HashMap Text Text)
$sel:resourceId:CreateAsset' :: CreateAsset -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
resourceId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
sourceArn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
id
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
packagingGroupId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
sourceRoleArn

instance Data.ToHeaders CreateAsset where
  toHeaders :: CreateAsset -> ResponseHeaders
toHeaders =
    forall a b. a -> b -> a
Prelude.const
      ( forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"Content-Type"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON CreateAsset where
  toJSON :: CreateAsset -> Value
toJSON CreateAsset' {Maybe Text
Maybe (HashMap Text Text)
Text
sourceRoleArn :: Text
packagingGroupId :: Text
id :: Text
sourceArn :: Text
tags :: Maybe (HashMap Text Text)
resourceId :: Maybe Text
$sel:sourceRoleArn:CreateAsset' :: CreateAsset -> Text
$sel:packagingGroupId:CreateAsset' :: CreateAsset -> Text
$sel:id:CreateAsset' :: CreateAsset -> Text
$sel:sourceArn:CreateAsset' :: CreateAsset -> Text
$sel:tags:CreateAsset' :: CreateAsset -> Maybe (HashMap Text Text)
$sel:resourceId:CreateAsset' :: CreateAsset -> Maybe Text
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"resourceId" 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 Text
resourceId,
            (Key
"tags" 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 (HashMap Text Text)
tags,
            forall a. a -> Maybe a
Prelude.Just (Key
"sourceArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
sourceArn),
            forall a. a -> Maybe a
Prelude.Just (Key
"id" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
id),
            forall a. a -> Maybe a
Prelude.Just
              (Key
"packagingGroupId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
packagingGroupId),
            forall a. a -> Maybe a
Prelude.Just
              (Key
"sourceRoleArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
sourceRoleArn)
          ]
      )

instance Data.ToPath CreateAsset where
  toPath :: CreateAsset -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/assets"

instance Data.ToQuery CreateAsset where
  toQuery :: CreateAsset -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newCreateAssetResponse' smart constructor.
data CreateAssetResponse = CreateAssetResponse'
  { -- | The ARN of the Asset.
    CreateAssetResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
    -- | The time the Asset was initially submitted for Ingest.
    CreateAssetResponse -> Maybe Text
createdAt :: Prelude.Maybe Prelude.Text,
    -- | The list of egress endpoints available for the Asset.
    CreateAssetResponse -> Maybe [EgressEndpoint]
egressEndpoints :: Prelude.Maybe [EgressEndpoint],
    -- | The unique identifier for the Asset.
    CreateAssetResponse -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
    -- | The ID of the PackagingGroup for the Asset.
    CreateAssetResponse -> Maybe Text
packagingGroupId :: Prelude.Maybe Prelude.Text,
    -- | The resource ID to include in SPEKE key requests.
    CreateAssetResponse -> Maybe Text
resourceId :: Prelude.Maybe Prelude.Text,
    -- | ARN of the source object in S3.
    CreateAssetResponse -> Maybe Text
sourceArn :: Prelude.Maybe Prelude.Text,
    -- | The IAM role_arn used to access the source S3 bucket.
    CreateAssetResponse -> Maybe Text
sourceRoleArn :: Prelude.Maybe Prelude.Text,
    CreateAssetResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | The response's http status code.
    CreateAssetResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (CreateAssetResponse -> CreateAssetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAssetResponse -> CreateAssetResponse -> Bool
$c/= :: CreateAssetResponse -> CreateAssetResponse -> Bool
== :: CreateAssetResponse -> CreateAssetResponse -> Bool
$c== :: CreateAssetResponse -> CreateAssetResponse -> Bool
Prelude.Eq, ReadPrec [CreateAssetResponse]
ReadPrec CreateAssetResponse
Int -> ReadS CreateAssetResponse
ReadS [CreateAssetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateAssetResponse]
$creadListPrec :: ReadPrec [CreateAssetResponse]
readPrec :: ReadPrec CreateAssetResponse
$creadPrec :: ReadPrec CreateAssetResponse
readList :: ReadS [CreateAssetResponse]
$creadList :: ReadS [CreateAssetResponse]
readsPrec :: Int -> ReadS CreateAssetResponse
$creadsPrec :: Int -> ReadS CreateAssetResponse
Prelude.Read, Int -> CreateAssetResponse -> ShowS
[CreateAssetResponse] -> ShowS
CreateAssetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAssetResponse] -> ShowS
$cshowList :: [CreateAssetResponse] -> ShowS
show :: CreateAssetResponse -> String
$cshow :: CreateAssetResponse -> String
showsPrec :: Int -> CreateAssetResponse -> ShowS
$cshowsPrec :: Int -> CreateAssetResponse -> ShowS
Prelude.Show, forall x. Rep CreateAssetResponse x -> CreateAssetResponse
forall x. CreateAssetResponse -> Rep CreateAssetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateAssetResponse x -> CreateAssetResponse
$cfrom :: forall x. CreateAssetResponse -> Rep CreateAssetResponse x
Prelude.Generic)

-- |
-- Create a value of 'CreateAssetResponse' 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:
--
-- 'arn', 'createAssetResponse_arn' - The ARN of the Asset.
--
-- 'createdAt', 'createAssetResponse_createdAt' - The time the Asset was initially submitted for Ingest.
--
-- 'egressEndpoints', 'createAssetResponse_egressEndpoints' - The list of egress endpoints available for the Asset.
--
-- 'id', 'createAssetResponse_id' - The unique identifier for the Asset.
--
-- 'packagingGroupId', 'createAssetResponse_packagingGroupId' - The ID of the PackagingGroup for the Asset.
--
-- 'resourceId', 'createAssetResponse_resourceId' - The resource ID to include in SPEKE key requests.
--
-- 'sourceArn', 'createAssetResponse_sourceArn' - ARN of the source object in S3.
--
-- 'sourceRoleArn', 'createAssetResponse_sourceRoleArn' - The IAM role_arn used to access the source S3 bucket.
--
-- 'tags', 'createAssetResponse_tags' - Undocumented member.
--
-- 'httpStatus', 'createAssetResponse_httpStatus' - The response's http status code.
newCreateAssetResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  CreateAssetResponse
newCreateAssetResponse :: Int -> CreateAssetResponse
newCreateAssetResponse Int
pHttpStatus_ =
  CreateAssetResponse'
    { $sel:arn:CreateAssetResponse' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
      $sel:createdAt:CreateAssetResponse' :: Maybe Text
createdAt = forall a. Maybe a
Prelude.Nothing,
      $sel:egressEndpoints:CreateAssetResponse' :: Maybe [EgressEndpoint]
egressEndpoints = forall a. Maybe a
Prelude.Nothing,
      $sel:id:CreateAssetResponse' :: Maybe Text
id = forall a. Maybe a
Prelude.Nothing,
      $sel:packagingGroupId:CreateAssetResponse' :: Maybe Text
packagingGroupId = forall a. Maybe a
Prelude.Nothing,
      $sel:resourceId:CreateAssetResponse' :: Maybe Text
resourceId = forall a. Maybe a
Prelude.Nothing,
      $sel:sourceArn:CreateAssetResponse' :: Maybe Text
sourceArn = forall a. Maybe a
Prelude.Nothing,
      $sel:sourceRoleArn:CreateAssetResponse' :: Maybe Text
sourceRoleArn = forall a. Maybe a
Prelude.Nothing,
      $sel:tags:CreateAssetResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:CreateAssetResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The ARN of the Asset.
createAssetResponse_arn :: Lens.Lens' CreateAssetResponse (Prelude.Maybe Prelude.Text)
createAssetResponse_arn :: Lens' CreateAssetResponse (Maybe Text)
createAssetResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssetResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:CreateAssetResponse' :: CreateAssetResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: CreateAssetResponse
s@CreateAssetResponse' {} Maybe Text
a -> CreateAssetResponse
s {$sel:arn:CreateAssetResponse' :: Maybe Text
arn = Maybe Text
a} :: CreateAssetResponse)

-- | The time the Asset was initially submitted for Ingest.
createAssetResponse_createdAt :: Lens.Lens' CreateAssetResponse (Prelude.Maybe Prelude.Text)
createAssetResponse_createdAt :: Lens' CreateAssetResponse (Maybe Text)
createAssetResponse_createdAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssetResponse' {Maybe Text
createdAt :: Maybe Text
$sel:createdAt:CreateAssetResponse' :: CreateAssetResponse -> Maybe Text
createdAt} -> Maybe Text
createdAt) (\s :: CreateAssetResponse
s@CreateAssetResponse' {} Maybe Text
a -> CreateAssetResponse
s {$sel:createdAt:CreateAssetResponse' :: Maybe Text
createdAt = Maybe Text
a} :: CreateAssetResponse)

-- | The list of egress endpoints available for the Asset.
createAssetResponse_egressEndpoints :: Lens.Lens' CreateAssetResponse (Prelude.Maybe [EgressEndpoint])
createAssetResponse_egressEndpoints :: Lens' CreateAssetResponse (Maybe [EgressEndpoint])
createAssetResponse_egressEndpoints = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssetResponse' {Maybe [EgressEndpoint]
egressEndpoints :: Maybe [EgressEndpoint]
$sel:egressEndpoints:CreateAssetResponse' :: CreateAssetResponse -> Maybe [EgressEndpoint]
egressEndpoints} -> Maybe [EgressEndpoint]
egressEndpoints) (\s :: CreateAssetResponse
s@CreateAssetResponse' {} Maybe [EgressEndpoint]
a -> CreateAssetResponse
s {$sel:egressEndpoints:CreateAssetResponse' :: Maybe [EgressEndpoint]
egressEndpoints = Maybe [EgressEndpoint]
a} :: CreateAssetResponse) 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 unique identifier for the Asset.
createAssetResponse_id :: Lens.Lens' CreateAssetResponse (Prelude.Maybe Prelude.Text)
createAssetResponse_id :: Lens' CreateAssetResponse (Maybe Text)
createAssetResponse_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssetResponse' {Maybe Text
id :: Maybe Text
$sel:id:CreateAssetResponse' :: CreateAssetResponse -> Maybe Text
id} -> Maybe Text
id) (\s :: CreateAssetResponse
s@CreateAssetResponse' {} Maybe Text
a -> CreateAssetResponse
s {$sel:id:CreateAssetResponse' :: Maybe Text
id = Maybe Text
a} :: CreateAssetResponse)

-- | The ID of the PackagingGroup for the Asset.
createAssetResponse_packagingGroupId :: Lens.Lens' CreateAssetResponse (Prelude.Maybe Prelude.Text)
createAssetResponse_packagingGroupId :: Lens' CreateAssetResponse (Maybe Text)
createAssetResponse_packagingGroupId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssetResponse' {Maybe Text
packagingGroupId :: Maybe Text
$sel:packagingGroupId:CreateAssetResponse' :: CreateAssetResponse -> Maybe Text
packagingGroupId} -> Maybe Text
packagingGroupId) (\s :: CreateAssetResponse
s@CreateAssetResponse' {} Maybe Text
a -> CreateAssetResponse
s {$sel:packagingGroupId:CreateAssetResponse' :: Maybe Text
packagingGroupId = Maybe Text
a} :: CreateAssetResponse)

-- | The resource ID to include in SPEKE key requests.
createAssetResponse_resourceId :: Lens.Lens' CreateAssetResponse (Prelude.Maybe Prelude.Text)
createAssetResponse_resourceId :: Lens' CreateAssetResponse (Maybe Text)
createAssetResponse_resourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssetResponse' {Maybe Text
resourceId :: Maybe Text
$sel:resourceId:CreateAssetResponse' :: CreateAssetResponse -> Maybe Text
resourceId} -> Maybe Text
resourceId) (\s :: CreateAssetResponse
s@CreateAssetResponse' {} Maybe Text
a -> CreateAssetResponse
s {$sel:resourceId:CreateAssetResponse' :: Maybe Text
resourceId = Maybe Text
a} :: CreateAssetResponse)

-- | ARN of the source object in S3.
createAssetResponse_sourceArn :: Lens.Lens' CreateAssetResponse (Prelude.Maybe Prelude.Text)
createAssetResponse_sourceArn :: Lens' CreateAssetResponse (Maybe Text)
createAssetResponse_sourceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssetResponse' {Maybe Text
sourceArn :: Maybe Text
$sel:sourceArn:CreateAssetResponse' :: CreateAssetResponse -> Maybe Text
sourceArn} -> Maybe Text
sourceArn) (\s :: CreateAssetResponse
s@CreateAssetResponse' {} Maybe Text
a -> CreateAssetResponse
s {$sel:sourceArn:CreateAssetResponse' :: Maybe Text
sourceArn = Maybe Text
a} :: CreateAssetResponse)

-- | The IAM role_arn used to access the source S3 bucket.
createAssetResponse_sourceRoleArn :: Lens.Lens' CreateAssetResponse (Prelude.Maybe Prelude.Text)
createAssetResponse_sourceRoleArn :: Lens' CreateAssetResponse (Maybe Text)
createAssetResponse_sourceRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssetResponse' {Maybe Text
sourceRoleArn :: Maybe Text
$sel:sourceRoleArn:CreateAssetResponse' :: CreateAssetResponse -> Maybe Text
sourceRoleArn} -> Maybe Text
sourceRoleArn) (\s :: CreateAssetResponse
s@CreateAssetResponse' {} Maybe Text
a -> CreateAssetResponse
s {$sel:sourceRoleArn:CreateAssetResponse' :: Maybe Text
sourceRoleArn = Maybe Text
a} :: CreateAssetResponse)

-- | Undocumented member.
createAssetResponse_tags :: Lens.Lens' CreateAssetResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createAssetResponse_tags :: Lens' CreateAssetResponse (Maybe (HashMap Text Text))
createAssetResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssetResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateAssetResponse' :: CreateAssetResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateAssetResponse
s@CreateAssetResponse' {} Maybe (HashMap Text Text)
a -> CreateAssetResponse
s {$sel:tags:CreateAssetResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateAssetResponse) 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 response's http status code.
createAssetResponse_httpStatus :: Lens.Lens' CreateAssetResponse Prelude.Int
createAssetResponse_httpStatus :: Lens' CreateAssetResponse Int
createAssetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAssetResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateAssetResponse' :: CreateAssetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateAssetResponse
s@CreateAssetResponse' {} Int
a -> CreateAssetResponse
s {$sel:httpStatus:CreateAssetResponse' :: Int
httpStatus = Int
a} :: CreateAssetResponse)

instance Prelude.NFData CreateAssetResponse where
  rnf :: CreateAssetResponse -> ()
rnf CreateAssetResponse' {Int
Maybe [EgressEndpoint]
Maybe Text
Maybe (HashMap Text Text)
httpStatus :: Int
tags :: Maybe (HashMap Text Text)
sourceRoleArn :: Maybe Text
sourceArn :: Maybe Text
resourceId :: Maybe Text
packagingGroupId :: Maybe Text
id :: Maybe Text
egressEndpoints :: Maybe [EgressEndpoint]
createdAt :: Maybe Text
arn :: Maybe Text
$sel:httpStatus:CreateAssetResponse' :: CreateAssetResponse -> Int
$sel:tags:CreateAssetResponse' :: CreateAssetResponse -> Maybe (HashMap Text Text)
$sel:sourceRoleArn:CreateAssetResponse' :: CreateAssetResponse -> Maybe Text
$sel:sourceArn:CreateAssetResponse' :: CreateAssetResponse -> Maybe Text
$sel:resourceId:CreateAssetResponse' :: CreateAssetResponse -> Maybe Text
$sel:packagingGroupId:CreateAssetResponse' :: CreateAssetResponse -> Maybe Text
$sel:id:CreateAssetResponse' :: CreateAssetResponse -> Maybe Text
$sel:egressEndpoints:CreateAssetResponse' :: CreateAssetResponse -> Maybe [EgressEndpoint]
$sel:createdAt:CreateAssetResponse' :: CreateAssetResponse -> Maybe Text
$sel:arn:CreateAssetResponse' :: CreateAssetResponse -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
createdAt
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [EgressEndpoint]
egressEndpoints
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
id
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
packagingGroupId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
resourceId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceArn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceRoleArn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus