{-# 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.SageMaker.DescribeModelPackageGroup
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Gets a description for the specified model group.
module Amazonka.SageMaker.DescribeModelPackageGroup
  ( -- * Creating a Request
    DescribeModelPackageGroup (..),
    newDescribeModelPackageGroup,

    -- * Request Lenses
    describeModelPackageGroup_modelPackageGroupName,

    -- * Destructuring the Response
    DescribeModelPackageGroupResponse (..),
    newDescribeModelPackageGroupResponse,

    -- * Response Lenses
    describeModelPackageGroupResponse_modelPackageGroupDescription,
    describeModelPackageGroupResponse_httpStatus,
    describeModelPackageGroupResponse_modelPackageGroupName,
    describeModelPackageGroupResponse_modelPackageGroupArn,
    describeModelPackageGroupResponse_creationTime,
    describeModelPackageGroupResponse_createdBy,
    describeModelPackageGroupResponse_modelPackageGroupStatus,
  )
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 qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SageMaker.Types

-- | /See:/ 'newDescribeModelPackageGroup' smart constructor.
data DescribeModelPackageGroup = DescribeModelPackageGroup'
  { -- | The name of gthe model group to describe.
    DescribeModelPackageGroup -> Text
modelPackageGroupName :: Prelude.Text
  }
  deriving (DescribeModelPackageGroup -> DescribeModelPackageGroup -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeModelPackageGroup -> DescribeModelPackageGroup -> Bool
$c/= :: DescribeModelPackageGroup -> DescribeModelPackageGroup -> Bool
== :: DescribeModelPackageGroup -> DescribeModelPackageGroup -> Bool
$c== :: DescribeModelPackageGroup -> DescribeModelPackageGroup -> Bool
Prelude.Eq, ReadPrec [DescribeModelPackageGroup]
ReadPrec DescribeModelPackageGroup
Int -> ReadS DescribeModelPackageGroup
ReadS [DescribeModelPackageGroup]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeModelPackageGroup]
$creadListPrec :: ReadPrec [DescribeModelPackageGroup]
readPrec :: ReadPrec DescribeModelPackageGroup
$creadPrec :: ReadPrec DescribeModelPackageGroup
readList :: ReadS [DescribeModelPackageGroup]
$creadList :: ReadS [DescribeModelPackageGroup]
readsPrec :: Int -> ReadS DescribeModelPackageGroup
$creadsPrec :: Int -> ReadS DescribeModelPackageGroup
Prelude.Read, Int -> DescribeModelPackageGroup -> ShowS
[DescribeModelPackageGroup] -> ShowS
DescribeModelPackageGroup -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeModelPackageGroup] -> ShowS
$cshowList :: [DescribeModelPackageGroup] -> ShowS
show :: DescribeModelPackageGroup -> String
$cshow :: DescribeModelPackageGroup -> String
showsPrec :: Int -> DescribeModelPackageGroup -> ShowS
$cshowsPrec :: Int -> DescribeModelPackageGroup -> ShowS
Prelude.Show, forall x.
Rep DescribeModelPackageGroup x -> DescribeModelPackageGroup
forall x.
DescribeModelPackageGroup -> Rep DescribeModelPackageGroup x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeModelPackageGroup x -> DescribeModelPackageGroup
$cfrom :: forall x.
DescribeModelPackageGroup -> Rep DescribeModelPackageGroup x
Prelude.Generic)

-- |
-- Create a value of 'DescribeModelPackageGroup' 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:
--
-- 'modelPackageGroupName', 'describeModelPackageGroup_modelPackageGroupName' - The name of gthe model group to describe.
newDescribeModelPackageGroup ::
  -- | 'modelPackageGroupName'
  Prelude.Text ->
  DescribeModelPackageGroup
newDescribeModelPackageGroup :: Text -> DescribeModelPackageGroup
newDescribeModelPackageGroup Text
pModelPackageGroupName_ =
  DescribeModelPackageGroup'
    { $sel:modelPackageGroupName:DescribeModelPackageGroup' :: Text
modelPackageGroupName =
        Text
pModelPackageGroupName_
    }

-- | The name of gthe model group to describe.
describeModelPackageGroup_modelPackageGroupName :: Lens.Lens' DescribeModelPackageGroup Prelude.Text
describeModelPackageGroup_modelPackageGroupName :: Lens' DescribeModelPackageGroup Text
describeModelPackageGroup_modelPackageGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeModelPackageGroup' {Text
modelPackageGroupName :: Text
$sel:modelPackageGroupName:DescribeModelPackageGroup' :: DescribeModelPackageGroup -> Text
modelPackageGroupName} -> Text
modelPackageGroupName) (\s :: DescribeModelPackageGroup
s@DescribeModelPackageGroup' {} Text
a -> DescribeModelPackageGroup
s {$sel:modelPackageGroupName:DescribeModelPackageGroup' :: Text
modelPackageGroupName = Text
a} :: DescribeModelPackageGroup)

instance Core.AWSRequest DescribeModelPackageGroup where
  type
    AWSResponse DescribeModelPackageGroup =
      DescribeModelPackageGroupResponse
  request :: (Service -> Service)
-> DescribeModelPackageGroup -> Request DescribeModelPackageGroup
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 DescribeModelPackageGroup
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse DescribeModelPackageGroup)))
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
-> Int
-> Text
-> Text
-> POSIX
-> UserContext
-> ModelPackageGroupStatus
-> DescribeModelPackageGroupResponse
DescribeModelPackageGroupResponse'
            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
"ModelPackageGroupDescription")
            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))
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"ModelPackageGroupName")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"ModelPackageGroupArn")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"CreationTime")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"CreatedBy")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"ModelPackageGroupStatus")
      )

instance Prelude.Hashable DescribeModelPackageGroup where
  hashWithSalt :: Int -> DescribeModelPackageGroup -> Int
hashWithSalt Int
_salt DescribeModelPackageGroup' {Text
modelPackageGroupName :: Text
$sel:modelPackageGroupName:DescribeModelPackageGroup' :: DescribeModelPackageGroup -> Text
..} =
    Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
modelPackageGroupName

instance Prelude.NFData DescribeModelPackageGroup where
  rnf :: DescribeModelPackageGroup -> ()
rnf DescribeModelPackageGroup' {Text
modelPackageGroupName :: Text
$sel:modelPackageGroupName:DescribeModelPackageGroup' :: DescribeModelPackageGroup -> Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Text
modelPackageGroupName

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

instance Data.ToJSON DescribeModelPackageGroup where
  toJSON :: DescribeModelPackageGroup -> Value
toJSON DescribeModelPackageGroup' {Text
modelPackageGroupName :: Text
$sel:modelPackageGroupName:DescribeModelPackageGroup' :: DescribeModelPackageGroup -> Text
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ forall a. a -> Maybe a
Prelude.Just
              ( Key
"ModelPackageGroupName"
                  forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
modelPackageGroupName
              )
          ]
      )

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

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

-- | /See:/ 'newDescribeModelPackageGroupResponse' smart constructor.
data DescribeModelPackageGroupResponse = DescribeModelPackageGroupResponse'
  { -- | A description of the model group.
    DescribeModelPackageGroupResponse -> Maybe Text
modelPackageGroupDescription :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    DescribeModelPackageGroupResponse -> Int
httpStatus :: Prelude.Int,
    -- | The name of the model group.
    DescribeModelPackageGroupResponse -> Text
modelPackageGroupName :: Prelude.Text,
    -- | The Amazon Resource Name (ARN) of the model group.
    DescribeModelPackageGroupResponse -> Text
modelPackageGroupArn :: Prelude.Text,
    -- | The time that the model group was created.
    DescribeModelPackageGroupResponse -> POSIX
creationTime :: Data.POSIX,
    DescribeModelPackageGroupResponse -> UserContext
createdBy :: UserContext,
    -- | The status of the model group.
    DescribeModelPackageGroupResponse -> ModelPackageGroupStatus
modelPackageGroupStatus :: ModelPackageGroupStatus
  }
  deriving (DescribeModelPackageGroupResponse
-> DescribeModelPackageGroupResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeModelPackageGroupResponse
-> DescribeModelPackageGroupResponse -> Bool
$c/= :: DescribeModelPackageGroupResponse
-> DescribeModelPackageGroupResponse -> Bool
== :: DescribeModelPackageGroupResponse
-> DescribeModelPackageGroupResponse -> Bool
$c== :: DescribeModelPackageGroupResponse
-> DescribeModelPackageGroupResponse -> Bool
Prelude.Eq, ReadPrec [DescribeModelPackageGroupResponse]
ReadPrec DescribeModelPackageGroupResponse
Int -> ReadS DescribeModelPackageGroupResponse
ReadS [DescribeModelPackageGroupResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeModelPackageGroupResponse]
$creadListPrec :: ReadPrec [DescribeModelPackageGroupResponse]
readPrec :: ReadPrec DescribeModelPackageGroupResponse
$creadPrec :: ReadPrec DescribeModelPackageGroupResponse
readList :: ReadS [DescribeModelPackageGroupResponse]
$creadList :: ReadS [DescribeModelPackageGroupResponse]
readsPrec :: Int -> ReadS DescribeModelPackageGroupResponse
$creadsPrec :: Int -> ReadS DescribeModelPackageGroupResponse
Prelude.Read, Int -> DescribeModelPackageGroupResponse -> ShowS
[DescribeModelPackageGroupResponse] -> ShowS
DescribeModelPackageGroupResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeModelPackageGroupResponse] -> ShowS
$cshowList :: [DescribeModelPackageGroupResponse] -> ShowS
show :: DescribeModelPackageGroupResponse -> String
$cshow :: DescribeModelPackageGroupResponse -> String
showsPrec :: Int -> DescribeModelPackageGroupResponse -> ShowS
$cshowsPrec :: Int -> DescribeModelPackageGroupResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeModelPackageGroupResponse x
-> DescribeModelPackageGroupResponse
forall x.
DescribeModelPackageGroupResponse
-> Rep DescribeModelPackageGroupResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeModelPackageGroupResponse x
-> DescribeModelPackageGroupResponse
$cfrom :: forall x.
DescribeModelPackageGroupResponse
-> Rep DescribeModelPackageGroupResponse x
Prelude.Generic)

-- |
-- Create a value of 'DescribeModelPackageGroupResponse' 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:
--
-- 'modelPackageGroupDescription', 'describeModelPackageGroupResponse_modelPackageGroupDescription' - A description of the model group.
--
-- 'httpStatus', 'describeModelPackageGroupResponse_httpStatus' - The response's http status code.
--
-- 'modelPackageGroupName', 'describeModelPackageGroupResponse_modelPackageGroupName' - The name of the model group.
--
-- 'modelPackageGroupArn', 'describeModelPackageGroupResponse_modelPackageGroupArn' - The Amazon Resource Name (ARN) of the model group.
--
-- 'creationTime', 'describeModelPackageGroupResponse_creationTime' - The time that the model group was created.
--
-- 'createdBy', 'describeModelPackageGroupResponse_createdBy' - Undocumented member.
--
-- 'modelPackageGroupStatus', 'describeModelPackageGroupResponse_modelPackageGroupStatus' - The status of the model group.
newDescribeModelPackageGroupResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  -- | 'modelPackageGroupName'
  Prelude.Text ->
  -- | 'modelPackageGroupArn'
  Prelude.Text ->
  -- | 'creationTime'
  Prelude.UTCTime ->
  -- | 'createdBy'
  UserContext ->
  -- | 'modelPackageGroupStatus'
  ModelPackageGroupStatus ->
  DescribeModelPackageGroupResponse
newDescribeModelPackageGroupResponse :: Int
-> Text
-> Text
-> UTCTime
-> UserContext
-> ModelPackageGroupStatus
-> DescribeModelPackageGroupResponse
newDescribeModelPackageGroupResponse
  Int
pHttpStatus_
  Text
pModelPackageGroupName_
  Text
pModelPackageGroupArn_
  UTCTime
pCreationTime_
  UserContext
pCreatedBy_
  ModelPackageGroupStatus
pModelPackageGroupStatus_ =
    DescribeModelPackageGroupResponse'
      { $sel:modelPackageGroupDescription:DescribeModelPackageGroupResponse' :: Maybe Text
modelPackageGroupDescription =
          forall a. Maybe a
Prelude.Nothing,
        $sel:httpStatus:DescribeModelPackageGroupResponse' :: Int
httpStatus = Int
pHttpStatus_,
        $sel:modelPackageGroupName:DescribeModelPackageGroupResponse' :: Text
modelPackageGroupName =
          Text
pModelPackageGroupName_,
        $sel:modelPackageGroupArn:DescribeModelPackageGroupResponse' :: Text
modelPackageGroupArn =
          Text
pModelPackageGroupArn_,
        $sel:creationTime:DescribeModelPackageGroupResponse' :: POSIX
creationTime =
          forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pCreationTime_,
        $sel:createdBy:DescribeModelPackageGroupResponse' :: UserContext
createdBy = UserContext
pCreatedBy_,
        $sel:modelPackageGroupStatus:DescribeModelPackageGroupResponse' :: ModelPackageGroupStatus
modelPackageGroupStatus =
          ModelPackageGroupStatus
pModelPackageGroupStatus_
      }

-- | A description of the model group.
describeModelPackageGroupResponse_modelPackageGroupDescription :: Lens.Lens' DescribeModelPackageGroupResponse (Prelude.Maybe Prelude.Text)
describeModelPackageGroupResponse_modelPackageGroupDescription :: Lens' DescribeModelPackageGroupResponse (Maybe Text)
describeModelPackageGroupResponse_modelPackageGroupDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeModelPackageGroupResponse' {Maybe Text
modelPackageGroupDescription :: Maybe Text
$sel:modelPackageGroupDescription:DescribeModelPackageGroupResponse' :: DescribeModelPackageGroupResponse -> Maybe Text
modelPackageGroupDescription} -> Maybe Text
modelPackageGroupDescription) (\s :: DescribeModelPackageGroupResponse
s@DescribeModelPackageGroupResponse' {} Maybe Text
a -> DescribeModelPackageGroupResponse
s {$sel:modelPackageGroupDescription:DescribeModelPackageGroupResponse' :: Maybe Text
modelPackageGroupDescription = Maybe Text
a} :: DescribeModelPackageGroupResponse)

-- | The response's http status code.
describeModelPackageGroupResponse_httpStatus :: Lens.Lens' DescribeModelPackageGroupResponse Prelude.Int
describeModelPackageGroupResponse_httpStatus :: Lens' DescribeModelPackageGroupResponse Int
describeModelPackageGroupResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeModelPackageGroupResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeModelPackageGroupResponse' :: DescribeModelPackageGroupResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeModelPackageGroupResponse
s@DescribeModelPackageGroupResponse' {} Int
a -> DescribeModelPackageGroupResponse
s {$sel:httpStatus:DescribeModelPackageGroupResponse' :: Int
httpStatus = Int
a} :: DescribeModelPackageGroupResponse)

-- | The name of the model group.
describeModelPackageGroupResponse_modelPackageGroupName :: Lens.Lens' DescribeModelPackageGroupResponse Prelude.Text
describeModelPackageGroupResponse_modelPackageGroupName :: Lens' DescribeModelPackageGroupResponse Text
describeModelPackageGroupResponse_modelPackageGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeModelPackageGroupResponse' {Text
modelPackageGroupName :: Text
$sel:modelPackageGroupName:DescribeModelPackageGroupResponse' :: DescribeModelPackageGroupResponse -> Text
modelPackageGroupName} -> Text
modelPackageGroupName) (\s :: DescribeModelPackageGroupResponse
s@DescribeModelPackageGroupResponse' {} Text
a -> DescribeModelPackageGroupResponse
s {$sel:modelPackageGroupName:DescribeModelPackageGroupResponse' :: Text
modelPackageGroupName = Text
a} :: DescribeModelPackageGroupResponse)

-- | The Amazon Resource Name (ARN) of the model group.
describeModelPackageGroupResponse_modelPackageGroupArn :: Lens.Lens' DescribeModelPackageGroupResponse Prelude.Text
describeModelPackageGroupResponse_modelPackageGroupArn :: Lens' DescribeModelPackageGroupResponse Text
describeModelPackageGroupResponse_modelPackageGroupArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeModelPackageGroupResponse' {Text
modelPackageGroupArn :: Text
$sel:modelPackageGroupArn:DescribeModelPackageGroupResponse' :: DescribeModelPackageGroupResponse -> Text
modelPackageGroupArn} -> Text
modelPackageGroupArn) (\s :: DescribeModelPackageGroupResponse
s@DescribeModelPackageGroupResponse' {} Text
a -> DescribeModelPackageGroupResponse
s {$sel:modelPackageGroupArn:DescribeModelPackageGroupResponse' :: Text
modelPackageGroupArn = Text
a} :: DescribeModelPackageGroupResponse)

-- | The time that the model group was created.
describeModelPackageGroupResponse_creationTime :: Lens.Lens' DescribeModelPackageGroupResponse Prelude.UTCTime
describeModelPackageGroupResponse_creationTime :: Lens' DescribeModelPackageGroupResponse UTCTime
describeModelPackageGroupResponse_creationTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeModelPackageGroupResponse' {POSIX
creationTime :: POSIX
$sel:creationTime:DescribeModelPackageGroupResponse' :: DescribeModelPackageGroupResponse -> POSIX
creationTime} -> POSIX
creationTime) (\s :: DescribeModelPackageGroupResponse
s@DescribeModelPackageGroupResponse' {} POSIX
a -> DescribeModelPackageGroupResponse
s {$sel:creationTime:DescribeModelPackageGroupResponse' :: POSIX
creationTime = POSIX
a} :: DescribeModelPackageGroupResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time

-- | Undocumented member.
describeModelPackageGroupResponse_createdBy :: Lens.Lens' DescribeModelPackageGroupResponse UserContext
describeModelPackageGroupResponse_createdBy :: Lens' DescribeModelPackageGroupResponse UserContext
describeModelPackageGroupResponse_createdBy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeModelPackageGroupResponse' {UserContext
createdBy :: UserContext
$sel:createdBy:DescribeModelPackageGroupResponse' :: DescribeModelPackageGroupResponse -> UserContext
createdBy} -> UserContext
createdBy) (\s :: DescribeModelPackageGroupResponse
s@DescribeModelPackageGroupResponse' {} UserContext
a -> DescribeModelPackageGroupResponse
s {$sel:createdBy:DescribeModelPackageGroupResponse' :: UserContext
createdBy = UserContext
a} :: DescribeModelPackageGroupResponse)

-- | The status of the model group.
describeModelPackageGroupResponse_modelPackageGroupStatus :: Lens.Lens' DescribeModelPackageGroupResponse ModelPackageGroupStatus
describeModelPackageGroupResponse_modelPackageGroupStatus :: Lens' DescribeModelPackageGroupResponse ModelPackageGroupStatus
describeModelPackageGroupResponse_modelPackageGroupStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeModelPackageGroupResponse' {ModelPackageGroupStatus
modelPackageGroupStatus :: ModelPackageGroupStatus
$sel:modelPackageGroupStatus:DescribeModelPackageGroupResponse' :: DescribeModelPackageGroupResponse -> ModelPackageGroupStatus
modelPackageGroupStatus} -> ModelPackageGroupStatus
modelPackageGroupStatus) (\s :: DescribeModelPackageGroupResponse
s@DescribeModelPackageGroupResponse' {} ModelPackageGroupStatus
a -> DescribeModelPackageGroupResponse
s {$sel:modelPackageGroupStatus:DescribeModelPackageGroupResponse' :: ModelPackageGroupStatus
modelPackageGroupStatus = ModelPackageGroupStatus
a} :: DescribeModelPackageGroupResponse)

instance
  Prelude.NFData
    DescribeModelPackageGroupResponse
  where
  rnf :: DescribeModelPackageGroupResponse -> ()
rnf DescribeModelPackageGroupResponse' {Int
Maybe Text
Text
POSIX
ModelPackageGroupStatus
UserContext
modelPackageGroupStatus :: ModelPackageGroupStatus
createdBy :: UserContext
creationTime :: POSIX
modelPackageGroupArn :: Text
modelPackageGroupName :: Text
httpStatus :: Int
modelPackageGroupDescription :: Maybe Text
$sel:modelPackageGroupStatus:DescribeModelPackageGroupResponse' :: DescribeModelPackageGroupResponse -> ModelPackageGroupStatus
$sel:createdBy:DescribeModelPackageGroupResponse' :: DescribeModelPackageGroupResponse -> UserContext
$sel:creationTime:DescribeModelPackageGroupResponse' :: DescribeModelPackageGroupResponse -> POSIX
$sel:modelPackageGroupArn:DescribeModelPackageGroupResponse' :: DescribeModelPackageGroupResponse -> Text
$sel:modelPackageGroupName:DescribeModelPackageGroupResponse' :: DescribeModelPackageGroupResponse -> Text
$sel:httpStatus:DescribeModelPackageGroupResponse' :: DescribeModelPackageGroupResponse -> Int
$sel:modelPackageGroupDescription:DescribeModelPackageGroupResponse' :: DescribeModelPackageGroupResponse -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
modelPackageGroupDescription
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
modelPackageGroupName
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
modelPackageGroupArn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf POSIX
creationTime
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf UserContext
createdBy
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ModelPackageGroupStatus
modelPackageGroupStatus