{-# 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.DeleteBackendAuth
(
DeleteBackendAuth (..),
newDeleteBackendAuth,
deleteBackendAuth_appId,
deleteBackendAuth_backendEnvironmentName,
deleteBackendAuth_resourceName,
DeleteBackendAuthResponse (..),
newDeleteBackendAuthResponse,
deleteBackendAuthResponse_appId,
deleteBackendAuthResponse_backendEnvironmentName,
deleteBackendAuthResponse_error,
deleteBackendAuthResponse_jobId,
deleteBackendAuthResponse_operation,
deleteBackendAuthResponse_status,
deleteBackendAuthResponse_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 DeleteBackendAuth = DeleteBackendAuth'
{
DeleteBackendAuth -> Text
appId :: Prelude.Text,
DeleteBackendAuth -> Text
backendEnvironmentName :: Prelude.Text,
DeleteBackendAuth -> Text
resourceName :: Prelude.Text
}
deriving (DeleteBackendAuth -> DeleteBackendAuth -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteBackendAuth -> DeleteBackendAuth -> Bool
$c/= :: DeleteBackendAuth -> DeleteBackendAuth -> Bool
== :: DeleteBackendAuth -> DeleteBackendAuth -> Bool
$c== :: DeleteBackendAuth -> DeleteBackendAuth -> Bool
Prelude.Eq, ReadPrec [DeleteBackendAuth]
ReadPrec DeleteBackendAuth
Int -> ReadS DeleteBackendAuth
ReadS [DeleteBackendAuth]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteBackendAuth]
$creadListPrec :: ReadPrec [DeleteBackendAuth]
readPrec :: ReadPrec DeleteBackendAuth
$creadPrec :: ReadPrec DeleteBackendAuth
readList :: ReadS [DeleteBackendAuth]
$creadList :: ReadS [DeleteBackendAuth]
readsPrec :: Int -> ReadS DeleteBackendAuth
$creadsPrec :: Int -> ReadS DeleteBackendAuth
Prelude.Read, Int -> DeleteBackendAuth -> ShowS
[DeleteBackendAuth] -> ShowS
DeleteBackendAuth -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteBackendAuth] -> ShowS
$cshowList :: [DeleteBackendAuth] -> ShowS
show :: DeleteBackendAuth -> String
$cshow :: DeleteBackendAuth -> String
showsPrec :: Int -> DeleteBackendAuth -> ShowS
$cshowsPrec :: Int -> DeleteBackendAuth -> ShowS
Prelude.Show, forall x. Rep DeleteBackendAuth x -> DeleteBackendAuth
forall x. DeleteBackendAuth -> Rep DeleteBackendAuth x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeleteBackendAuth x -> DeleteBackendAuth
$cfrom :: forall x. DeleteBackendAuth -> Rep DeleteBackendAuth x
Prelude.Generic)
newDeleteBackendAuth ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
DeleteBackendAuth
newDeleteBackendAuth :: Text -> Text -> Text -> DeleteBackendAuth
newDeleteBackendAuth
Text
pAppId_
Text
pBackendEnvironmentName_
Text
pResourceName_ =
DeleteBackendAuth'
{ $sel:appId:DeleteBackendAuth' :: Text
appId = Text
pAppId_,
$sel:backendEnvironmentName:DeleteBackendAuth' :: Text
backendEnvironmentName = Text
pBackendEnvironmentName_,
$sel:resourceName:DeleteBackendAuth' :: Text
resourceName = Text
pResourceName_
}
deleteBackendAuth_appId :: Lens.Lens' DeleteBackendAuth Prelude.Text
deleteBackendAuth_appId :: Lens' DeleteBackendAuth Text
deleteBackendAuth_appId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBackendAuth' {Text
appId :: Text
$sel:appId:DeleteBackendAuth' :: DeleteBackendAuth -> Text
appId} -> Text
appId) (\s :: DeleteBackendAuth
s@DeleteBackendAuth' {} Text
a -> DeleteBackendAuth
s {$sel:appId:DeleteBackendAuth' :: Text
appId = Text
a} :: DeleteBackendAuth)
deleteBackendAuth_backendEnvironmentName :: Lens.Lens' DeleteBackendAuth Prelude.Text
deleteBackendAuth_backendEnvironmentName :: Lens' DeleteBackendAuth Text
deleteBackendAuth_backendEnvironmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBackendAuth' {Text
backendEnvironmentName :: Text
$sel:backendEnvironmentName:DeleteBackendAuth' :: DeleteBackendAuth -> Text
backendEnvironmentName} -> Text
backendEnvironmentName) (\s :: DeleteBackendAuth
s@DeleteBackendAuth' {} Text
a -> DeleteBackendAuth
s {$sel:backendEnvironmentName:DeleteBackendAuth' :: Text
backendEnvironmentName = Text
a} :: DeleteBackendAuth)
deleteBackendAuth_resourceName :: Lens.Lens' DeleteBackendAuth Prelude.Text
deleteBackendAuth_resourceName :: Lens' DeleteBackendAuth Text
deleteBackendAuth_resourceName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBackendAuth' {Text
resourceName :: Text
$sel:resourceName:DeleteBackendAuth' :: DeleteBackendAuth -> Text
resourceName} -> Text
resourceName) (\s :: DeleteBackendAuth
s@DeleteBackendAuth' {} Text
a -> DeleteBackendAuth
s {$sel:resourceName:DeleteBackendAuth' :: Text
resourceName = Text
a} :: DeleteBackendAuth)
instance Core.AWSRequest DeleteBackendAuth where
type
AWSResponse DeleteBackendAuth =
DeleteBackendAuthResponse
request :: (Service -> Service)
-> DeleteBackendAuth -> Request DeleteBackendAuth
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 DeleteBackendAuth
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeleteBackendAuth)))
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
-> DeleteBackendAuthResponse
DeleteBackendAuthResponse'
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 DeleteBackendAuth where
hashWithSalt :: Int -> DeleteBackendAuth -> Int
hashWithSalt Int
_salt DeleteBackendAuth' {Text
resourceName :: Text
backendEnvironmentName :: Text
appId :: Text
$sel:resourceName:DeleteBackendAuth' :: DeleteBackendAuth -> Text
$sel:backendEnvironmentName:DeleteBackendAuth' :: DeleteBackendAuth -> Text
$sel:appId:DeleteBackendAuth' :: DeleteBackendAuth -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
appId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
backendEnvironmentName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
resourceName
instance Prelude.NFData DeleteBackendAuth where
rnf :: DeleteBackendAuth -> ()
rnf DeleteBackendAuth' {Text
resourceName :: Text
backendEnvironmentName :: Text
appId :: Text
$sel:resourceName:DeleteBackendAuth' :: DeleteBackendAuth -> Text
$sel:backendEnvironmentName:DeleteBackendAuth' :: DeleteBackendAuth -> Text
$sel:appId:DeleteBackendAuth' :: DeleteBackendAuth -> 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
backendEnvironmentName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
resourceName
instance Data.ToHeaders DeleteBackendAuth where
toHeaders :: DeleteBackendAuth -> 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 DeleteBackendAuth where
toJSON :: DeleteBackendAuth -> Value
toJSON DeleteBackendAuth' {Text
resourceName :: Text
backendEnvironmentName :: Text
appId :: Text
$sel:resourceName:DeleteBackendAuth' :: DeleteBackendAuth -> Text
$sel:backendEnvironmentName:DeleteBackendAuth' :: DeleteBackendAuth -> Text
$sel:appId:DeleteBackendAuth' :: DeleteBackendAuth -> 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)]
)
instance Data.ToPath DeleteBackendAuth where
toPath :: DeleteBackendAuth -> ByteString
toPath DeleteBackendAuth' {Text
resourceName :: Text
backendEnvironmentName :: Text
appId :: Text
$sel:resourceName:DeleteBackendAuth' :: DeleteBackendAuth -> Text
$sel:backendEnvironmentName:DeleteBackendAuth' :: DeleteBackendAuth -> Text
$sel:appId:DeleteBackendAuth' :: DeleteBackendAuth -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/backend/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
appId,
ByteString
"/auth/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
backendEnvironmentName,
ByteString
"/remove"
]
instance Data.ToQuery DeleteBackendAuth where
toQuery :: DeleteBackendAuth -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DeleteBackendAuthResponse = DeleteBackendAuthResponse'
{
DeleteBackendAuthResponse -> Maybe Text
appId :: Prelude.Maybe Prelude.Text,
DeleteBackendAuthResponse -> Maybe Text
backendEnvironmentName :: Prelude.Maybe Prelude.Text,
DeleteBackendAuthResponse -> Maybe Text
error :: Prelude.Maybe Prelude.Text,
DeleteBackendAuthResponse -> Maybe Text
jobId :: Prelude.Maybe Prelude.Text,
DeleteBackendAuthResponse -> Maybe Text
operation :: Prelude.Maybe Prelude.Text,
DeleteBackendAuthResponse -> Maybe Text
status :: Prelude.Maybe Prelude.Text,
DeleteBackendAuthResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeleteBackendAuthResponse -> DeleteBackendAuthResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeleteBackendAuthResponse -> DeleteBackendAuthResponse -> Bool
$c/= :: DeleteBackendAuthResponse -> DeleteBackendAuthResponse -> Bool
== :: DeleteBackendAuthResponse -> DeleteBackendAuthResponse -> Bool
$c== :: DeleteBackendAuthResponse -> DeleteBackendAuthResponse -> Bool
Prelude.Eq, ReadPrec [DeleteBackendAuthResponse]
ReadPrec DeleteBackendAuthResponse
Int -> ReadS DeleteBackendAuthResponse
ReadS [DeleteBackendAuthResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeleteBackendAuthResponse]
$creadListPrec :: ReadPrec [DeleteBackendAuthResponse]
readPrec :: ReadPrec DeleteBackendAuthResponse
$creadPrec :: ReadPrec DeleteBackendAuthResponse
readList :: ReadS [DeleteBackendAuthResponse]
$creadList :: ReadS [DeleteBackendAuthResponse]
readsPrec :: Int -> ReadS DeleteBackendAuthResponse
$creadsPrec :: Int -> ReadS DeleteBackendAuthResponse
Prelude.Read, Int -> DeleteBackendAuthResponse -> ShowS
[DeleteBackendAuthResponse] -> ShowS
DeleteBackendAuthResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeleteBackendAuthResponse] -> ShowS
$cshowList :: [DeleteBackendAuthResponse] -> ShowS
show :: DeleteBackendAuthResponse -> String
$cshow :: DeleteBackendAuthResponse -> String
showsPrec :: Int -> DeleteBackendAuthResponse -> ShowS
$cshowsPrec :: Int -> DeleteBackendAuthResponse -> ShowS
Prelude.Show, forall x.
Rep DeleteBackendAuthResponse x -> DeleteBackendAuthResponse
forall x.
DeleteBackendAuthResponse -> Rep DeleteBackendAuthResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeleteBackendAuthResponse x -> DeleteBackendAuthResponse
$cfrom :: forall x.
DeleteBackendAuthResponse -> Rep DeleteBackendAuthResponse x
Prelude.Generic)
newDeleteBackendAuthResponse ::
Prelude.Int ->
DeleteBackendAuthResponse
newDeleteBackendAuthResponse :: Int -> DeleteBackendAuthResponse
newDeleteBackendAuthResponse Int
pHttpStatus_ =
DeleteBackendAuthResponse'
{ $sel:appId:DeleteBackendAuthResponse' :: Maybe Text
appId = forall a. Maybe a
Prelude.Nothing,
$sel:backendEnvironmentName:DeleteBackendAuthResponse' :: Maybe Text
backendEnvironmentName = forall a. Maybe a
Prelude.Nothing,
$sel:error:DeleteBackendAuthResponse' :: Maybe Text
error = forall a. Maybe a
Prelude.Nothing,
$sel:jobId:DeleteBackendAuthResponse' :: Maybe Text
jobId = forall a. Maybe a
Prelude.Nothing,
$sel:operation:DeleteBackendAuthResponse' :: Maybe Text
operation = forall a. Maybe a
Prelude.Nothing,
$sel:status:DeleteBackendAuthResponse' :: Maybe Text
status = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeleteBackendAuthResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deleteBackendAuthResponse_appId :: Lens.Lens' DeleteBackendAuthResponse (Prelude.Maybe Prelude.Text)
deleteBackendAuthResponse_appId :: Lens' DeleteBackendAuthResponse (Maybe Text)
deleteBackendAuthResponse_appId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBackendAuthResponse' {Maybe Text
appId :: Maybe Text
$sel:appId:DeleteBackendAuthResponse' :: DeleteBackendAuthResponse -> Maybe Text
appId} -> Maybe Text
appId) (\s :: DeleteBackendAuthResponse
s@DeleteBackendAuthResponse' {} Maybe Text
a -> DeleteBackendAuthResponse
s {$sel:appId:DeleteBackendAuthResponse' :: Maybe Text
appId = Maybe Text
a} :: DeleteBackendAuthResponse)
deleteBackendAuthResponse_backendEnvironmentName :: Lens.Lens' DeleteBackendAuthResponse (Prelude.Maybe Prelude.Text)
deleteBackendAuthResponse_backendEnvironmentName :: Lens' DeleteBackendAuthResponse (Maybe Text)
deleteBackendAuthResponse_backendEnvironmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBackendAuthResponse' {Maybe Text
backendEnvironmentName :: Maybe Text
$sel:backendEnvironmentName:DeleteBackendAuthResponse' :: DeleteBackendAuthResponse -> Maybe Text
backendEnvironmentName} -> Maybe Text
backendEnvironmentName) (\s :: DeleteBackendAuthResponse
s@DeleteBackendAuthResponse' {} Maybe Text
a -> DeleteBackendAuthResponse
s {$sel:backendEnvironmentName:DeleteBackendAuthResponse' :: Maybe Text
backendEnvironmentName = Maybe Text
a} :: DeleteBackendAuthResponse)
deleteBackendAuthResponse_error :: Lens.Lens' DeleteBackendAuthResponse (Prelude.Maybe Prelude.Text)
deleteBackendAuthResponse_error :: Lens' DeleteBackendAuthResponse (Maybe Text)
deleteBackendAuthResponse_error = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBackendAuthResponse' {Maybe Text
error :: Maybe Text
$sel:error:DeleteBackendAuthResponse' :: DeleteBackendAuthResponse -> Maybe Text
error} -> Maybe Text
error) (\s :: DeleteBackendAuthResponse
s@DeleteBackendAuthResponse' {} Maybe Text
a -> DeleteBackendAuthResponse
s {$sel:error:DeleteBackendAuthResponse' :: Maybe Text
error = Maybe Text
a} :: DeleteBackendAuthResponse)
deleteBackendAuthResponse_jobId :: Lens.Lens' DeleteBackendAuthResponse (Prelude.Maybe Prelude.Text)
deleteBackendAuthResponse_jobId :: Lens' DeleteBackendAuthResponse (Maybe Text)
deleteBackendAuthResponse_jobId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBackendAuthResponse' {Maybe Text
jobId :: Maybe Text
$sel:jobId:DeleteBackendAuthResponse' :: DeleteBackendAuthResponse -> Maybe Text
jobId} -> Maybe Text
jobId) (\s :: DeleteBackendAuthResponse
s@DeleteBackendAuthResponse' {} Maybe Text
a -> DeleteBackendAuthResponse
s {$sel:jobId:DeleteBackendAuthResponse' :: Maybe Text
jobId = Maybe Text
a} :: DeleteBackendAuthResponse)
deleteBackendAuthResponse_operation :: Lens.Lens' DeleteBackendAuthResponse (Prelude.Maybe Prelude.Text)
deleteBackendAuthResponse_operation :: Lens' DeleteBackendAuthResponse (Maybe Text)
deleteBackendAuthResponse_operation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBackendAuthResponse' {Maybe Text
operation :: Maybe Text
$sel:operation:DeleteBackendAuthResponse' :: DeleteBackendAuthResponse -> Maybe Text
operation} -> Maybe Text
operation) (\s :: DeleteBackendAuthResponse
s@DeleteBackendAuthResponse' {} Maybe Text
a -> DeleteBackendAuthResponse
s {$sel:operation:DeleteBackendAuthResponse' :: Maybe Text
operation = Maybe Text
a} :: DeleteBackendAuthResponse)
deleteBackendAuthResponse_status :: Lens.Lens' DeleteBackendAuthResponse (Prelude.Maybe Prelude.Text)
deleteBackendAuthResponse_status :: Lens' DeleteBackendAuthResponse (Maybe Text)
deleteBackendAuthResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBackendAuthResponse' {Maybe Text
status :: Maybe Text
$sel:status:DeleteBackendAuthResponse' :: DeleteBackendAuthResponse -> Maybe Text
status} -> Maybe Text
status) (\s :: DeleteBackendAuthResponse
s@DeleteBackendAuthResponse' {} Maybe Text
a -> DeleteBackendAuthResponse
s {$sel:status:DeleteBackendAuthResponse' :: Maybe Text
status = Maybe Text
a} :: DeleteBackendAuthResponse)
deleteBackendAuthResponse_httpStatus :: Lens.Lens' DeleteBackendAuthResponse Prelude.Int
deleteBackendAuthResponse_httpStatus :: Lens' DeleteBackendAuthResponse Int
deleteBackendAuthResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeleteBackendAuthResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeleteBackendAuthResponse' :: DeleteBackendAuthResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeleteBackendAuthResponse
s@DeleteBackendAuthResponse' {} Int
a -> DeleteBackendAuthResponse
s {$sel:httpStatus:DeleteBackendAuthResponse' :: Int
httpStatus = Int
a} :: DeleteBackendAuthResponse)
instance Prelude.NFData DeleteBackendAuthResponse where
rnf :: DeleteBackendAuthResponse -> ()
rnf DeleteBackendAuthResponse' {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:DeleteBackendAuthResponse' :: DeleteBackendAuthResponse -> Int
$sel:status:DeleteBackendAuthResponse' :: DeleteBackendAuthResponse -> Maybe Text
$sel:operation:DeleteBackendAuthResponse' :: DeleteBackendAuthResponse -> Maybe Text
$sel:jobId:DeleteBackendAuthResponse' :: DeleteBackendAuthResponse -> Maybe Text
$sel:error:DeleteBackendAuthResponse' :: DeleteBackendAuthResponse -> Maybe Text
$sel:backendEnvironmentName:DeleteBackendAuthResponse' :: DeleteBackendAuthResponse -> Maybe Text
$sel:appId:DeleteBackendAuthResponse' :: DeleteBackendAuthResponse -> 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