{-# 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.CreateBackendAPI
(
CreateBackendAPI (..),
newCreateBackendAPI,
createBackendAPI_appId,
createBackendAPI_resourceName,
createBackendAPI_backendEnvironmentName,
createBackendAPI_resourceConfig,
CreateBackendAPIResponse (..),
newCreateBackendAPIResponse,
createBackendAPIResponse_appId,
createBackendAPIResponse_backendEnvironmentName,
createBackendAPIResponse_error,
createBackendAPIResponse_jobId,
createBackendAPIResponse_operation,
createBackendAPIResponse_status,
createBackendAPIResponse_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 CreateBackendAPI = CreateBackendAPI'
{
CreateBackendAPI -> Text
appId :: Prelude.Text,
CreateBackendAPI -> Text
resourceName :: Prelude.Text,
CreateBackendAPI -> Text
backendEnvironmentName :: Prelude.Text,
CreateBackendAPI -> BackendAPIResourceConfig
resourceConfig :: BackendAPIResourceConfig
}
deriving (CreateBackendAPI -> CreateBackendAPI -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateBackendAPI -> CreateBackendAPI -> Bool
$c/= :: CreateBackendAPI -> CreateBackendAPI -> Bool
== :: CreateBackendAPI -> CreateBackendAPI -> Bool
$c== :: CreateBackendAPI -> CreateBackendAPI -> Bool
Prelude.Eq, ReadPrec [CreateBackendAPI]
ReadPrec CreateBackendAPI
Int -> ReadS CreateBackendAPI
ReadS [CreateBackendAPI]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateBackendAPI]
$creadListPrec :: ReadPrec [CreateBackendAPI]
readPrec :: ReadPrec CreateBackendAPI
$creadPrec :: ReadPrec CreateBackendAPI
readList :: ReadS [CreateBackendAPI]
$creadList :: ReadS [CreateBackendAPI]
readsPrec :: Int -> ReadS CreateBackendAPI
$creadsPrec :: Int -> ReadS CreateBackendAPI
Prelude.Read, Int -> CreateBackendAPI -> ShowS
[CreateBackendAPI] -> ShowS
CreateBackendAPI -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateBackendAPI] -> ShowS
$cshowList :: [CreateBackendAPI] -> ShowS
show :: CreateBackendAPI -> String
$cshow :: CreateBackendAPI -> String
showsPrec :: Int -> CreateBackendAPI -> ShowS
$cshowsPrec :: Int -> CreateBackendAPI -> ShowS
Prelude.Show, forall x. Rep CreateBackendAPI x -> CreateBackendAPI
forall x. CreateBackendAPI -> Rep CreateBackendAPI x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateBackendAPI x -> CreateBackendAPI
$cfrom :: forall x. CreateBackendAPI -> Rep CreateBackendAPI x
Prelude.Generic)
newCreateBackendAPI ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
BackendAPIResourceConfig ->
CreateBackendAPI
newCreateBackendAPI :: Text
-> Text -> Text -> BackendAPIResourceConfig -> CreateBackendAPI
newCreateBackendAPI
Text
pAppId_
Text
pResourceName_
Text
pBackendEnvironmentName_
BackendAPIResourceConfig
pResourceConfig_ =
CreateBackendAPI'
{ $sel:appId:CreateBackendAPI' :: Text
appId = Text
pAppId_,
$sel:resourceName:CreateBackendAPI' :: Text
resourceName = Text
pResourceName_,
$sel:backendEnvironmentName:CreateBackendAPI' :: Text
backendEnvironmentName = Text
pBackendEnvironmentName_,
$sel:resourceConfig:CreateBackendAPI' :: BackendAPIResourceConfig
resourceConfig = BackendAPIResourceConfig
pResourceConfig_
}
createBackendAPI_appId :: Lens.Lens' CreateBackendAPI Prelude.Text
createBackendAPI_appId :: Lens' CreateBackendAPI Text
createBackendAPI_appId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAPI' {Text
appId :: Text
$sel:appId:CreateBackendAPI' :: CreateBackendAPI -> Text
appId} -> Text
appId) (\s :: CreateBackendAPI
s@CreateBackendAPI' {} Text
a -> CreateBackendAPI
s {$sel:appId:CreateBackendAPI' :: Text
appId = Text
a} :: CreateBackendAPI)
createBackendAPI_resourceName :: Lens.Lens' CreateBackendAPI Prelude.Text
createBackendAPI_resourceName :: Lens' CreateBackendAPI Text
createBackendAPI_resourceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAPI' {Text
resourceName :: Text
$sel:resourceName:CreateBackendAPI' :: CreateBackendAPI -> Text
resourceName} -> Text
resourceName) (\s :: CreateBackendAPI
s@CreateBackendAPI' {} Text
a -> CreateBackendAPI
s {$sel:resourceName:CreateBackendAPI' :: Text
resourceName = Text
a} :: CreateBackendAPI)
createBackendAPI_backendEnvironmentName :: Lens.Lens' CreateBackendAPI Prelude.Text
createBackendAPI_backendEnvironmentName :: Lens' CreateBackendAPI Text
createBackendAPI_backendEnvironmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAPI' {Text
backendEnvironmentName :: Text
$sel:backendEnvironmentName:CreateBackendAPI' :: CreateBackendAPI -> Text
backendEnvironmentName} -> Text
backendEnvironmentName) (\s :: CreateBackendAPI
s@CreateBackendAPI' {} Text
a -> CreateBackendAPI
s {$sel:backendEnvironmentName:CreateBackendAPI' :: Text
backendEnvironmentName = Text
a} :: CreateBackendAPI)
createBackendAPI_resourceConfig :: Lens.Lens' CreateBackendAPI BackendAPIResourceConfig
createBackendAPI_resourceConfig :: Lens' CreateBackendAPI BackendAPIResourceConfig
createBackendAPI_resourceConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAPI' {BackendAPIResourceConfig
resourceConfig :: BackendAPIResourceConfig
$sel:resourceConfig:CreateBackendAPI' :: CreateBackendAPI -> BackendAPIResourceConfig
resourceConfig} -> BackendAPIResourceConfig
resourceConfig) (\s :: CreateBackendAPI
s@CreateBackendAPI' {} BackendAPIResourceConfig
a -> CreateBackendAPI
s {$sel:resourceConfig:CreateBackendAPI' :: BackendAPIResourceConfig
resourceConfig = BackendAPIResourceConfig
a} :: CreateBackendAPI)
instance Core.AWSRequest CreateBackendAPI where
type
AWSResponse CreateBackendAPI =
CreateBackendAPIResponse
request :: (Service -> Service)
-> CreateBackendAPI -> Request CreateBackendAPI
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 CreateBackendAPI
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateBackendAPI)))
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
-> CreateBackendAPIResponse
CreateBackendAPIResponse'
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 CreateBackendAPI where
hashWithSalt :: Int -> CreateBackendAPI -> Int
hashWithSalt Int
_salt CreateBackendAPI' {Text
BackendAPIResourceConfig
resourceConfig :: BackendAPIResourceConfig
backendEnvironmentName :: Text
resourceName :: Text
appId :: Text
$sel:resourceConfig:CreateBackendAPI' :: CreateBackendAPI -> BackendAPIResourceConfig
$sel:backendEnvironmentName:CreateBackendAPI' :: CreateBackendAPI -> Text
$sel:resourceName:CreateBackendAPI' :: CreateBackendAPI -> Text
$sel:appId:CreateBackendAPI' :: CreateBackendAPI -> 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` BackendAPIResourceConfig
resourceConfig
instance Prelude.NFData CreateBackendAPI where
rnf :: CreateBackendAPI -> ()
rnf CreateBackendAPI' {Text
BackendAPIResourceConfig
resourceConfig :: BackendAPIResourceConfig
backendEnvironmentName :: Text
resourceName :: Text
appId :: Text
$sel:resourceConfig:CreateBackendAPI' :: CreateBackendAPI -> BackendAPIResourceConfig
$sel:backendEnvironmentName:CreateBackendAPI' :: CreateBackendAPI -> Text
$sel:resourceName:CreateBackendAPI' :: CreateBackendAPI -> Text
$sel:appId:CreateBackendAPI' :: CreateBackendAPI -> 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 BackendAPIResourceConfig
resourceConfig
instance Data.ToHeaders CreateBackendAPI where
toHeaders :: CreateBackendAPI -> 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 CreateBackendAPI where
toJSON :: CreateBackendAPI -> Value
toJSON CreateBackendAPI' {Text
BackendAPIResourceConfig
resourceConfig :: BackendAPIResourceConfig
backendEnvironmentName :: Text
resourceName :: Text
appId :: Text
$sel:resourceConfig:CreateBackendAPI' :: CreateBackendAPI -> BackendAPIResourceConfig
$sel:backendEnvironmentName:CreateBackendAPI' :: CreateBackendAPI -> Text
$sel:resourceName:CreateBackendAPI' :: CreateBackendAPI -> Text
$sel:appId:CreateBackendAPI' :: CreateBackendAPI -> 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..= BackendAPIResourceConfig
resourceConfig)
]
)
instance Data.ToPath CreateBackendAPI where
toPath :: CreateBackendAPI -> ByteString
toPath CreateBackendAPI' {Text
BackendAPIResourceConfig
resourceConfig :: BackendAPIResourceConfig
backendEnvironmentName :: Text
resourceName :: Text
appId :: Text
$sel:resourceConfig:CreateBackendAPI' :: CreateBackendAPI -> BackendAPIResourceConfig
$sel:backendEnvironmentName:CreateBackendAPI' :: CreateBackendAPI -> Text
$sel:resourceName:CreateBackendAPI' :: CreateBackendAPI -> Text
$sel:appId:CreateBackendAPI' :: CreateBackendAPI -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/backend/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
appId, ByteString
"/api"]
instance Data.ToQuery CreateBackendAPI where
toQuery :: CreateBackendAPI -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateBackendAPIResponse = CreateBackendAPIResponse'
{
CreateBackendAPIResponse -> Maybe Text
appId :: Prelude.Maybe Prelude.Text,
CreateBackendAPIResponse -> Maybe Text
backendEnvironmentName :: Prelude.Maybe Prelude.Text,
CreateBackendAPIResponse -> Maybe Text
error :: Prelude.Maybe Prelude.Text,
CreateBackendAPIResponse -> Maybe Text
jobId :: Prelude.Maybe Prelude.Text,
CreateBackendAPIResponse -> Maybe Text
operation :: Prelude.Maybe Prelude.Text,
CreateBackendAPIResponse -> Maybe Text
status :: Prelude.Maybe Prelude.Text,
CreateBackendAPIResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateBackendAPIResponse -> CreateBackendAPIResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateBackendAPIResponse -> CreateBackendAPIResponse -> Bool
$c/= :: CreateBackendAPIResponse -> CreateBackendAPIResponse -> Bool
== :: CreateBackendAPIResponse -> CreateBackendAPIResponse -> Bool
$c== :: CreateBackendAPIResponse -> CreateBackendAPIResponse -> Bool
Prelude.Eq, ReadPrec [CreateBackendAPIResponse]
ReadPrec CreateBackendAPIResponse
Int -> ReadS CreateBackendAPIResponse
ReadS [CreateBackendAPIResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateBackendAPIResponse]
$creadListPrec :: ReadPrec [CreateBackendAPIResponse]
readPrec :: ReadPrec CreateBackendAPIResponse
$creadPrec :: ReadPrec CreateBackendAPIResponse
readList :: ReadS [CreateBackendAPIResponse]
$creadList :: ReadS [CreateBackendAPIResponse]
readsPrec :: Int -> ReadS CreateBackendAPIResponse
$creadsPrec :: Int -> ReadS CreateBackendAPIResponse
Prelude.Read, Int -> CreateBackendAPIResponse -> ShowS
[CreateBackendAPIResponse] -> ShowS
CreateBackendAPIResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateBackendAPIResponse] -> ShowS
$cshowList :: [CreateBackendAPIResponse] -> ShowS
show :: CreateBackendAPIResponse -> String
$cshow :: CreateBackendAPIResponse -> String
showsPrec :: Int -> CreateBackendAPIResponse -> ShowS
$cshowsPrec :: Int -> CreateBackendAPIResponse -> ShowS
Prelude.Show, forall x.
Rep CreateBackendAPIResponse x -> CreateBackendAPIResponse
forall x.
CreateBackendAPIResponse -> Rep CreateBackendAPIResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateBackendAPIResponse x -> CreateBackendAPIResponse
$cfrom :: forall x.
CreateBackendAPIResponse -> Rep CreateBackendAPIResponse x
Prelude.Generic)
newCreateBackendAPIResponse ::
Prelude.Int ->
CreateBackendAPIResponse
newCreateBackendAPIResponse :: Int -> CreateBackendAPIResponse
newCreateBackendAPIResponse Int
pHttpStatus_ =
CreateBackendAPIResponse'
{ $sel:appId:CreateBackendAPIResponse' :: Maybe Text
appId = forall a. Maybe a
Prelude.Nothing,
$sel:backendEnvironmentName:CreateBackendAPIResponse' :: Maybe Text
backendEnvironmentName = forall a. Maybe a
Prelude.Nothing,
$sel:error:CreateBackendAPIResponse' :: Maybe Text
error = forall a. Maybe a
Prelude.Nothing,
$sel:jobId:CreateBackendAPIResponse' :: Maybe Text
jobId = forall a. Maybe a
Prelude.Nothing,
$sel:operation:CreateBackendAPIResponse' :: Maybe Text
operation = forall a. Maybe a
Prelude.Nothing,
$sel:status:CreateBackendAPIResponse' :: Maybe Text
status = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateBackendAPIResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createBackendAPIResponse_appId :: Lens.Lens' CreateBackendAPIResponse (Prelude.Maybe Prelude.Text)
createBackendAPIResponse_appId :: Lens' CreateBackendAPIResponse (Maybe Text)
createBackendAPIResponse_appId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAPIResponse' {Maybe Text
appId :: Maybe Text
$sel:appId:CreateBackendAPIResponse' :: CreateBackendAPIResponse -> Maybe Text
appId} -> Maybe Text
appId) (\s :: CreateBackendAPIResponse
s@CreateBackendAPIResponse' {} Maybe Text
a -> CreateBackendAPIResponse
s {$sel:appId:CreateBackendAPIResponse' :: Maybe Text
appId = Maybe Text
a} :: CreateBackendAPIResponse)
createBackendAPIResponse_backendEnvironmentName :: Lens.Lens' CreateBackendAPIResponse (Prelude.Maybe Prelude.Text)
createBackendAPIResponse_backendEnvironmentName :: Lens' CreateBackendAPIResponse (Maybe Text)
createBackendAPIResponse_backendEnvironmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAPIResponse' {Maybe Text
backendEnvironmentName :: Maybe Text
$sel:backendEnvironmentName:CreateBackendAPIResponse' :: CreateBackendAPIResponse -> Maybe Text
backendEnvironmentName} -> Maybe Text
backendEnvironmentName) (\s :: CreateBackendAPIResponse
s@CreateBackendAPIResponse' {} Maybe Text
a -> CreateBackendAPIResponse
s {$sel:backendEnvironmentName:CreateBackendAPIResponse' :: Maybe Text
backendEnvironmentName = Maybe Text
a} :: CreateBackendAPIResponse)
createBackendAPIResponse_error :: Lens.Lens' CreateBackendAPIResponse (Prelude.Maybe Prelude.Text)
createBackendAPIResponse_error :: Lens' CreateBackendAPIResponse (Maybe Text)
createBackendAPIResponse_error = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAPIResponse' {Maybe Text
error :: Maybe Text
$sel:error:CreateBackendAPIResponse' :: CreateBackendAPIResponse -> Maybe Text
error} -> Maybe Text
error) (\s :: CreateBackendAPIResponse
s@CreateBackendAPIResponse' {} Maybe Text
a -> CreateBackendAPIResponse
s {$sel:error:CreateBackendAPIResponse' :: Maybe Text
error = Maybe Text
a} :: CreateBackendAPIResponse)
createBackendAPIResponse_jobId :: Lens.Lens' CreateBackendAPIResponse (Prelude.Maybe Prelude.Text)
createBackendAPIResponse_jobId :: Lens' CreateBackendAPIResponse (Maybe Text)
createBackendAPIResponse_jobId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAPIResponse' {Maybe Text
jobId :: Maybe Text
$sel:jobId:CreateBackendAPIResponse' :: CreateBackendAPIResponse -> Maybe Text
jobId} -> Maybe Text
jobId) (\s :: CreateBackendAPIResponse
s@CreateBackendAPIResponse' {} Maybe Text
a -> CreateBackendAPIResponse
s {$sel:jobId:CreateBackendAPIResponse' :: Maybe Text
jobId = Maybe Text
a} :: CreateBackendAPIResponse)
createBackendAPIResponse_operation :: Lens.Lens' CreateBackendAPIResponse (Prelude.Maybe Prelude.Text)
createBackendAPIResponse_operation :: Lens' CreateBackendAPIResponse (Maybe Text)
createBackendAPIResponse_operation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAPIResponse' {Maybe Text
operation :: Maybe Text
$sel:operation:CreateBackendAPIResponse' :: CreateBackendAPIResponse -> Maybe Text
operation} -> Maybe Text
operation) (\s :: CreateBackendAPIResponse
s@CreateBackendAPIResponse' {} Maybe Text
a -> CreateBackendAPIResponse
s {$sel:operation:CreateBackendAPIResponse' :: Maybe Text
operation = Maybe Text
a} :: CreateBackendAPIResponse)
createBackendAPIResponse_status :: Lens.Lens' CreateBackendAPIResponse (Prelude.Maybe Prelude.Text)
createBackendAPIResponse_status :: Lens' CreateBackendAPIResponse (Maybe Text)
createBackendAPIResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAPIResponse' {Maybe Text
status :: Maybe Text
$sel:status:CreateBackendAPIResponse' :: CreateBackendAPIResponse -> Maybe Text
status} -> Maybe Text
status) (\s :: CreateBackendAPIResponse
s@CreateBackendAPIResponse' {} Maybe Text
a -> CreateBackendAPIResponse
s {$sel:status:CreateBackendAPIResponse' :: Maybe Text
status = Maybe Text
a} :: CreateBackendAPIResponse)
createBackendAPIResponse_httpStatus :: Lens.Lens' CreateBackendAPIResponse Prelude.Int
createBackendAPIResponse_httpStatus :: Lens' CreateBackendAPIResponse Int
createBackendAPIResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBackendAPIResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateBackendAPIResponse' :: CreateBackendAPIResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateBackendAPIResponse
s@CreateBackendAPIResponse' {} Int
a -> CreateBackendAPIResponse
s {$sel:httpStatus:CreateBackendAPIResponse' :: Int
httpStatus = Int
a} :: CreateBackendAPIResponse)
instance Prelude.NFData CreateBackendAPIResponse where
rnf :: CreateBackendAPIResponse -> ()
rnf CreateBackendAPIResponse' {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:CreateBackendAPIResponse' :: CreateBackendAPIResponse -> Int
$sel:status:CreateBackendAPIResponse' :: CreateBackendAPIResponse -> Maybe Text
$sel:operation:CreateBackendAPIResponse' :: CreateBackendAPIResponse -> Maybe Text
$sel:jobId:CreateBackendAPIResponse' :: CreateBackendAPIResponse -> Maybe Text
$sel:error:CreateBackendAPIResponse' :: CreateBackendAPIResponse -> Maybe Text
$sel:backendEnvironmentName:CreateBackendAPIResponse' :: CreateBackendAPIResponse -> Maybe Text
$sel:appId:CreateBackendAPIResponse' :: CreateBackendAPIResponse -> 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