{-# 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.AmplifyBackend.CreateBackendAuth
(
CreateBackendAuth (..),
newCreateBackendAuth,
createBackendAuth_appId,
createBackendAuth_resourceName,
createBackendAuth_backendEnvironmentName,
createBackendAuth_resourceConfig,
CreateBackendAuthResponse (..),
newCreateBackendAuthResponse,
createBackendAuthResponse_appId,
createBackendAuthResponse_backendEnvironmentName,
createBackendAuthResponse_error,
createBackendAuthResponse_jobId,
createBackendAuthResponse_operation,
createBackendAuthResponse_status,
createBackendAuthResponse_httpStatus,
)
where
import Amazonka.AmplifyBackend.Types
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 qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateBackendAuth = CreateBackendAuth'
{
CreateBackendAuth -> Text
appId :: Prelude.Text,
CreateBackendAuth -> Text
resourceName :: Prelude.Text,
CreateBackendAuth -> Text
backendEnvironmentName :: Prelude.Text,
CreateBackendAuth -> CreateBackendAuthResourceConfig
resourceConfig :: CreateBackendAuthResourceConfig
}
deriving (CreateBackendAuth -> CreateBackendAuth -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateBackendAuth -> CreateBackendAuth -> Bool
$c/= :: CreateBackendAuth -> CreateBackendAuth -> Bool
== :: CreateBackendAuth -> CreateBackendAuth -> Bool
$c== :: CreateBackendAuth -> CreateBackendAuth -> Bool
Prelude.Eq, ReadPrec [CreateBackendAuth]
ReadPrec CreateBackendAuth
Int -> ReadS CreateBackendAuth
ReadS [CreateBackendAuth]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateBackendAuth]
$creadListPrec :: ReadPrec [CreateBackendAuth]
readPrec :: ReadPrec CreateBackendAuth
$creadPrec :: ReadPrec CreateBackendAuth
readList :: ReadS [CreateBackendAuth]
$creadList :: ReadS [CreateBackendAuth]
readsPrec :: Int -> ReadS CreateBackendAuth
$creadsPrec :: Int -> ReadS CreateBackendAuth
Prelude.Read, Int -> CreateBackendAuth -> ShowS
[CreateBackendAuth] -> ShowS
CreateBackendAuth -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateBackendAuth] -> ShowS
$cshowList :: [CreateBackendAuth] -> ShowS
show :: CreateBackendAuth -> String
$cshow :: CreateBackendAuth -> String
showsPrec :: Int -> CreateBackendAuth -> ShowS
$cshowsPrec :: Int -> CreateBackendAuth -> ShowS
Prelude.Show, forall x. Rep CreateBackendAuth x -> CreateBackendAuth
forall x. CreateBackendAuth -> Rep CreateBackendAuth x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateBackendAuth x -> CreateBackendAuth
$cfrom :: forall x. CreateBackendAuth -> Rep CreateBackendAuth x
Prelude.Generic)
newCreateBackendAuth ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
CreateBackendAuthResourceConfig ->
CreateBackendAuth
newCreateBackendAuth :: Text
-> Text
-> Text
-> CreateBackendAuthResourceConfig
-> CreateBackendAuth
newCreateBackendAuth
Text
pAppId_
Text
pResourceName_
Text
pBackendEnvironmentName_
CreateBackendAuthResourceConfig
pResourceConfig_ =
CreateBackendAuth'
{ $sel:appId:CreateBackendAuth' :: Text
appId = Text
pAppId_,
$sel:resourceName:CreateBackendAuth' :: Text
resourceName = Text
pResourceName_,
$sel:backendEnvironmentName:CreateBackendAuth' :: Text
backendEnvironmentName = Text
pBackendEnvironmentName_,
$sel:resourceConfig:CreateBackendAuth' :: CreateBackendAuthResourceConfig
resourceConfig = CreateBackendAuthResourceConfig
pResourceConfig_
}
createBackendAuth_appId :: Lens.Lens' CreateBackendAuth Prelude.Text
createBackendAuth_appId :: Lens' CreateBackendAuth Text
createBackendAuth_appId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAuth' {Text
appId :: Text
$sel:appId:CreateBackendAuth' :: CreateBackendAuth -> Text
appId} -> Text
appId) (\s :: CreateBackendAuth
s@CreateBackendAuth' {} Text
a -> CreateBackendAuth
s {$sel:appId:CreateBackendAuth' :: Text
appId = Text
a} :: CreateBackendAuth)
createBackendAuth_resourceName :: Lens.Lens' CreateBackendAuth Prelude.Text
createBackendAuth_resourceName :: Lens' CreateBackendAuth Text
createBackendAuth_resourceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAuth' {Text
resourceName :: Text
$sel:resourceName:CreateBackendAuth' :: CreateBackendAuth -> Text
resourceName} -> Text
resourceName) (\s :: CreateBackendAuth
s@CreateBackendAuth' {} Text
a -> CreateBackendAuth
s {$sel:resourceName:CreateBackendAuth' :: Text
resourceName = Text
a} :: CreateBackendAuth)
createBackendAuth_backendEnvironmentName :: Lens.Lens' CreateBackendAuth Prelude.Text
createBackendAuth_backendEnvironmentName :: Lens' CreateBackendAuth Text
createBackendAuth_backendEnvironmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAuth' {Text
backendEnvironmentName :: Text
$sel:backendEnvironmentName:CreateBackendAuth' :: CreateBackendAuth -> Text
backendEnvironmentName} -> Text
backendEnvironmentName) (\s :: CreateBackendAuth
s@CreateBackendAuth' {} Text
a -> CreateBackendAuth
s {$sel:backendEnvironmentName:CreateBackendAuth' :: Text
backendEnvironmentName = Text
a} :: CreateBackendAuth)
createBackendAuth_resourceConfig :: Lens.Lens' CreateBackendAuth CreateBackendAuthResourceConfig
createBackendAuth_resourceConfig :: Lens' CreateBackendAuth CreateBackendAuthResourceConfig
createBackendAuth_resourceConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAuth' {CreateBackendAuthResourceConfig
resourceConfig :: CreateBackendAuthResourceConfig
$sel:resourceConfig:CreateBackendAuth' :: CreateBackendAuth -> CreateBackendAuthResourceConfig
resourceConfig} -> CreateBackendAuthResourceConfig
resourceConfig) (\s :: CreateBackendAuth
s@CreateBackendAuth' {} CreateBackendAuthResourceConfig
a -> CreateBackendAuth
s {$sel:resourceConfig:CreateBackendAuth' :: CreateBackendAuthResourceConfig
resourceConfig = CreateBackendAuthResourceConfig
a} :: CreateBackendAuth)
instance Core.AWSRequest CreateBackendAuth where
type
AWSResponse CreateBackendAuth =
CreateBackendAuthResponse
request :: (Service -> Service)
-> CreateBackendAuth -> Request CreateBackendAuth
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 CreateBackendAuth
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateBackendAuth)))
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 Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> CreateBackendAuthResponse
CreateBackendAuthResponse'
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
"appId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"backendEnvironmentName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"error")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"jobId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"operation")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"status")
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 CreateBackendAuth where
hashWithSalt :: Int -> CreateBackendAuth -> Int
hashWithSalt Int
_salt CreateBackendAuth' {Text
CreateBackendAuthResourceConfig
resourceConfig :: CreateBackendAuthResourceConfig
backendEnvironmentName :: Text
resourceName :: Text
appId :: Text
$sel:resourceConfig:CreateBackendAuth' :: CreateBackendAuth -> CreateBackendAuthResourceConfig
$sel:backendEnvironmentName:CreateBackendAuth' :: CreateBackendAuth -> Text
$sel:resourceName:CreateBackendAuth' :: CreateBackendAuth -> Text
$sel:appId:CreateBackendAuth' :: CreateBackendAuth -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
appId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
resourceName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
backendEnvironmentName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` CreateBackendAuthResourceConfig
resourceConfig
instance Prelude.NFData CreateBackendAuth where
rnf :: CreateBackendAuth -> ()
rnf CreateBackendAuth' {Text
CreateBackendAuthResourceConfig
resourceConfig :: CreateBackendAuthResourceConfig
backendEnvironmentName :: Text
resourceName :: Text
appId :: Text
$sel:resourceConfig:CreateBackendAuth' :: CreateBackendAuth -> CreateBackendAuthResourceConfig
$sel:backendEnvironmentName:CreateBackendAuth' :: CreateBackendAuth -> Text
$sel:resourceName:CreateBackendAuth' :: CreateBackendAuth -> Text
$sel:appId:CreateBackendAuth' :: CreateBackendAuth -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
appId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
resourceName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
backendEnvironmentName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf CreateBackendAuthResourceConfig
resourceConfig
instance Data.ToHeaders CreateBackendAuth where
toHeaders :: CreateBackendAuth -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateBackendAuth where
toJSON :: CreateBackendAuth -> Value
toJSON CreateBackendAuth' {Text
CreateBackendAuthResourceConfig
resourceConfig :: CreateBackendAuthResourceConfig
backendEnvironmentName :: Text
resourceName :: Text
appId :: Text
$sel:resourceConfig:CreateBackendAuth' :: CreateBackendAuth -> CreateBackendAuthResourceConfig
$sel:backendEnvironmentName:CreateBackendAuth' :: CreateBackendAuth -> Text
$sel:resourceName:CreateBackendAuth' :: CreateBackendAuth -> Text
$sel:appId:CreateBackendAuth' :: CreateBackendAuth -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"resourceName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
resourceName),
forall a. a -> Maybe a
Prelude.Just
( Key
"backendEnvironmentName"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
backendEnvironmentName
),
forall a. a -> Maybe a
Prelude.Just
(Key
"resourceConfig" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= CreateBackendAuthResourceConfig
resourceConfig)
]
)
instance Data.ToPath CreateBackendAuth where
toPath :: CreateBackendAuth -> ByteString
toPath CreateBackendAuth' {Text
CreateBackendAuthResourceConfig
resourceConfig :: CreateBackendAuthResourceConfig
backendEnvironmentName :: Text
resourceName :: Text
appId :: Text
$sel:resourceConfig:CreateBackendAuth' :: CreateBackendAuth -> CreateBackendAuthResourceConfig
$sel:backendEnvironmentName:CreateBackendAuth' :: CreateBackendAuth -> Text
$sel:resourceName:CreateBackendAuth' :: CreateBackendAuth -> Text
$sel:appId:CreateBackendAuth' :: CreateBackendAuth -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/backend/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
appId, ByteString
"/auth"]
instance Data.ToQuery CreateBackendAuth where
toQuery :: CreateBackendAuth -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateBackendAuthResponse = CreateBackendAuthResponse'
{
CreateBackendAuthResponse -> Maybe Text
appId :: Prelude.Maybe Prelude.Text,
CreateBackendAuthResponse -> Maybe Text
backendEnvironmentName :: Prelude.Maybe Prelude.Text,
CreateBackendAuthResponse -> Maybe Text
error :: Prelude.Maybe Prelude.Text,
CreateBackendAuthResponse -> Maybe Text
jobId :: Prelude.Maybe Prelude.Text,
CreateBackendAuthResponse -> Maybe Text
operation :: Prelude.Maybe Prelude.Text,
CreateBackendAuthResponse -> Maybe Text
status :: Prelude.Maybe Prelude.Text,
CreateBackendAuthResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateBackendAuthResponse -> CreateBackendAuthResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateBackendAuthResponse -> CreateBackendAuthResponse -> Bool
$c/= :: CreateBackendAuthResponse -> CreateBackendAuthResponse -> Bool
== :: CreateBackendAuthResponse -> CreateBackendAuthResponse -> Bool
$c== :: CreateBackendAuthResponse -> CreateBackendAuthResponse -> Bool
Prelude.Eq, ReadPrec [CreateBackendAuthResponse]
ReadPrec CreateBackendAuthResponse
Int -> ReadS CreateBackendAuthResponse
ReadS [CreateBackendAuthResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateBackendAuthResponse]
$creadListPrec :: ReadPrec [CreateBackendAuthResponse]
readPrec :: ReadPrec CreateBackendAuthResponse
$creadPrec :: ReadPrec CreateBackendAuthResponse
readList :: ReadS [CreateBackendAuthResponse]
$creadList :: ReadS [CreateBackendAuthResponse]
readsPrec :: Int -> ReadS CreateBackendAuthResponse
$creadsPrec :: Int -> ReadS CreateBackendAuthResponse
Prelude.Read, Int -> CreateBackendAuthResponse -> ShowS
[CreateBackendAuthResponse] -> ShowS
CreateBackendAuthResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateBackendAuthResponse] -> ShowS
$cshowList :: [CreateBackendAuthResponse] -> ShowS
show :: CreateBackendAuthResponse -> String
$cshow :: CreateBackendAuthResponse -> String
showsPrec :: Int -> CreateBackendAuthResponse -> ShowS
$cshowsPrec :: Int -> CreateBackendAuthResponse -> ShowS
Prelude.Show, forall x.
Rep CreateBackendAuthResponse x -> CreateBackendAuthResponse
forall x.
CreateBackendAuthResponse -> Rep CreateBackendAuthResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateBackendAuthResponse x -> CreateBackendAuthResponse
$cfrom :: forall x.
CreateBackendAuthResponse -> Rep CreateBackendAuthResponse x
Prelude.Generic)
newCreateBackendAuthResponse ::
Prelude.Int ->
CreateBackendAuthResponse
newCreateBackendAuthResponse :: Int -> CreateBackendAuthResponse
newCreateBackendAuthResponse Int
pHttpStatus_ =
CreateBackendAuthResponse'
{ $sel:appId:CreateBackendAuthResponse' :: Maybe Text
appId = forall a. Maybe a
Prelude.Nothing,
$sel:backendEnvironmentName:CreateBackendAuthResponse' :: Maybe Text
backendEnvironmentName = forall a. Maybe a
Prelude.Nothing,
$sel:error:CreateBackendAuthResponse' :: Maybe Text
error = forall a. Maybe a
Prelude.Nothing,
$sel:jobId:CreateBackendAuthResponse' :: Maybe Text
jobId = forall a. Maybe a
Prelude.Nothing,
$sel:operation:CreateBackendAuthResponse' :: Maybe Text
operation = forall a. Maybe a
Prelude.Nothing,
$sel:status:CreateBackendAuthResponse' :: Maybe Text
status = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateBackendAuthResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createBackendAuthResponse_appId :: Lens.Lens' CreateBackendAuthResponse (Prelude.Maybe Prelude.Text)
createBackendAuthResponse_appId :: Lens' CreateBackendAuthResponse (Maybe Text)
createBackendAuthResponse_appId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAuthResponse' {Maybe Text
appId :: Maybe Text
$sel:appId:CreateBackendAuthResponse' :: CreateBackendAuthResponse -> Maybe Text
appId} -> Maybe Text
appId) (\s :: CreateBackendAuthResponse
s@CreateBackendAuthResponse' {} Maybe Text
a -> CreateBackendAuthResponse
s {$sel:appId:CreateBackendAuthResponse' :: Maybe Text
appId = Maybe Text
a} :: CreateBackendAuthResponse)
createBackendAuthResponse_backendEnvironmentName :: Lens.Lens' CreateBackendAuthResponse (Prelude.Maybe Prelude.Text)
createBackendAuthResponse_backendEnvironmentName :: Lens' CreateBackendAuthResponse (Maybe Text)
createBackendAuthResponse_backendEnvironmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAuthResponse' {Maybe Text
backendEnvironmentName :: Maybe Text
$sel:backendEnvironmentName:CreateBackendAuthResponse' :: CreateBackendAuthResponse -> Maybe Text
backendEnvironmentName} -> Maybe Text
backendEnvironmentName) (\s :: CreateBackendAuthResponse
s@CreateBackendAuthResponse' {} Maybe Text
a -> CreateBackendAuthResponse
s {$sel:backendEnvironmentName:CreateBackendAuthResponse' :: Maybe Text
backendEnvironmentName = Maybe Text
a} :: CreateBackendAuthResponse)
createBackendAuthResponse_error :: Lens.Lens' CreateBackendAuthResponse (Prelude.Maybe Prelude.Text)
createBackendAuthResponse_error :: Lens' CreateBackendAuthResponse (Maybe Text)
createBackendAuthResponse_error = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAuthResponse' {Maybe Text
error :: Maybe Text
$sel:error:CreateBackendAuthResponse' :: CreateBackendAuthResponse -> Maybe Text
error} -> Maybe Text
error) (\s :: CreateBackendAuthResponse
s@CreateBackendAuthResponse' {} Maybe Text
a -> CreateBackendAuthResponse
s {$sel:error:CreateBackendAuthResponse' :: Maybe Text
error = Maybe Text
a} :: CreateBackendAuthResponse)
createBackendAuthResponse_jobId :: Lens.Lens' CreateBackendAuthResponse (Prelude.Maybe Prelude.Text)
createBackendAuthResponse_jobId :: Lens' CreateBackendAuthResponse (Maybe Text)
createBackendAuthResponse_jobId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAuthResponse' {Maybe Text
jobId :: Maybe Text
$sel:jobId:CreateBackendAuthResponse' :: CreateBackendAuthResponse -> Maybe Text
jobId} -> Maybe Text
jobId) (\s :: CreateBackendAuthResponse
s@CreateBackendAuthResponse' {} Maybe Text
a -> CreateBackendAuthResponse
s {$sel:jobId:CreateBackendAuthResponse' :: Maybe Text
jobId = Maybe Text
a} :: CreateBackendAuthResponse)
createBackendAuthResponse_operation :: Lens.Lens' CreateBackendAuthResponse (Prelude.Maybe Prelude.Text)
createBackendAuthResponse_operation :: Lens' CreateBackendAuthResponse (Maybe Text)
createBackendAuthResponse_operation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAuthResponse' {Maybe Text
operation :: Maybe Text
$sel:operation:CreateBackendAuthResponse' :: CreateBackendAuthResponse -> Maybe Text
operation} -> Maybe Text
operation) (\s :: CreateBackendAuthResponse
s@CreateBackendAuthResponse' {} Maybe Text
a -> CreateBackendAuthResponse
s {$sel:operation:CreateBackendAuthResponse' :: Maybe Text
operation = Maybe Text
a} :: CreateBackendAuthResponse)
createBackendAuthResponse_status :: Lens.Lens' CreateBackendAuthResponse (Prelude.Maybe Prelude.Text)
createBackendAuthResponse_status :: Lens' CreateBackendAuthResponse (Maybe Text)
createBackendAuthResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAuthResponse' {Maybe Text
status :: Maybe Text
$sel:status:CreateBackendAuthResponse' :: CreateBackendAuthResponse -> Maybe Text
status} -> Maybe Text
status) (\s :: CreateBackendAuthResponse
s@CreateBackendAuthResponse' {} Maybe Text
a -> CreateBackendAuthResponse
s {$sel:status:CreateBackendAuthResponse' :: Maybe Text
status = Maybe Text
a} :: CreateBackendAuthResponse)
createBackendAuthResponse_httpStatus :: Lens.Lens' CreateBackendAuthResponse Prelude.Int
createBackendAuthResponse_httpStatus :: Lens' CreateBackendAuthResponse Int
createBackendAuthResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAuthResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateBackendAuthResponse' :: CreateBackendAuthResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateBackendAuthResponse
s@CreateBackendAuthResponse' {} Int
a -> CreateBackendAuthResponse
s {$sel:httpStatus:CreateBackendAuthResponse' :: Int
httpStatus = Int
a} :: CreateBackendAuthResponse)
instance Prelude.NFData CreateBackendAuthResponse where
rnf :: CreateBackendAuthResponse -> ()
rnf CreateBackendAuthResponse' {Int
Maybe Text
httpStatus :: Int
status :: Maybe Text
operation :: Maybe Text
jobId :: Maybe Text
error :: Maybe Text
backendEnvironmentName :: Maybe Text
appId :: Maybe Text
$sel:httpStatus:CreateBackendAuthResponse' :: CreateBackendAuthResponse -> Int
$sel:status:CreateBackendAuthResponse' :: CreateBackendAuthResponse -> Maybe Text
$sel:operation:CreateBackendAuthResponse' :: CreateBackendAuthResponse -> Maybe Text
$sel:jobId:CreateBackendAuthResponse' :: CreateBackendAuthResponse -> Maybe Text
$sel:error:CreateBackendAuthResponse' :: CreateBackendAuthResponse -> Maybe Text
$sel:backendEnvironmentName:CreateBackendAuthResponse' :: CreateBackendAuthResponse -> Maybe Text
$sel:appId:CreateBackendAuthResponse' :: CreateBackendAuthResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
appId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
backendEnvironmentName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
error
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
jobId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
operation
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus