{-# 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.CloudFormation.SetTypeDefaultVersion
-- 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)
--
-- Specify the default version of an extension. The default version of an
-- extension will be used in CloudFormation operations.
module Amazonka.CloudFormation.SetTypeDefaultVersion
  ( -- * Creating a Request
    SetTypeDefaultVersion (..),
    newSetTypeDefaultVersion,

    -- * Request Lenses
    setTypeDefaultVersion_versionId,
    setTypeDefaultVersion_typeName,
    setTypeDefaultVersion_arn,
    setTypeDefaultVersion_type,

    -- * Destructuring the Response
    SetTypeDefaultVersionResponse (..),
    newSetTypeDefaultVersionResponse,

    -- * Response Lenses
    setTypeDefaultVersionResponse_httpStatus,
  )
where

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

-- | /See:/ 'newSetTypeDefaultVersion' smart constructor.
data SetTypeDefaultVersion = SetTypeDefaultVersion'
  { -- | The ID of a specific version of the extension. The version ID is the
    -- value at the end of the Amazon Resource Name (ARN) assigned to the
    -- extension version when it is registered.
    SetTypeDefaultVersion -> Maybe Text
versionId :: Prelude.Maybe Prelude.Text,
    -- | The name of the extension.
    --
    -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@.
    SetTypeDefaultVersion -> Maybe Text
typeName :: Prelude.Maybe Prelude.Text,
    -- | The Amazon Resource Name (ARN) of the extension for which you want
    -- version summary information.
    --
    -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@.
    SetTypeDefaultVersion -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
    -- | The kind of extension.
    --
    -- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@.
    SetTypeDefaultVersion -> Maybe RegistryType
type' :: Prelude.Maybe RegistryType
  }
  deriving (SetTypeDefaultVersion -> SetTypeDefaultVersion -> Bool
(SetTypeDefaultVersion -> SetTypeDefaultVersion -> Bool)
-> (SetTypeDefaultVersion -> SetTypeDefaultVersion -> Bool)
-> Eq SetTypeDefaultVersion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SetTypeDefaultVersion -> SetTypeDefaultVersion -> Bool
$c/= :: SetTypeDefaultVersion -> SetTypeDefaultVersion -> Bool
== :: SetTypeDefaultVersion -> SetTypeDefaultVersion -> Bool
$c== :: SetTypeDefaultVersion -> SetTypeDefaultVersion -> Bool
Prelude.Eq, ReadPrec [SetTypeDefaultVersion]
ReadPrec SetTypeDefaultVersion
Int -> ReadS SetTypeDefaultVersion
ReadS [SetTypeDefaultVersion]
(Int -> ReadS SetTypeDefaultVersion)
-> ReadS [SetTypeDefaultVersion]
-> ReadPrec SetTypeDefaultVersion
-> ReadPrec [SetTypeDefaultVersion]
-> Read SetTypeDefaultVersion
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SetTypeDefaultVersion]
$creadListPrec :: ReadPrec [SetTypeDefaultVersion]
readPrec :: ReadPrec SetTypeDefaultVersion
$creadPrec :: ReadPrec SetTypeDefaultVersion
readList :: ReadS [SetTypeDefaultVersion]
$creadList :: ReadS [SetTypeDefaultVersion]
readsPrec :: Int -> ReadS SetTypeDefaultVersion
$creadsPrec :: Int -> ReadS SetTypeDefaultVersion
Prelude.Read, Int -> SetTypeDefaultVersion -> ShowS
[SetTypeDefaultVersion] -> ShowS
SetTypeDefaultVersion -> String
(Int -> SetTypeDefaultVersion -> ShowS)
-> (SetTypeDefaultVersion -> String)
-> ([SetTypeDefaultVersion] -> ShowS)
-> Show SetTypeDefaultVersion
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SetTypeDefaultVersion] -> ShowS
$cshowList :: [SetTypeDefaultVersion] -> ShowS
show :: SetTypeDefaultVersion -> String
$cshow :: SetTypeDefaultVersion -> String
showsPrec :: Int -> SetTypeDefaultVersion -> ShowS
$cshowsPrec :: Int -> SetTypeDefaultVersion -> ShowS
Prelude.Show, (forall x. SetTypeDefaultVersion -> Rep SetTypeDefaultVersion x)
-> (forall x. Rep SetTypeDefaultVersion x -> SetTypeDefaultVersion)
-> Generic SetTypeDefaultVersion
forall x. Rep SetTypeDefaultVersion x -> SetTypeDefaultVersion
forall x. SetTypeDefaultVersion -> Rep SetTypeDefaultVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SetTypeDefaultVersion x -> SetTypeDefaultVersion
$cfrom :: forall x. SetTypeDefaultVersion -> Rep SetTypeDefaultVersion x
Prelude.Generic)

-- |
-- Create a value of 'SetTypeDefaultVersion' 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:
--
-- 'versionId', 'setTypeDefaultVersion_versionId' - The ID of a specific version of the extension. The version ID is the
-- value at the end of the Amazon Resource Name (ARN) assigned to the
-- extension version when it is registered.
--
-- 'typeName', 'setTypeDefaultVersion_typeName' - The name of the extension.
--
-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@.
--
-- 'arn', 'setTypeDefaultVersion_arn' - The Amazon Resource Name (ARN) of the extension for which you want
-- version summary information.
--
-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@.
--
-- 'type'', 'setTypeDefaultVersion_type' - The kind of extension.
--
-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@.
newSetTypeDefaultVersion ::
  SetTypeDefaultVersion
newSetTypeDefaultVersion :: SetTypeDefaultVersion
newSetTypeDefaultVersion =
  SetTypeDefaultVersion' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe RegistryType
-> SetTypeDefaultVersion
SetTypeDefaultVersion'
    { $sel:versionId:SetTypeDefaultVersion' :: Maybe Text
versionId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:typeName:SetTypeDefaultVersion' :: Maybe Text
typeName = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:arn:SetTypeDefaultVersion' :: Maybe Text
arn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:type':SetTypeDefaultVersion' :: Maybe RegistryType
type' = Maybe RegistryType
forall a. Maybe a
Prelude.Nothing
    }

-- | The ID of a specific version of the extension. The version ID is the
-- value at the end of the Amazon Resource Name (ARN) assigned to the
-- extension version when it is registered.
setTypeDefaultVersion_versionId :: Lens.Lens' SetTypeDefaultVersion (Prelude.Maybe Prelude.Text)
setTypeDefaultVersion_versionId :: (Maybe Text -> f (Maybe Text))
-> SetTypeDefaultVersion -> f SetTypeDefaultVersion
setTypeDefaultVersion_versionId = (SetTypeDefaultVersion -> Maybe Text)
-> (SetTypeDefaultVersion -> Maybe Text -> SetTypeDefaultVersion)
-> Lens
     SetTypeDefaultVersion
     SetTypeDefaultVersion
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetTypeDefaultVersion' {Maybe Text
versionId :: Maybe Text
$sel:versionId:SetTypeDefaultVersion' :: SetTypeDefaultVersion -> Maybe Text
versionId} -> Maybe Text
versionId) (\s :: SetTypeDefaultVersion
s@SetTypeDefaultVersion' {} Maybe Text
a -> SetTypeDefaultVersion
s {$sel:versionId:SetTypeDefaultVersion' :: Maybe Text
versionId = Maybe Text
a} :: SetTypeDefaultVersion)

-- | The name of the extension.
--
-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@.
setTypeDefaultVersion_typeName :: Lens.Lens' SetTypeDefaultVersion (Prelude.Maybe Prelude.Text)
setTypeDefaultVersion_typeName :: (Maybe Text -> f (Maybe Text))
-> SetTypeDefaultVersion -> f SetTypeDefaultVersion
setTypeDefaultVersion_typeName = (SetTypeDefaultVersion -> Maybe Text)
-> (SetTypeDefaultVersion -> Maybe Text -> SetTypeDefaultVersion)
-> Lens
     SetTypeDefaultVersion
     SetTypeDefaultVersion
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetTypeDefaultVersion' {Maybe Text
typeName :: Maybe Text
$sel:typeName:SetTypeDefaultVersion' :: SetTypeDefaultVersion -> Maybe Text
typeName} -> Maybe Text
typeName) (\s :: SetTypeDefaultVersion
s@SetTypeDefaultVersion' {} Maybe Text
a -> SetTypeDefaultVersion
s {$sel:typeName:SetTypeDefaultVersion' :: Maybe Text
typeName = Maybe Text
a} :: SetTypeDefaultVersion)

-- | The Amazon Resource Name (ARN) of the extension for which you want
-- version summary information.
--
-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@.
setTypeDefaultVersion_arn :: Lens.Lens' SetTypeDefaultVersion (Prelude.Maybe Prelude.Text)
setTypeDefaultVersion_arn :: (Maybe Text -> f (Maybe Text))
-> SetTypeDefaultVersion -> f SetTypeDefaultVersion
setTypeDefaultVersion_arn = (SetTypeDefaultVersion -> Maybe Text)
-> (SetTypeDefaultVersion -> Maybe Text -> SetTypeDefaultVersion)
-> Lens
     SetTypeDefaultVersion
     SetTypeDefaultVersion
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetTypeDefaultVersion' {Maybe Text
arn :: Maybe Text
$sel:arn:SetTypeDefaultVersion' :: SetTypeDefaultVersion -> Maybe Text
arn} -> Maybe Text
arn) (\s :: SetTypeDefaultVersion
s@SetTypeDefaultVersion' {} Maybe Text
a -> SetTypeDefaultVersion
s {$sel:arn:SetTypeDefaultVersion' :: Maybe Text
arn = Maybe Text
a} :: SetTypeDefaultVersion)

-- | The kind of extension.
--
-- Conditional: You must specify either @TypeName@ and @Type@, or @Arn@.
setTypeDefaultVersion_type :: Lens.Lens' SetTypeDefaultVersion (Prelude.Maybe RegistryType)
setTypeDefaultVersion_type :: (Maybe RegistryType -> f (Maybe RegistryType))
-> SetTypeDefaultVersion -> f SetTypeDefaultVersion
setTypeDefaultVersion_type = (SetTypeDefaultVersion -> Maybe RegistryType)
-> (SetTypeDefaultVersion
    -> Maybe RegistryType -> SetTypeDefaultVersion)
-> Lens
     SetTypeDefaultVersion
     SetTypeDefaultVersion
     (Maybe RegistryType)
     (Maybe RegistryType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SetTypeDefaultVersion' {Maybe RegistryType
type' :: Maybe RegistryType
$sel:type':SetTypeDefaultVersion' :: SetTypeDefaultVersion -> Maybe RegistryType
type'} -> Maybe RegistryType
type') (\s :: SetTypeDefaultVersion
s@SetTypeDefaultVersion' {} Maybe RegistryType
a -> SetTypeDefaultVersion
s {$sel:type':SetTypeDefaultVersion' :: Maybe RegistryType
type' = Maybe RegistryType
a} :: SetTypeDefaultVersion)

instance Core.AWSRequest SetTypeDefaultVersion where
  type
    AWSResponse SetTypeDefaultVersion =
      SetTypeDefaultVersionResponse
  request :: SetTypeDefaultVersion -> Request SetTypeDefaultVersion
request = Service -> SetTypeDefaultVersion -> Request SetTypeDefaultVersion
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery Service
defaultService
  response :: Logger
-> Service
-> Proxy SetTypeDefaultVersion
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse SetTypeDefaultVersion)))
response =
    Text
-> (Int
    -> ResponseHeaders
    -> [Node]
    -> Either String (AWSResponse SetTypeDefaultVersion))
-> Logger
-> Service
-> Proxy SetTypeDefaultVersion
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse SetTypeDefaultVersion)))
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
    -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
      Text
"SetTypeDefaultVersionResult"
      ( \Int
s ResponseHeaders
h [Node]
x ->
          Int -> SetTypeDefaultVersionResponse
SetTypeDefaultVersionResponse'
            (Int -> SetTypeDefaultVersionResponse)
-> Either String Int -> Either String SetTypeDefaultVersionResponse
forall (f :: * -> *) a b. Functor 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 SetTypeDefaultVersion

instance Prelude.NFData SetTypeDefaultVersion

instance Core.ToHeaders SetTypeDefaultVersion where
  toHeaders :: SetTypeDefaultVersion -> ResponseHeaders
toHeaders = ResponseHeaders -> SetTypeDefaultVersion -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty

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

instance Core.ToQuery SetTypeDefaultVersion where
  toQuery :: SetTypeDefaultVersion -> QueryString
toQuery SetTypeDefaultVersion' {Maybe Text
Maybe RegistryType
type' :: Maybe RegistryType
arn :: Maybe Text
typeName :: Maybe Text
versionId :: Maybe Text
$sel:type':SetTypeDefaultVersion' :: SetTypeDefaultVersion -> Maybe RegistryType
$sel:arn:SetTypeDefaultVersion' :: SetTypeDefaultVersion -> Maybe Text
$sel:typeName:SetTypeDefaultVersion' :: SetTypeDefaultVersion -> Maybe Text
$sel:versionId:SetTypeDefaultVersion' :: SetTypeDefaultVersion -> Maybe Text
..} =
    [QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"Action"
          ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: (ByteString
"SetTypeDefaultVersion" :: Prelude.ByteString),
        ByteString
"Version"
          ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: (ByteString
"2010-05-15" :: Prelude.ByteString),
        ByteString
"VersionId" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Text
versionId,
        ByteString
"TypeName" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Text
typeName,
        ByteString
"Arn" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Text
arn,
        ByteString
"Type" ByteString -> Maybe RegistryType -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe RegistryType
type'
      ]

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

-- |
-- Create a value of 'SetTypeDefaultVersionResponse' 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:
--
-- 'httpStatus', 'setTypeDefaultVersionResponse_httpStatus' - The response's http status code.
newSetTypeDefaultVersionResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  SetTypeDefaultVersionResponse
newSetTypeDefaultVersionResponse :: Int -> SetTypeDefaultVersionResponse
newSetTypeDefaultVersionResponse Int
pHttpStatus_ =
  SetTypeDefaultVersionResponse' :: Int -> SetTypeDefaultVersionResponse
SetTypeDefaultVersionResponse'
    { $sel:httpStatus:SetTypeDefaultVersionResponse' :: Int
httpStatus =
        Int
pHttpStatus_
    }

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

instance Prelude.NFData SetTypeDefaultVersionResponse