{-# 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.Proton.CreateTemplateSyncConfig
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Set up a template to create new template versions automatically by
-- tracking a linked repository. A linked repository is a repository that
-- has been registered with Proton. For more information, see
-- CreateRepository.
--
-- When a commit is pushed to your linked repository, Proton checks for
-- changes to your repository template bundles. If it detects a template
-- bundle change, a new major or minor version of its template is created,
-- if the version doesn’t already exist. For more information, see
-- <https://docs.aws.amazon.com/proton/latest/userguide/ag-template-sync-configs.html Template sync configurations>
-- in the /Proton User Guide/.
module Amazonka.Proton.CreateTemplateSyncConfig
  ( -- * Creating a Request
    CreateTemplateSyncConfig (..),
    newCreateTemplateSyncConfig,

    -- * Request Lenses
    createTemplateSyncConfig_subdirectory,
    createTemplateSyncConfig_branch,
    createTemplateSyncConfig_repositoryName,
    createTemplateSyncConfig_repositoryProvider,
    createTemplateSyncConfig_templateName,
    createTemplateSyncConfig_templateType,

    -- * Destructuring the Response
    CreateTemplateSyncConfigResponse (..),
    newCreateTemplateSyncConfigResponse,

    -- * Response Lenses
    createTemplateSyncConfigResponse_templateSyncConfig,
    createTemplateSyncConfigResponse_httpStatus,
  )
where

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

-- | /See:/ 'newCreateTemplateSyncConfig' smart constructor.
data CreateTemplateSyncConfig = CreateTemplateSyncConfig'
  { -- | A repository subdirectory path to your template bundle directory. When
    -- included, Proton limits the template bundle search to this repository
    -- directory.
    CreateTemplateSyncConfig -> Maybe Text
subdirectory :: Prelude.Maybe Prelude.Text,
    -- | The repository branch for your template.
    CreateTemplateSyncConfig -> Text
branch :: Prelude.Text,
    -- | The repository name (for example, @myrepos\/myrepo@).
    CreateTemplateSyncConfig -> Text
repositoryName :: Prelude.Text,
    -- | The provider type for your repository.
    CreateTemplateSyncConfig -> RepositoryProvider
repositoryProvider :: RepositoryProvider,
    -- | The name of your registered template.
    CreateTemplateSyncConfig -> Text
templateName :: Prelude.Text,
    -- | The type of the registered template.
    CreateTemplateSyncConfig -> TemplateType
templateType :: TemplateType
  }
  deriving (CreateTemplateSyncConfig -> CreateTemplateSyncConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTemplateSyncConfig -> CreateTemplateSyncConfig -> Bool
$c/= :: CreateTemplateSyncConfig -> CreateTemplateSyncConfig -> Bool
== :: CreateTemplateSyncConfig -> CreateTemplateSyncConfig -> Bool
$c== :: CreateTemplateSyncConfig -> CreateTemplateSyncConfig -> Bool
Prelude.Eq, ReadPrec [CreateTemplateSyncConfig]
ReadPrec CreateTemplateSyncConfig
Int -> ReadS CreateTemplateSyncConfig
ReadS [CreateTemplateSyncConfig]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTemplateSyncConfig]
$creadListPrec :: ReadPrec [CreateTemplateSyncConfig]
readPrec :: ReadPrec CreateTemplateSyncConfig
$creadPrec :: ReadPrec CreateTemplateSyncConfig
readList :: ReadS [CreateTemplateSyncConfig]
$creadList :: ReadS [CreateTemplateSyncConfig]
readsPrec :: Int -> ReadS CreateTemplateSyncConfig
$creadsPrec :: Int -> ReadS CreateTemplateSyncConfig
Prelude.Read, Int -> CreateTemplateSyncConfig -> ShowS
[CreateTemplateSyncConfig] -> ShowS
CreateTemplateSyncConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTemplateSyncConfig] -> ShowS
$cshowList :: [CreateTemplateSyncConfig] -> ShowS
show :: CreateTemplateSyncConfig -> String
$cshow :: CreateTemplateSyncConfig -> String
showsPrec :: Int -> CreateTemplateSyncConfig -> ShowS
$cshowsPrec :: Int -> CreateTemplateSyncConfig -> ShowS
Prelude.Show, forall x.
Rep CreateTemplateSyncConfig x -> CreateTemplateSyncConfig
forall x.
CreateTemplateSyncConfig -> Rep CreateTemplateSyncConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateTemplateSyncConfig x -> CreateTemplateSyncConfig
$cfrom :: forall x.
CreateTemplateSyncConfig -> Rep CreateTemplateSyncConfig x
Prelude.Generic)

-- |
-- Create a value of 'CreateTemplateSyncConfig' 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:
--
-- 'subdirectory', 'createTemplateSyncConfig_subdirectory' - A repository subdirectory path to your template bundle directory. When
-- included, Proton limits the template bundle search to this repository
-- directory.
--
-- 'branch', 'createTemplateSyncConfig_branch' - The repository branch for your template.
--
-- 'repositoryName', 'createTemplateSyncConfig_repositoryName' - The repository name (for example, @myrepos\/myrepo@).
--
-- 'repositoryProvider', 'createTemplateSyncConfig_repositoryProvider' - The provider type for your repository.
--
-- 'templateName', 'createTemplateSyncConfig_templateName' - The name of your registered template.
--
-- 'templateType', 'createTemplateSyncConfig_templateType' - The type of the registered template.
newCreateTemplateSyncConfig ::
  -- | 'branch'
  Prelude.Text ->
  -- | 'repositoryName'
  Prelude.Text ->
  -- | 'repositoryProvider'
  RepositoryProvider ->
  -- | 'templateName'
  Prelude.Text ->
  -- | 'templateType'
  TemplateType ->
  CreateTemplateSyncConfig
newCreateTemplateSyncConfig :: Text
-> Text
-> RepositoryProvider
-> Text
-> TemplateType
-> CreateTemplateSyncConfig
newCreateTemplateSyncConfig
  Text
pBranch_
  Text
pRepositoryName_
  RepositoryProvider
pRepositoryProvider_
  Text
pTemplateName_
  TemplateType
pTemplateType_ =
    CreateTemplateSyncConfig'
      { $sel:subdirectory:CreateTemplateSyncConfig' :: Maybe Text
subdirectory =
          forall a. Maybe a
Prelude.Nothing,
        $sel:branch:CreateTemplateSyncConfig' :: Text
branch = Text
pBranch_,
        $sel:repositoryName:CreateTemplateSyncConfig' :: Text
repositoryName = Text
pRepositoryName_,
        $sel:repositoryProvider:CreateTemplateSyncConfig' :: RepositoryProvider
repositoryProvider = RepositoryProvider
pRepositoryProvider_,
        $sel:templateName:CreateTemplateSyncConfig' :: Text
templateName = Text
pTemplateName_,
        $sel:templateType:CreateTemplateSyncConfig' :: TemplateType
templateType = TemplateType
pTemplateType_
      }

-- | A repository subdirectory path to your template bundle directory. When
-- included, Proton limits the template bundle search to this repository
-- directory.
createTemplateSyncConfig_subdirectory :: Lens.Lens' CreateTemplateSyncConfig (Prelude.Maybe Prelude.Text)
createTemplateSyncConfig_subdirectory :: Lens' CreateTemplateSyncConfig (Maybe Text)
createTemplateSyncConfig_subdirectory = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTemplateSyncConfig' {Maybe Text
subdirectory :: Maybe Text
$sel:subdirectory:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Maybe Text
subdirectory} -> Maybe Text
subdirectory) (\s :: CreateTemplateSyncConfig
s@CreateTemplateSyncConfig' {} Maybe Text
a -> CreateTemplateSyncConfig
s {$sel:subdirectory:CreateTemplateSyncConfig' :: Maybe Text
subdirectory = Maybe Text
a} :: CreateTemplateSyncConfig)

-- | The repository branch for your template.
createTemplateSyncConfig_branch :: Lens.Lens' CreateTemplateSyncConfig Prelude.Text
createTemplateSyncConfig_branch :: Lens' CreateTemplateSyncConfig Text
createTemplateSyncConfig_branch = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTemplateSyncConfig' {Text
branch :: Text
$sel:branch:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Text
branch} -> Text
branch) (\s :: CreateTemplateSyncConfig
s@CreateTemplateSyncConfig' {} Text
a -> CreateTemplateSyncConfig
s {$sel:branch:CreateTemplateSyncConfig' :: Text
branch = Text
a} :: CreateTemplateSyncConfig)

-- | The repository name (for example, @myrepos\/myrepo@).
createTemplateSyncConfig_repositoryName :: Lens.Lens' CreateTemplateSyncConfig Prelude.Text
createTemplateSyncConfig_repositoryName :: Lens' CreateTemplateSyncConfig Text
createTemplateSyncConfig_repositoryName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTemplateSyncConfig' {Text
repositoryName :: Text
$sel:repositoryName:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Text
repositoryName} -> Text
repositoryName) (\s :: CreateTemplateSyncConfig
s@CreateTemplateSyncConfig' {} Text
a -> CreateTemplateSyncConfig
s {$sel:repositoryName:CreateTemplateSyncConfig' :: Text
repositoryName = Text
a} :: CreateTemplateSyncConfig)

-- | The provider type for your repository.
createTemplateSyncConfig_repositoryProvider :: Lens.Lens' CreateTemplateSyncConfig RepositoryProvider
createTemplateSyncConfig_repositoryProvider :: Lens' CreateTemplateSyncConfig RepositoryProvider
createTemplateSyncConfig_repositoryProvider = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTemplateSyncConfig' {RepositoryProvider
repositoryProvider :: RepositoryProvider
$sel:repositoryProvider:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> RepositoryProvider
repositoryProvider} -> RepositoryProvider
repositoryProvider) (\s :: CreateTemplateSyncConfig
s@CreateTemplateSyncConfig' {} RepositoryProvider
a -> CreateTemplateSyncConfig
s {$sel:repositoryProvider:CreateTemplateSyncConfig' :: RepositoryProvider
repositoryProvider = RepositoryProvider
a} :: CreateTemplateSyncConfig)

-- | The name of your registered template.
createTemplateSyncConfig_templateName :: Lens.Lens' CreateTemplateSyncConfig Prelude.Text
createTemplateSyncConfig_templateName :: Lens' CreateTemplateSyncConfig Text
createTemplateSyncConfig_templateName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTemplateSyncConfig' {Text
templateName :: Text
$sel:templateName:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Text
templateName} -> Text
templateName) (\s :: CreateTemplateSyncConfig
s@CreateTemplateSyncConfig' {} Text
a -> CreateTemplateSyncConfig
s {$sel:templateName:CreateTemplateSyncConfig' :: Text
templateName = Text
a} :: CreateTemplateSyncConfig)

-- | The type of the registered template.
createTemplateSyncConfig_templateType :: Lens.Lens' CreateTemplateSyncConfig TemplateType
createTemplateSyncConfig_templateType :: Lens' CreateTemplateSyncConfig TemplateType
createTemplateSyncConfig_templateType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTemplateSyncConfig' {TemplateType
templateType :: TemplateType
$sel:templateType:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> TemplateType
templateType} -> TemplateType
templateType) (\s :: CreateTemplateSyncConfig
s@CreateTemplateSyncConfig' {} TemplateType
a -> CreateTemplateSyncConfig
s {$sel:templateType:CreateTemplateSyncConfig' :: TemplateType
templateType = TemplateType
a} :: CreateTemplateSyncConfig)

instance Core.AWSRequest CreateTemplateSyncConfig where
  type
    AWSResponse CreateTemplateSyncConfig =
      CreateTemplateSyncConfigResponse
  request :: (Service -> Service)
-> CreateTemplateSyncConfig -> Request CreateTemplateSyncConfig
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 CreateTemplateSyncConfig
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse CreateTemplateSyncConfig)))
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 TemplateSyncConfig -> Int -> CreateTemplateSyncConfigResponse
CreateTemplateSyncConfigResponse'
            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
"templateSyncConfig")
            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 CreateTemplateSyncConfig where
  hashWithSalt :: Int -> CreateTemplateSyncConfig -> Int
hashWithSalt Int
_salt CreateTemplateSyncConfig' {Maybe Text
Text
RepositoryProvider
TemplateType
templateType :: TemplateType
templateName :: Text
repositoryProvider :: RepositoryProvider
repositoryName :: Text
branch :: Text
subdirectory :: Maybe Text
$sel:templateType:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> TemplateType
$sel:templateName:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Text
$sel:repositoryProvider:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> RepositoryProvider
$sel:repositoryName:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Text
$sel:branch:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Text
$sel:subdirectory:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Maybe Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
subdirectory
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
branch
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
repositoryName
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` RepositoryProvider
repositoryProvider
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
templateName
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` TemplateType
templateType

instance Prelude.NFData CreateTemplateSyncConfig where
  rnf :: CreateTemplateSyncConfig -> ()
rnf CreateTemplateSyncConfig' {Maybe Text
Text
RepositoryProvider
TemplateType
templateType :: TemplateType
templateName :: Text
repositoryProvider :: RepositoryProvider
repositoryName :: Text
branch :: Text
subdirectory :: Maybe Text
$sel:templateType:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> TemplateType
$sel:templateName:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Text
$sel:repositoryProvider:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> RepositoryProvider
$sel:repositoryName:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Text
$sel:branch:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Text
$sel:subdirectory:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
subdirectory
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
branch
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
repositoryName
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf RepositoryProvider
repositoryProvider
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
templateName
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf TemplateType
templateType

instance Data.ToHeaders CreateTemplateSyncConfig where
  toHeaders :: CreateTemplateSyncConfig -> 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
"AwsProton20200720.CreateTemplateSyncConfig" ::
                          Prelude.ByteString
                      ),
            HeaderName
"Content-Type"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON CreateTemplateSyncConfig where
  toJSON :: CreateTemplateSyncConfig -> Value
toJSON CreateTemplateSyncConfig' {Maybe Text
Text
RepositoryProvider
TemplateType
templateType :: TemplateType
templateName :: Text
repositoryProvider :: RepositoryProvider
repositoryName :: Text
branch :: Text
subdirectory :: Maybe Text
$sel:templateType:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> TemplateType
$sel:templateName:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Text
$sel:repositoryProvider:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> RepositoryProvider
$sel:repositoryName:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Text
$sel:branch:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Text
$sel:subdirectory:CreateTemplateSyncConfig' :: CreateTemplateSyncConfig -> Maybe Text
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"subdirectory" 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
subdirectory,
            forall a. a -> Maybe a
Prelude.Just (Key
"branch" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
branch),
            forall a. a -> Maybe a
Prelude.Just
              (Key
"repositoryName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
repositoryName),
            forall a. a -> Maybe a
Prelude.Just
              (Key
"repositoryProvider" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= RepositoryProvider
repositoryProvider),
            forall a. a -> Maybe a
Prelude.Just (Key
"templateName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
templateName),
            forall a. a -> Maybe a
Prelude.Just (Key
"templateType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= TemplateType
templateType)
          ]
      )

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

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

-- | /See:/ 'newCreateTemplateSyncConfigResponse' smart constructor.
data CreateTemplateSyncConfigResponse = CreateTemplateSyncConfigResponse'
  { -- | The template sync configuration detail data that\'s returned by Proton.
    CreateTemplateSyncConfigResponse -> Maybe TemplateSyncConfig
templateSyncConfig :: Prelude.Maybe TemplateSyncConfig,
    -- | The response's http status code.
    CreateTemplateSyncConfigResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (CreateTemplateSyncConfigResponse
-> CreateTemplateSyncConfigResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateTemplateSyncConfigResponse
-> CreateTemplateSyncConfigResponse -> Bool
$c/= :: CreateTemplateSyncConfigResponse
-> CreateTemplateSyncConfigResponse -> Bool
== :: CreateTemplateSyncConfigResponse
-> CreateTemplateSyncConfigResponse -> Bool
$c== :: CreateTemplateSyncConfigResponse
-> CreateTemplateSyncConfigResponse -> Bool
Prelude.Eq, ReadPrec [CreateTemplateSyncConfigResponse]
ReadPrec CreateTemplateSyncConfigResponse
Int -> ReadS CreateTemplateSyncConfigResponse
ReadS [CreateTemplateSyncConfigResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateTemplateSyncConfigResponse]
$creadListPrec :: ReadPrec [CreateTemplateSyncConfigResponse]
readPrec :: ReadPrec CreateTemplateSyncConfigResponse
$creadPrec :: ReadPrec CreateTemplateSyncConfigResponse
readList :: ReadS [CreateTemplateSyncConfigResponse]
$creadList :: ReadS [CreateTemplateSyncConfigResponse]
readsPrec :: Int -> ReadS CreateTemplateSyncConfigResponse
$creadsPrec :: Int -> ReadS CreateTemplateSyncConfigResponse
Prelude.Read, Int -> CreateTemplateSyncConfigResponse -> ShowS
[CreateTemplateSyncConfigResponse] -> ShowS
CreateTemplateSyncConfigResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateTemplateSyncConfigResponse] -> ShowS
$cshowList :: [CreateTemplateSyncConfigResponse] -> ShowS
show :: CreateTemplateSyncConfigResponse -> String
$cshow :: CreateTemplateSyncConfigResponse -> String
showsPrec :: Int -> CreateTemplateSyncConfigResponse -> ShowS
$cshowsPrec :: Int -> CreateTemplateSyncConfigResponse -> ShowS
Prelude.Show, forall x.
Rep CreateTemplateSyncConfigResponse x
-> CreateTemplateSyncConfigResponse
forall x.
CreateTemplateSyncConfigResponse
-> Rep CreateTemplateSyncConfigResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateTemplateSyncConfigResponse x
-> CreateTemplateSyncConfigResponse
$cfrom :: forall x.
CreateTemplateSyncConfigResponse
-> Rep CreateTemplateSyncConfigResponse x
Prelude.Generic)

-- |
-- Create a value of 'CreateTemplateSyncConfigResponse' 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:
--
-- 'templateSyncConfig', 'createTemplateSyncConfigResponse_templateSyncConfig' - The template sync configuration detail data that\'s returned by Proton.
--
-- 'httpStatus', 'createTemplateSyncConfigResponse_httpStatus' - The response's http status code.
newCreateTemplateSyncConfigResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  CreateTemplateSyncConfigResponse
newCreateTemplateSyncConfigResponse :: Int -> CreateTemplateSyncConfigResponse
newCreateTemplateSyncConfigResponse Int
pHttpStatus_ =
  CreateTemplateSyncConfigResponse'
    { $sel:templateSyncConfig:CreateTemplateSyncConfigResponse' :: Maybe TemplateSyncConfig
templateSyncConfig =
        forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:CreateTemplateSyncConfigResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The template sync configuration detail data that\'s returned by Proton.
createTemplateSyncConfigResponse_templateSyncConfig :: Lens.Lens' CreateTemplateSyncConfigResponse (Prelude.Maybe TemplateSyncConfig)
createTemplateSyncConfigResponse_templateSyncConfig :: Lens' CreateTemplateSyncConfigResponse (Maybe TemplateSyncConfig)
createTemplateSyncConfigResponse_templateSyncConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateTemplateSyncConfigResponse' {Maybe TemplateSyncConfig
templateSyncConfig :: Maybe TemplateSyncConfig
$sel:templateSyncConfig:CreateTemplateSyncConfigResponse' :: CreateTemplateSyncConfigResponse -> Maybe TemplateSyncConfig
templateSyncConfig} -> Maybe TemplateSyncConfig
templateSyncConfig) (\s :: CreateTemplateSyncConfigResponse
s@CreateTemplateSyncConfigResponse' {} Maybe TemplateSyncConfig
a -> CreateTemplateSyncConfigResponse
s {$sel:templateSyncConfig:CreateTemplateSyncConfigResponse' :: Maybe TemplateSyncConfig
templateSyncConfig = Maybe TemplateSyncConfig
a} :: CreateTemplateSyncConfigResponse)

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

instance
  Prelude.NFData
    CreateTemplateSyncConfigResponse
  where
  rnf :: CreateTemplateSyncConfigResponse -> ()
rnf CreateTemplateSyncConfigResponse' {Int
Maybe TemplateSyncConfig
httpStatus :: Int
templateSyncConfig :: Maybe TemplateSyncConfig
$sel:httpStatus:CreateTemplateSyncConfigResponse' :: CreateTemplateSyncConfigResponse -> Int
$sel:templateSyncConfig:CreateTemplateSyncConfigResponse' :: CreateTemplateSyncConfigResponse -> Maybe TemplateSyncConfig
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe TemplateSyncConfig
templateSyncConfig
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus