{-# 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.Personalize.CreateSolutionVersion
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Trains or retrains an active solution. A solution is created using the
-- CreateSolution operation and must be in the ACTIVE state before calling
-- @CreateSolutionVersion@. A new version of the solution is created every
-- time you call this operation.
--
-- __Status__
--
-- A solution version can be in one of the following states:
--
-- -   CREATE PENDING
--
-- -   CREATE IN_PROGRESS
--
-- -   ACTIVE
--
-- -   CREATE FAILED
--
-- -   CREATE STOPPING
--
-- -   CREATE STOPPED
--
-- To get the status of the version, call DescribeSolutionVersion. Wait
-- until the status shows as ACTIVE before calling @CreateCampaign@.
--
-- If the status shows as CREATE FAILED, the response includes a
-- @failureReason@ key, which describes why the job failed.
--
-- __Related APIs__
--
-- -   ListSolutionVersions
--
-- -   DescribeSolutionVersion
--
-- -   ListSolutions
--
-- -   CreateSolution
--
-- -   DescribeSolution
--
-- -   DeleteSolution
module Amazonka.Personalize.CreateSolutionVersion
  ( -- * Creating a Request
    CreateSolutionVersion (..),
    newCreateSolutionVersion,

    -- * Request Lenses
    createSolutionVersion_trainingMode,
    createSolutionVersion_solutionArn,

    -- * Destructuring the Response
    CreateSolutionVersionResponse (..),
    newCreateSolutionVersionResponse,

    -- * Response Lenses
    createSolutionVersionResponse_solutionVersionArn,
    createSolutionVersionResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import Amazonka.Personalize.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newCreateSolutionVersion' smart constructor.
data CreateSolutionVersion = CreateSolutionVersion'
  { -- | The scope of training to be performed when creating the solution
    -- version. The @FULL@ option trains the solution version based on the
    -- entirety of the input solution\'s training data, while the @UPDATE@
    -- option processes only the data that has changed in comparison to the
    -- input solution. Choose @UPDATE@ when you want to incrementally update
    -- your solution version instead of creating an entirely new one.
    --
    -- The @UPDATE@ option can only be used when you already have an active
    -- solution version created from the input solution using the @FULL@ option
    -- and the input solution was trained with the
    -- <https://docs.aws.amazon.com/personalize/latest/dg/native-recipe-new-item-USER_PERSONALIZATION.html User-Personalization>
    -- recipe or the
    -- <https://docs.aws.amazon.com/personalize/latest/dg/native-recipe-hrnn-coldstart.html HRNN-Coldstart>
    -- recipe.
    CreateSolutionVersion -> Maybe TrainingMode
trainingMode :: Prelude.Maybe TrainingMode,
    -- | The Amazon Resource Name (ARN) of the solution containing the training
    -- configuration information.
    CreateSolutionVersion -> Text
solutionArn :: Prelude.Text
  }
  deriving (CreateSolutionVersion -> CreateSolutionVersion -> Bool
(CreateSolutionVersion -> CreateSolutionVersion -> Bool)
-> (CreateSolutionVersion -> CreateSolutionVersion -> Bool)
-> Eq CreateSolutionVersion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateSolutionVersion -> CreateSolutionVersion -> Bool
$c/= :: CreateSolutionVersion -> CreateSolutionVersion -> Bool
== :: CreateSolutionVersion -> CreateSolutionVersion -> Bool
$c== :: CreateSolutionVersion -> CreateSolutionVersion -> Bool
Prelude.Eq, ReadPrec [CreateSolutionVersion]
ReadPrec CreateSolutionVersion
Int -> ReadS CreateSolutionVersion
ReadS [CreateSolutionVersion]
(Int -> ReadS CreateSolutionVersion)
-> ReadS [CreateSolutionVersion]
-> ReadPrec CreateSolutionVersion
-> ReadPrec [CreateSolutionVersion]
-> Read CreateSolutionVersion
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateSolutionVersion]
$creadListPrec :: ReadPrec [CreateSolutionVersion]
readPrec :: ReadPrec CreateSolutionVersion
$creadPrec :: ReadPrec CreateSolutionVersion
readList :: ReadS [CreateSolutionVersion]
$creadList :: ReadS [CreateSolutionVersion]
readsPrec :: Int -> ReadS CreateSolutionVersion
$creadsPrec :: Int -> ReadS CreateSolutionVersion
Prelude.Read, Int -> CreateSolutionVersion -> ShowS
[CreateSolutionVersion] -> ShowS
CreateSolutionVersion -> String
(Int -> CreateSolutionVersion -> ShowS)
-> (CreateSolutionVersion -> String)
-> ([CreateSolutionVersion] -> ShowS)
-> Show CreateSolutionVersion
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateSolutionVersion] -> ShowS
$cshowList :: [CreateSolutionVersion] -> ShowS
show :: CreateSolutionVersion -> String
$cshow :: CreateSolutionVersion -> String
showsPrec :: Int -> CreateSolutionVersion -> ShowS
$cshowsPrec :: Int -> CreateSolutionVersion -> ShowS
Prelude.Show, (forall x. CreateSolutionVersion -> Rep CreateSolutionVersion x)
-> (forall x. Rep CreateSolutionVersion x -> CreateSolutionVersion)
-> Generic CreateSolutionVersion
forall x. Rep CreateSolutionVersion x -> CreateSolutionVersion
forall x. CreateSolutionVersion -> Rep CreateSolutionVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateSolutionVersion x -> CreateSolutionVersion
$cfrom :: forall x. CreateSolutionVersion -> Rep CreateSolutionVersion x
Prelude.Generic)

-- |
-- Create a value of 'CreateSolutionVersion' 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:
--
-- 'trainingMode', 'createSolutionVersion_trainingMode' - The scope of training to be performed when creating the solution
-- version. The @FULL@ option trains the solution version based on the
-- entirety of the input solution\'s training data, while the @UPDATE@
-- option processes only the data that has changed in comparison to the
-- input solution. Choose @UPDATE@ when you want to incrementally update
-- your solution version instead of creating an entirely new one.
--
-- The @UPDATE@ option can only be used when you already have an active
-- solution version created from the input solution using the @FULL@ option
-- and the input solution was trained with the
-- <https://docs.aws.amazon.com/personalize/latest/dg/native-recipe-new-item-USER_PERSONALIZATION.html User-Personalization>
-- recipe or the
-- <https://docs.aws.amazon.com/personalize/latest/dg/native-recipe-hrnn-coldstart.html HRNN-Coldstart>
-- recipe.
--
-- 'solutionArn', 'createSolutionVersion_solutionArn' - The Amazon Resource Name (ARN) of the solution containing the training
-- configuration information.
newCreateSolutionVersion ::
  -- | 'solutionArn'
  Prelude.Text ->
  CreateSolutionVersion
newCreateSolutionVersion :: Text -> CreateSolutionVersion
newCreateSolutionVersion Text
pSolutionArn_ =
  CreateSolutionVersion' :: Maybe TrainingMode -> Text -> CreateSolutionVersion
CreateSolutionVersion'
    { $sel:trainingMode:CreateSolutionVersion' :: Maybe TrainingMode
trainingMode =
        Maybe TrainingMode
forall a. Maybe a
Prelude.Nothing,
      $sel:solutionArn:CreateSolutionVersion' :: Text
solutionArn = Text
pSolutionArn_
    }

-- | The scope of training to be performed when creating the solution
-- version. The @FULL@ option trains the solution version based on the
-- entirety of the input solution\'s training data, while the @UPDATE@
-- option processes only the data that has changed in comparison to the
-- input solution. Choose @UPDATE@ when you want to incrementally update
-- your solution version instead of creating an entirely new one.
--
-- The @UPDATE@ option can only be used when you already have an active
-- solution version created from the input solution using the @FULL@ option
-- and the input solution was trained with the
-- <https://docs.aws.amazon.com/personalize/latest/dg/native-recipe-new-item-USER_PERSONALIZATION.html User-Personalization>
-- recipe or the
-- <https://docs.aws.amazon.com/personalize/latest/dg/native-recipe-hrnn-coldstart.html HRNN-Coldstart>
-- recipe.
createSolutionVersion_trainingMode :: Lens.Lens' CreateSolutionVersion (Prelude.Maybe TrainingMode)
createSolutionVersion_trainingMode :: (Maybe TrainingMode -> f (Maybe TrainingMode))
-> CreateSolutionVersion -> f CreateSolutionVersion
createSolutionVersion_trainingMode = (CreateSolutionVersion -> Maybe TrainingMode)
-> (CreateSolutionVersion
    -> Maybe TrainingMode -> CreateSolutionVersion)
-> Lens
     CreateSolutionVersion
     CreateSolutionVersion
     (Maybe TrainingMode)
     (Maybe TrainingMode)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSolutionVersion' {Maybe TrainingMode
trainingMode :: Maybe TrainingMode
$sel:trainingMode:CreateSolutionVersion' :: CreateSolutionVersion -> Maybe TrainingMode
trainingMode} -> Maybe TrainingMode
trainingMode) (\s :: CreateSolutionVersion
s@CreateSolutionVersion' {} Maybe TrainingMode
a -> CreateSolutionVersion
s {$sel:trainingMode:CreateSolutionVersion' :: Maybe TrainingMode
trainingMode = Maybe TrainingMode
a} :: CreateSolutionVersion)

-- | The Amazon Resource Name (ARN) of the solution containing the training
-- configuration information.
createSolutionVersion_solutionArn :: Lens.Lens' CreateSolutionVersion Prelude.Text
createSolutionVersion_solutionArn :: (Text -> f Text)
-> CreateSolutionVersion -> f CreateSolutionVersion
createSolutionVersion_solutionArn = (CreateSolutionVersion -> Text)
-> (CreateSolutionVersion -> Text -> CreateSolutionVersion)
-> Lens CreateSolutionVersion CreateSolutionVersion Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSolutionVersion' {Text
solutionArn :: Text
$sel:solutionArn:CreateSolutionVersion' :: CreateSolutionVersion -> Text
solutionArn} -> Text
solutionArn) (\s :: CreateSolutionVersion
s@CreateSolutionVersion' {} Text
a -> CreateSolutionVersion
s {$sel:solutionArn:CreateSolutionVersion' :: Text
solutionArn = Text
a} :: CreateSolutionVersion)

instance Core.AWSRequest CreateSolutionVersion where
  type
    AWSResponse CreateSolutionVersion =
      CreateSolutionVersionResponse
  request :: CreateSolutionVersion -> Request CreateSolutionVersion
request = Service -> CreateSolutionVersion -> Request CreateSolutionVersion
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
  response :: Logger
-> Service
-> Proxy CreateSolutionVersion
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse CreateSolutionVersion)))
response =
    (Int
 -> ResponseHeaders
 -> Object
 -> Either String (AWSResponse CreateSolutionVersion))
-> Logger
-> Service
-> Proxy CreateSolutionVersion
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse CreateSolutionVersion)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
      ( \Int
s ResponseHeaders
h Object
x ->
          Maybe Text -> Int -> CreateSolutionVersionResponse
CreateSolutionVersionResponse'
            (Maybe Text -> Int -> CreateSolutionVersionResponse)
-> Either String (Maybe Text)
-> Either String (Int -> CreateSolutionVersionResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"solutionVersionArn")
            Either String (Int -> CreateSolutionVersionResponse)
-> Either String Int -> Either String CreateSolutionVersionResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable CreateSolutionVersion

instance Prelude.NFData CreateSolutionVersion

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

instance Core.ToJSON CreateSolutionVersion where
  toJSON :: CreateSolutionVersion -> Value
toJSON CreateSolutionVersion' {Maybe TrainingMode
Text
solutionArn :: Text
trainingMode :: Maybe TrainingMode
$sel:solutionArn:CreateSolutionVersion' :: CreateSolutionVersion -> Text
$sel:trainingMode:CreateSolutionVersion' :: CreateSolutionVersion -> Maybe TrainingMode
..} =
    [Pair] -> Value
Core.object
      ( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Text
"trainingMode" Text -> TrainingMode -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (TrainingMode -> Pair) -> Maybe TrainingMode -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe TrainingMode
trainingMode,
            Pair -> Maybe Pair
forall a. a -> Maybe a
Prelude.Just (Text
"solutionArn" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..= Text
solutionArn)
          ]
      )

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

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

-- | /See:/ 'newCreateSolutionVersionResponse' smart constructor.
data CreateSolutionVersionResponse = CreateSolutionVersionResponse'
  { -- | The ARN of the new solution version.
    CreateSolutionVersionResponse -> Maybe Text
solutionVersionArn :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    CreateSolutionVersionResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (CreateSolutionVersionResponse
-> CreateSolutionVersionResponse -> Bool
(CreateSolutionVersionResponse
 -> CreateSolutionVersionResponse -> Bool)
-> (CreateSolutionVersionResponse
    -> CreateSolutionVersionResponse -> Bool)
-> Eq CreateSolutionVersionResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateSolutionVersionResponse
-> CreateSolutionVersionResponse -> Bool
$c/= :: CreateSolutionVersionResponse
-> CreateSolutionVersionResponse -> Bool
== :: CreateSolutionVersionResponse
-> CreateSolutionVersionResponse -> Bool
$c== :: CreateSolutionVersionResponse
-> CreateSolutionVersionResponse -> Bool
Prelude.Eq, ReadPrec [CreateSolutionVersionResponse]
ReadPrec CreateSolutionVersionResponse
Int -> ReadS CreateSolutionVersionResponse
ReadS [CreateSolutionVersionResponse]
(Int -> ReadS CreateSolutionVersionResponse)
-> ReadS [CreateSolutionVersionResponse]
-> ReadPrec CreateSolutionVersionResponse
-> ReadPrec [CreateSolutionVersionResponse]
-> Read CreateSolutionVersionResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateSolutionVersionResponse]
$creadListPrec :: ReadPrec [CreateSolutionVersionResponse]
readPrec :: ReadPrec CreateSolutionVersionResponse
$creadPrec :: ReadPrec CreateSolutionVersionResponse
readList :: ReadS [CreateSolutionVersionResponse]
$creadList :: ReadS [CreateSolutionVersionResponse]
readsPrec :: Int -> ReadS CreateSolutionVersionResponse
$creadsPrec :: Int -> ReadS CreateSolutionVersionResponse
Prelude.Read, Int -> CreateSolutionVersionResponse -> ShowS
[CreateSolutionVersionResponse] -> ShowS
CreateSolutionVersionResponse -> String
(Int -> CreateSolutionVersionResponse -> ShowS)
-> (CreateSolutionVersionResponse -> String)
-> ([CreateSolutionVersionResponse] -> ShowS)
-> Show CreateSolutionVersionResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateSolutionVersionResponse] -> ShowS
$cshowList :: [CreateSolutionVersionResponse] -> ShowS
show :: CreateSolutionVersionResponse -> String
$cshow :: CreateSolutionVersionResponse -> String
showsPrec :: Int -> CreateSolutionVersionResponse -> ShowS
$cshowsPrec :: Int -> CreateSolutionVersionResponse -> ShowS
Prelude.Show, (forall x.
 CreateSolutionVersionResponse
 -> Rep CreateSolutionVersionResponse x)
-> (forall x.
    Rep CreateSolutionVersionResponse x
    -> CreateSolutionVersionResponse)
-> Generic CreateSolutionVersionResponse
forall x.
Rep CreateSolutionVersionResponse x
-> CreateSolutionVersionResponse
forall x.
CreateSolutionVersionResponse
-> Rep CreateSolutionVersionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateSolutionVersionResponse x
-> CreateSolutionVersionResponse
$cfrom :: forall x.
CreateSolutionVersionResponse
-> Rep CreateSolutionVersionResponse x
Prelude.Generic)

-- |
-- Create a value of 'CreateSolutionVersionResponse' 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:
--
-- 'solutionVersionArn', 'createSolutionVersionResponse_solutionVersionArn' - The ARN of the new solution version.
--
-- 'httpStatus', 'createSolutionVersionResponse_httpStatus' - The response's http status code.
newCreateSolutionVersionResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  CreateSolutionVersionResponse
newCreateSolutionVersionResponse :: Int -> CreateSolutionVersionResponse
newCreateSolutionVersionResponse Int
pHttpStatus_ =
  CreateSolutionVersionResponse' :: Maybe Text -> Int -> CreateSolutionVersionResponse
CreateSolutionVersionResponse'
    { $sel:solutionVersionArn:CreateSolutionVersionResponse' :: Maybe Text
solutionVersionArn =
        Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:CreateSolutionVersionResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The ARN of the new solution version.
createSolutionVersionResponse_solutionVersionArn :: Lens.Lens' CreateSolutionVersionResponse (Prelude.Maybe Prelude.Text)
createSolutionVersionResponse_solutionVersionArn :: (Maybe Text -> f (Maybe Text))
-> CreateSolutionVersionResponse -> f CreateSolutionVersionResponse
createSolutionVersionResponse_solutionVersionArn = (CreateSolutionVersionResponse -> Maybe Text)
-> (CreateSolutionVersionResponse
    -> Maybe Text -> CreateSolutionVersionResponse)
-> Lens
     CreateSolutionVersionResponse
     CreateSolutionVersionResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateSolutionVersionResponse' {Maybe Text
solutionVersionArn :: Maybe Text
$sel:solutionVersionArn:CreateSolutionVersionResponse' :: CreateSolutionVersionResponse -> Maybe Text
solutionVersionArn} -> Maybe Text
solutionVersionArn) (\s :: CreateSolutionVersionResponse
s@CreateSolutionVersionResponse' {} Maybe Text
a -> CreateSolutionVersionResponse
s {$sel:solutionVersionArn:CreateSolutionVersionResponse' :: Maybe Text
solutionVersionArn = Maybe Text
a} :: CreateSolutionVersionResponse)

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

instance Prelude.NFData CreateSolutionVersionResponse