{-# 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 #-}
module Amazonka.Proton.CreateTemplateSyncConfig
(
CreateTemplateSyncConfig (..),
newCreateTemplateSyncConfig,
createTemplateSyncConfig_subdirectory,
createTemplateSyncConfig_branch,
createTemplateSyncConfig_repositoryName,
createTemplateSyncConfig_repositoryProvider,
createTemplateSyncConfig_templateName,
createTemplateSyncConfig_templateType,
CreateTemplateSyncConfigResponse (..),
newCreateTemplateSyncConfigResponse,
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
data CreateTemplateSyncConfig = CreateTemplateSyncConfig'
{
CreateTemplateSyncConfig -> Maybe Text
subdirectory :: Prelude.Maybe Prelude.Text,
CreateTemplateSyncConfig -> Text
branch :: Prelude.Text,
CreateTemplateSyncConfig -> Text
repositoryName :: Prelude.Text,
CreateTemplateSyncConfig -> RepositoryProvider
repositoryProvider :: RepositoryProvider,
CreateTemplateSyncConfig -> Text
templateName :: Prelude.Text,
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)
newCreateTemplateSyncConfig ::
Prelude.Text ->
Prelude.Text ->
RepositoryProvider ->
Prelude.Text ->
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_
}
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)
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)
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)
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)
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)
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
data CreateTemplateSyncConfigResponse = CreateTemplateSyncConfigResponse'
{
CreateTemplateSyncConfigResponse -> Maybe TemplateSyncConfig
templateSyncConfig :: Prelude.Maybe TemplateSyncConfig,
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)
newCreateTemplateSyncConfigResponse ::
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_
}
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)
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