{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.AmplifyBackend.Types.UpdateBackendAuthResourceConfig where
import Amazonka.AmplifyBackend.Types.AuthResources
import Amazonka.AmplifyBackend.Types.Service
import Amazonka.AmplifyBackend.Types.UpdateBackendAuthIdentityPoolConfig
import Amazonka.AmplifyBackend.Types.UpdateBackendAuthUserPoolConfig
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
data UpdateBackendAuthResourceConfig = UpdateBackendAuthResourceConfig'
{
UpdateBackendAuthResourceConfig
-> Maybe UpdateBackendAuthIdentityPoolConfig
identityPoolConfigs :: Prelude.Maybe UpdateBackendAuthIdentityPoolConfig,
UpdateBackendAuthResourceConfig -> AuthResources
authResources :: AuthResources,
UpdateBackendAuthResourceConfig -> UpdateBackendAuthUserPoolConfig
userPoolConfigs :: UpdateBackendAuthUserPoolConfig,
UpdateBackendAuthResourceConfig -> Service
service :: Service
}
deriving (UpdateBackendAuthResourceConfig
-> UpdateBackendAuthResourceConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateBackendAuthResourceConfig
-> UpdateBackendAuthResourceConfig -> Bool
$c/= :: UpdateBackendAuthResourceConfig
-> UpdateBackendAuthResourceConfig -> Bool
== :: UpdateBackendAuthResourceConfig
-> UpdateBackendAuthResourceConfig -> Bool
$c== :: UpdateBackendAuthResourceConfig
-> UpdateBackendAuthResourceConfig -> Bool
Prelude.Eq, ReadPrec [UpdateBackendAuthResourceConfig]
ReadPrec UpdateBackendAuthResourceConfig
Int -> ReadS UpdateBackendAuthResourceConfig
ReadS [UpdateBackendAuthResourceConfig]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateBackendAuthResourceConfig]
$creadListPrec :: ReadPrec [UpdateBackendAuthResourceConfig]
readPrec :: ReadPrec UpdateBackendAuthResourceConfig
$creadPrec :: ReadPrec UpdateBackendAuthResourceConfig
readList :: ReadS [UpdateBackendAuthResourceConfig]
$creadList :: ReadS [UpdateBackendAuthResourceConfig]
readsPrec :: Int -> ReadS UpdateBackendAuthResourceConfig
$creadsPrec :: Int -> ReadS UpdateBackendAuthResourceConfig
Prelude.Read, Int -> UpdateBackendAuthResourceConfig -> ShowS
[UpdateBackendAuthResourceConfig] -> ShowS
UpdateBackendAuthResourceConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateBackendAuthResourceConfig] -> ShowS
$cshowList :: [UpdateBackendAuthResourceConfig] -> ShowS
show :: UpdateBackendAuthResourceConfig -> String
$cshow :: UpdateBackendAuthResourceConfig -> String
showsPrec :: Int -> UpdateBackendAuthResourceConfig -> ShowS
$cshowsPrec :: Int -> UpdateBackendAuthResourceConfig -> ShowS
Prelude.Show, forall x.
Rep UpdateBackendAuthResourceConfig x
-> UpdateBackendAuthResourceConfig
forall x.
UpdateBackendAuthResourceConfig
-> Rep UpdateBackendAuthResourceConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateBackendAuthResourceConfig x
-> UpdateBackendAuthResourceConfig
$cfrom :: forall x.
UpdateBackendAuthResourceConfig
-> Rep UpdateBackendAuthResourceConfig x
Prelude.Generic)
newUpdateBackendAuthResourceConfig ::
AuthResources ->
UpdateBackendAuthUserPoolConfig ->
Service ->
UpdateBackendAuthResourceConfig
newUpdateBackendAuthResourceConfig :: AuthResources
-> UpdateBackendAuthUserPoolConfig
-> Service
-> UpdateBackendAuthResourceConfig
newUpdateBackendAuthResourceConfig
AuthResources
pAuthResources_
UpdateBackendAuthUserPoolConfig
pUserPoolConfigs_
Service
pService_ =
UpdateBackendAuthResourceConfig'
{ $sel:identityPoolConfigs:UpdateBackendAuthResourceConfig' :: Maybe UpdateBackendAuthIdentityPoolConfig
identityPoolConfigs =
forall a. Maybe a
Prelude.Nothing,
$sel:authResources:UpdateBackendAuthResourceConfig' :: AuthResources
authResources = AuthResources
pAuthResources_,
$sel:userPoolConfigs:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthUserPoolConfig
userPoolConfigs = UpdateBackendAuthUserPoolConfig
pUserPoolConfigs_,
$sel:service:UpdateBackendAuthResourceConfig' :: Service
service = Service
pService_
}
updateBackendAuthResourceConfig_identityPoolConfigs :: Lens.Lens' UpdateBackendAuthResourceConfig (Prelude.Maybe UpdateBackendAuthIdentityPoolConfig)
updateBackendAuthResourceConfig_identityPoolConfigs :: Lens'
UpdateBackendAuthResourceConfig
(Maybe UpdateBackendAuthIdentityPoolConfig)
updateBackendAuthResourceConfig_identityPoolConfigs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateBackendAuthResourceConfig' {Maybe UpdateBackendAuthIdentityPoolConfig
identityPoolConfigs :: Maybe UpdateBackendAuthIdentityPoolConfig
$sel:identityPoolConfigs:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig
-> Maybe UpdateBackendAuthIdentityPoolConfig
identityPoolConfigs} -> Maybe UpdateBackendAuthIdentityPoolConfig
identityPoolConfigs) (\s :: UpdateBackendAuthResourceConfig
s@UpdateBackendAuthResourceConfig' {} Maybe UpdateBackendAuthIdentityPoolConfig
a -> UpdateBackendAuthResourceConfig
s {$sel:identityPoolConfigs:UpdateBackendAuthResourceConfig' :: Maybe UpdateBackendAuthIdentityPoolConfig
identityPoolConfigs = Maybe UpdateBackendAuthIdentityPoolConfig
a} :: UpdateBackendAuthResourceConfig)
updateBackendAuthResourceConfig_authResources :: Lens.Lens' UpdateBackendAuthResourceConfig AuthResources
updateBackendAuthResourceConfig_authResources :: Lens' UpdateBackendAuthResourceConfig AuthResources
updateBackendAuthResourceConfig_authResources = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateBackendAuthResourceConfig' {AuthResources
authResources :: AuthResources
$sel:authResources:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig -> AuthResources
authResources} -> AuthResources
authResources) (\s :: UpdateBackendAuthResourceConfig
s@UpdateBackendAuthResourceConfig' {} AuthResources
a -> UpdateBackendAuthResourceConfig
s {$sel:authResources:UpdateBackendAuthResourceConfig' :: AuthResources
authResources = AuthResources
a} :: UpdateBackendAuthResourceConfig)
updateBackendAuthResourceConfig_userPoolConfigs :: Lens.Lens' UpdateBackendAuthResourceConfig UpdateBackendAuthUserPoolConfig
updateBackendAuthResourceConfig_userPoolConfigs :: Lens'
UpdateBackendAuthResourceConfig UpdateBackendAuthUserPoolConfig
updateBackendAuthResourceConfig_userPoolConfigs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateBackendAuthResourceConfig' {UpdateBackendAuthUserPoolConfig
userPoolConfigs :: UpdateBackendAuthUserPoolConfig
$sel:userPoolConfigs:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig -> UpdateBackendAuthUserPoolConfig
userPoolConfigs} -> UpdateBackendAuthUserPoolConfig
userPoolConfigs) (\s :: UpdateBackendAuthResourceConfig
s@UpdateBackendAuthResourceConfig' {} UpdateBackendAuthUserPoolConfig
a -> UpdateBackendAuthResourceConfig
s {$sel:userPoolConfigs:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthUserPoolConfig
userPoolConfigs = UpdateBackendAuthUserPoolConfig
a} :: UpdateBackendAuthResourceConfig)
updateBackendAuthResourceConfig_service :: Lens.Lens' UpdateBackendAuthResourceConfig Service
updateBackendAuthResourceConfig_service :: Lens' UpdateBackendAuthResourceConfig Service
updateBackendAuthResourceConfig_service = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateBackendAuthResourceConfig' {Service
service :: Service
$sel:service:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig -> Service
service} -> Service
service) (\s :: UpdateBackendAuthResourceConfig
s@UpdateBackendAuthResourceConfig' {} Service
a -> UpdateBackendAuthResourceConfig
s {$sel:service:UpdateBackendAuthResourceConfig' :: Service
service = Service
a} :: UpdateBackendAuthResourceConfig)
instance
Prelude.Hashable
UpdateBackendAuthResourceConfig
where
hashWithSalt :: Int -> UpdateBackendAuthResourceConfig -> Int
hashWithSalt
Int
_salt
UpdateBackendAuthResourceConfig' {Maybe UpdateBackendAuthIdentityPoolConfig
AuthResources
Service
UpdateBackendAuthUserPoolConfig
service :: Service
userPoolConfigs :: UpdateBackendAuthUserPoolConfig
authResources :: AuthResources
identityPoolConfigs :: Maybe UpdateBackendAuthIdentityPoolConfig
$sel:service:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig -> Service
$sel:userPoolConfigs:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig -> UpdateBackendAuthUserPoolConfig
$sel:authResources:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig -> AuthResources
$sel:identityPoolConfigs:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig
-> Maybe UpdateBackendAuthIdentityPoolConfig
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe UpdateBackendAuthIdentityPoolConfig
identityPoolConfigs
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` AuthResources
authResources
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` UpdateBackendAuthUserPoolConfig
userPoolConfigs
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Service
service
instance
Prelude.NFData
UpdateBackendAuthResourceConfig
where
rnf :: UpdateBackendAuthResourceConfig -> ()
rnf UpdateBackendAuthResourceConfig' {Maybe UpdateBackendAuthIdentityPoolConfig
AuthResources
Service
UpdateBackendAuthUserPoolConfig
service :: Service
userPoolConfigs :: UpdateBackendAuthUserPoolConfig
authResources :: AuthResources
identityPoolConfigs :: Maybe UpdateBackendAuthIdentityPoolConfig
$sel:service:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig -> Service
$sel:userPoolConfigs:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig -> UpdateBackendAuthUserPoolConfig
$sel:authResources:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig -> AuthResources
$sel:identityPoolConfigs:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig
-> Maybe UpdateBackendAuthIdentityPoolConfig
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe UpdateBackendAuthIdentityPoolConfig
identityPoolConfigs
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf AuthResources
authResources
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf UpdateBackendAuthUserPoolConfig
userPoolConfigs
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Service
service
instance Data.ToJSON UpdateBackendAuthResourceConfig where
toJSON :: UpdateBackendAuthResourceConfig -> Value
toJSON UpdateBackendAuthResourceConfig' {Maybe UpdateBackendAuthIdentityPoolConfig
AuthResources
Service
UpdateBackendAuthUserPoolConfig
service :: Service
userPoolConfigs :: UpdateBackendAuthUserPoolConfig
authResources :: AuthResources
identityPoolConfigs :: Maybe UpdateBackendAuthIdentityPoolConfig
$sel:service:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig -> Service
$sel:userPoolConfigs:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig -> UpdateBackendAuthUserPoolConfig
$sel:authResources:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig -> AuthResources
$sel:identityPoolConfigs:UpdateBackendAuthResourceConfig' :: UpdateBackendAuthResourceConfig
-> Maybe UpdateBackendAuthIdentityPoolConfig
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"identityPoolConfigs" 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 UpdateBackendAuthIdentityPoolConfig
identityPoolConfigs,
forall a. a -> Maybe a
Prelude.Just (Key
"authResources" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= AuthResources
authResources),
forall a. a -> Maybe a
Prelude.Just
(Key
"userPoolConfigs" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= UpdateBackendAuthUserPoolConfig
userPoolConfigs),
forall a. a -> Maybe a
Prelude.Just (Key
"service" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Service
service)
]
)