{-# 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.MediaConnect.UpdateFlowEntitlement
(
UpdateFlowEntitlement (..),
newUpdateFlowEntitlement,
updateFlowEntitlement_description,
updateFlowEntitlement_encryption,
updateFlowEntitlement_entitlementStatus,
updateFlowEntitlement_subscribers,
updateFlowEntitlement_flowArn,
updateFlowEntitlement_entitlementArn,
UpdateFlowEntitlementResponse (..),
newUpdateFlowEntitlementResponse,
updateFlowEntitlementResponse_entitlement,
updateFlowEntitlementResponse_flowArn,
updateFlowEntitlementResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MediaConnect.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateFlowEntitlement = UpdateFlowEntitlement'
{
UpdateFlowEntitlement -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
UpdateFlowEntitlement -> Maybe UpdateEncryption
encryption :: Prelude.Maybe UpdateEncryption,
UpdateFlowEntitlement -> Maybe EntitlementStatus
entitlementStatus :: Prelude.Maybe EntitlementStatus,
UpdateFlowEntitlement -> Maybe [Text]
subscribers :: Prelude.Maybe [Prelude.Text],
UpdateFlowEntitlement -> Text
flowArn :: Prelude.Text,
UpdateFlowEntitlement -> Text
entitlementArn :: Prelude.Text
}
deriving (UpdateFlowEntitlement -> UpdateFlowEntitlement -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateFlowEntitlement -> UpdateFlowEntitlement -> Bool
$c/= :: UpdateFlowEntitlement -> UpdateFlowEntitlement -> Bool
== :: UpdateFlowEntitlement -> UpdateFlowEntitlement -> Bool
$c== :: UpdateFlowEntitlement -> UpdateFlowEntitlement -> Bool
Prelude.Eq, ReadPrec [UpdateFlowEntitlement]
ReadPrec UpdateFlowEntitlement
Int -> ReadS UpdateFlowEntitlement
ReadS [UpdateFlowEntitlement]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateFlowEntitlement]
$creadListPrec :: ReadPrec [UpdateFlowEntitlement]
readPrec :: ReadPrec UpdateFlowEntitlement
$creadPrec :: ReadPrec UpdateFlowEntitlement
readList :: ReadS [UpdateFlowEntitlement]
$creadList :: ReadS [UpdateFlowEntitlement]
readsPrec :: Int -> ReadS UpdateFlowEntitlement
$creadsPrec :: Int -> ReadS UpdateFlowEntitlement
Prelude.Read, Int -> UpdateFlowEntitlement -> ShowS
[UpdateFlowEntitlement] -> ShowS
UpdateFlowEntitlement -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateFlowEntitlement] -> ShowS
$cshowList :: [UpdateFlowEntitlement] -> ShowS
show :: UpdateFlowEntitlement -> String
$cshow :: UpdateFlowEntitlement -> String
showsPrec :: Int -> UpdateFlowEntitlement -> ShowS
$cshowsPrec :: Int -> UpdateFlowEntitlement -> ShowS
Prelude.Show, forall x. Rep UpdateFlowEntitlement x -> UpdateFlowEntitlement
forall x. UpdateFlowEntitlement -> Rep UpdateFlowEntitlement x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateFlowEntitlement x -> UpdateFlowEntitlement
$cfrom :: forall x. UpdateFlowEntitlement -> Rep UpdateFlowEntitlement x
Prelude.Generic)
newUpdateFlowEntitlement ::
Prelude.Text ->
Prelude.Text ->
UpdateFlowEntitlement
newUpdateFlowEntitlement :: Text -> Text -> UpdateFlowEntitlement
newUpdateFlowEntitlement Text
pFlowArn_ Text
pEntitlementArn_ =
UpdateFlowEntitlement'
{ $sel:description:UpdateFlowEntitlement' :: Maybe Text
description =
forall a. Maybe a
Prelude.Nothing,
$sel:encryption:UpdateFlowEntitlement' :: Maybe UpdateEncryption
encryption = forall a. Maybe a
Prelude.Nothing,
$sel:entitlementStatus:UpdateFlowEntitlement' :: Maybe EntitlementStatus
entitlementStatus = forall a. Maybe a
Prelude.Nothing,
$sel:subscribers:UpdateFlowEntitlement' :: Maybe [Text]
subscribers = forall a. Maybe a
Prelude.Nothing,
$sel:flowArn:UpdateFlowEntitlement' :: Text
flowArn = Text
pFlowArn_,
$sel:entitlementArn:UpdateFlowEntitlement' :: Text
entitlementArn = Text
pEntitlementArn_
}
updateFlowEntitlement_description :: Lens.Lens' UpdateFlowEntitlement (Prelude.Maybe Prelude.Text)
updateFlowEntitlement_description :: Lens' UpdateFlowEntitlement (Maybe Text)
updateFlowEntitlement_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFlowEntitlement' {Maybe Text
description :: Maybe Text
$sel:description:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe Text
description} -> Maybe Text
description) (\s :: UpdateFlowEntitlement
s@UpdateFlowEntitlement' {} Maybe Text
a -> UpdateFlowEntitlement
s {$sel:description:UpdateFlowEntitlement' :: Maybe Text
description = Maybe Text
a} :: UpdateFlowEntitlement)
updateFlowEntitlement_encryption :: Lens.Lens' UpdateFlowEntitlement (Prelude.Maybe UpdateEncryption)
updateFlowEntitlement_encryption :: Lens' UpdateFlowEntitlement (Maybe UpdateEncryption)
updateFlowEntitlement_encryption = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFlowEntitlement' {Maybe UpdateEncryption
encryption :: Maybe UpdateEncryption
$sel:encryption:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe UpdateEncryption
encryption} -> Maybe UpdateEncryption
encryption) (\s :: UpdateFlowEntitlement
s@UpdateFlowEntitlement' {} Maybe UpdateEncryption
a -> UpdateFlowEntitlement
s {$sel:encryption:UpdateFlowEntitlement' :: Maybe UpdateEncryption
encryption = Maybe UpdateEncryption
a} :: UpdateFlowEntitlement)
updateFlowEntitlement_entitlementStatus :: Lens.Lens' UpdateFlowEntitlement (Prelude.Maybe EntitlementStatus)
updateFlowEntitlement_entitlementStatus :: Lens' UpdateFlowEntitlement (Maybe EntitlementStatus)
updateFlowEntitlement_entitlementStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFlowEntitlement' {Maybe EntitlementStatus
entitlementStatus :: Maybe EntitlementStatus
$sel:entitlementStatus:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe EntitlementStatus
entitlementStatus} -> Maybe EntitlementStatus
entitlementStatus) (\s :: UpdateFlowEntitlement
s@UpdateFlowEntitlement' {} Maybe EntitlementStatus
a -> UpdateFlowEntitlement
s {$sel:entitlementStatus:UpdateFlowEntitlement' :: Maybe EntitlementStatus
entitlementStatus = Maybe EntitlementStatus
a} :: UpdateFlowEntitlement)
updateFlowEntitlement_subscribers :: Lens.Lens' UpdateFlowEntitlement (Prelude.Maybe [Prelude.Text])
updateFlowEntitlement_subscribers :: Lens' UpdateFlowEntitlement (Maybe [Text])
updateFlowEntitlement_subscribers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFlowEntitlement' {Maybe [Text]
subscribers :: Maybe [Text]
$sel:subscribers:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe [Text]
subscribers} -> Maybe [Text]
subscribers) (\s :: UpdateFlowEntitlement
s@UpdateFlowEntitlement' {} Maybe [Text]
a -> UpdateFlowEntitlement
s {$sel:subscribers:UpdateFlowEntitlement' :: Maybe [Text]
subscribers = Maybe [Text]
a} :: UpdateFlowEntitlement) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
updateFlowEntitlement_flowArn :: Lens.Lens' UpdateFlowEntitlement Prelude.Text
updateFlowEntitlement_flowArn :: Lens' UpdateFlowEntitlement Text
updateFlowEntitlement_flowArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFlowEntitlement' {Text
flowArn :: Text
$sel:flowArn:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Text
flowArn} -> Text
flowArn) (\s :: UpdateFlowEntitlement
s@UpdateFlowEntitlement' {} Text
a -> UpdateFlowEntitlement
s {$sel:flowArn:UpdateFlowEntitlement' :: Text
flowArn = Text
a} :: UpdateFlowEntitlement)
updateFlowEntitlement_entitlementArn :: Lens.Lens' UpdateFlowEntitlement Prelude.Text
updateFlowEntitlement_entitlementArn :: Lens' UpdateFlowEntitlement Text
updateFlowEntitlement_entitlementArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFlowEntitlement' {Text
entitlementArn :: Text
$sel:entitlementArn:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Text
entitlementArn} -> Text
entitlementArn) (\s :: UpdateFlowEntitlement
s@UpdateFlowEntitlement' {} Text
a -> UpdateFlowEntitlement
s {$sel:entitlementArn:UpdateFlowEntitlement' :: Text
entitlementArn = Text
a} :: UpdateFlowEntitlement)
instance Core.AWSRequest UpdateFlowEntitlement where
type
AWSResponse UpdateFlowEntitlement =
UpdateFlowEntitlementResponse
request :: (Service -> Service)
-> UpdateFlowEntitlement -> Request UpdateFlowEntitlement
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdateFlowEntitlement
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateFlowEntitlement)))
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 Entitlement
-> Maybe Text -> Int -> UpdateFlowEntitlementResponse
UpdateFlowEntitlementResponse'
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
"entitlement")
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
"flowArn")
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 UpdateFlowEntitlement where
hashWithSalt :: Int -> UpdateFlowEntitlement -> Int
hashWithSalt Int
_salt UpdateFlowEntitlement' {Maybe [Text]
Maybe Text
Maybe EntitlementStatus
Maybe UpdateEncryption
Text
entitlementArn :: Text
flowArn :: Text
subscribers :: Maybe [Text]
entitlementStatus :: Maybe EntitlementStatus
encryption :: Maybe UpdateEncryption
description :: Maybe Text
$sel:entitlementArn:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Text
$sel:flowArn:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Text
$sel:subscribers:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe [Text]
$sel:entitlementStatus:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe EntitlementStatus
$sel:encryption:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe UpdateEncryption
$sel:description:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe UpdateEncryption
encryption
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe EntitlementStatus
entitlementStatus
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
subscribers
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
flowArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
entitlementArn
instance Prelude.NFData UpdateFlowEntitlement where
rnf :: UpdateFlowEntitlement -> ()
rnf UpdateFlowEntitlement' {Maybe [Text]
Maybe Text
Maybe EntitlementStatus
Maybe UpdateEncryption
Text
entitlementArn :: Text
flowArn :: Text
subscribers :: Maybe [Text]
entitlementStatus :: Maybe EntitlementStatus
encryption :: Maybe UpdateEncryption
description :: Maybe Text
$sel:entitlementArn:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Text
$sel:flowArn:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Text
$sel:subscribers:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe [Text]
$sel:entitlementStatus:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe EntitlementStatus
$sel:encryption:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe UpdateEncryption
$sel:description:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe UpdateEncryption
encryption
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe EntitlementStatus
entitlementStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
subscribers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
flowArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
entitlementArn
instance Data.ToHeaders UpdateFlowEntitlement where
toHeaders :: UpdateFlowEntitlement -> 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 UpdateFlowEntitlement where
toJSON :: UpdateFlowEntitlement -> Value
toJSON UpdateFlowEntitlement' {Maybe [Text]
Maybe Text
Maybe EntitlementStatus
Maybe UpdateEncryption
Text
entitlementArn :: Text
flowArn :: Text
subscribers :: Maybe [Text]
entitlementStatus :: Maybe EntitlementStatus
encryption :: Maybe UpdateEncryption
description :: Maybe Text
$sel:entitlementArn:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Text
$sel:flowArn:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Text
$sel:subscribers:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe [Text]
$sel:entitlementStatus:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe EntitlementStatus
$sel:encryption:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe UpdateEncryption
$sel:description:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"description" 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
description,
(Key
"encryption" 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 UpdateEncryption
encryption,
(Key
"entitlementStatus" 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 EntitlementStatus
entitlementStatus,
(Key
"subscribers" 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]
subscribers
]
)
instance Data.ToPath UpdateFlowEntitlement where
toPath :: UpdateFlowEntitlement -> ByteString
toPath UpdateFlowEntitlement' {Maybe [Text]
Maybe Text
Maybe EntitlementStatus
Maybe UpdateEncryption
Text
entitlementArn :: Text
flowArn :: Text
subscribers :: Maybe [Text]
entitlementStatus :: Maybe EntitlementStatus
encryption :: Maybe UpdateEncryption
description :: Maybe Text
$sel:entitlementArn:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Text
$sel:flowArn:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Text
$sel:subscribers:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe [Text]
$sel:entitlementStatus:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe EntitlementStatus
$sel:encryption:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe UpdateEncryption
$sel:description:UpdateFlowEntitlement' :: UpdateFlowEntitlement -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/v1/flows/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
flowArn,
ByteString
"/entitlements/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
entitlementArn
]
instance Data.ToQuery UpdateFlowEntitlement where
toQuery :: UpdateFlowEntitlement -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateFlowEntitlementResponse = UpdateFlowEntitlementResponse'
{
UpdateFlowEntitlementResponse -> Maybe Entitlement
entitlement :: Prelude.Maybe Entitlement,
UpdateFlowEntitlementResponse -> Maybe Text
flowArn :: Prelude.Maybe Prelude.Text,
UpdateFlowEntitlementResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateFlowEntitlementResponse
-> UpdateFlowEntitlementResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateFlowEntitlementResponse
-> UpdateFlowEntitlementResponse -> Bool
$c/= :: UpdateFlowEntitlementResponse
-> UpdateFlowEntitlementResponse -> Bool
== :: UpdateFlowEntitlementResponse
-> UpdateFlowEntitlementResponse -> Bool
$c== :: UpdateFlowEntitlementResponse
-> UpdateFlowEntitlementResponse -> Bool
Prelude.Eq, ReadPrec [UpdateFlowEntitlementResponse]
ReadPrec UpdateFlowEntitlementResponse
Int -> ReadS UpdateFlowEntitlementResponse
ReadS [UpdateFlowEntitlementResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateFlowEntitlementResponse]
$creadListPrec :: ReadPrec [UpdateFlowEntitlementResponse]
readPrec :: ReadPrec UpdateFlowEntitlementResponse
$creadPrec :: ReadPrec UpdateFlowEntitlementResponse
readList :: ReadS [UpdateFlowEntitlementResponse]
$creadList :: ReadS [UpdateFlowEntitlementResponse]
readsPrec :: Int -> ReadS UpdateFlowEntitlementResponse
$creadsPrec :: Int -> ReadS UpdateFlowEntitlementResponse
Prelude.Read, Int -> UpdateFlowEntitlementResponse -> ShowS
[UpdateFlowEntitlementResponse] -> ShowS
UpdateFlowEntitlementResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateFlowEntitlementResponse] -> ShowS
$cshowList :: [UpdateFlowEntitlementResponse] -> ShowS
show :: UpdateFlowEntitlementResponse -> String
$cshow :: UpdateFlowEntitlementResponse -> String
showsPrec :: Int -> UpdateFlowEntitlementResponse -> ShowS
$cshowsPrec :: Int -> UpdateFlowEntitlementResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateFlowEntitlementResponse x
-> UpdateFlowEntitlementResponse
forall x.
UpdateFlowEntitlementResponse
-> Rep UpdateFlowEntitlementResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateFlowEntitlementResponse x
-> UpdateFlowEntitlementResponse
$cfrom :: forall x.
UpdateFlowEntitlementResponse
-> Rep UpdateFlowEntitlementResponse x
Prelude.Generic)
newUpdateFlowEntitlementResponse ::
Prelude.Int ->
UpdateFlowEntitlementResponse
newUpdateFlowEntitlementResponse :: Int -> UpdateFlowEntitlementResponse
newUpdateFlowEntitlementResponse Int
pHttpStatus_ =
UpdateFlowEntitlementResponse'
{ $sel:entitlement:UpdateFlowEntitlementResponse' :: Maybe Entitlement
entitlement =
forall a. Maybe a
Prelude.Nothing,
$sel:flowArn:UpdateFlowEntitlementResponse' :: Maybe Text
flowArn = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateFlowEntitlementResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateFlowEntitlementResponse_entitlement :: Lens.Lens' UpdateFlowEntitlementResponse (Prelude.Maybe Entitlement)
updateFlowEntitlementResponse_entitlement :: Lens' UpdateFlowEntitlementResponse (Maybe Entitlement)
updateFlowEntitlementResponse_entitlement = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFlowEntitlementResponse' {Maybe Entitlement
entitlement :: Maybe Entitlement
$sel:entitlement:UpdateFlowEntitlementResponse' :: UpdateFlowEntitlementResponse -> Maybe Entitlement
entitlement} -> Maybe Entitlement
entitlement) (\s :: UpdateFlowEntitlementResponse
s@UpdateFlowEntitlementResponse' {} Maybe Entitlement
a -> UpdateFlowEntitlementResponse
s {$sel:entitlement:UpdateFlowEntitlementResponse' :: Maybe Entitlement
entitlement = Maybe Entitlement
a} :: UpdateFlowEntitlementResponse)
updateFlowEntitlementResponse_flowArn :: Lens.Lens' UpdateFlowEntitlementResponse (Prelude.Maybe Prelude.Text)
updateFlowEntitlementResponse_flowArn :: Lens' UpdateFlowEntitlementResponse (Maybe Text)
updateFlowEntitlementResponse_flowArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFlowEntitlementResponse' {Maybe Text
flowArn :: Maybe Text
$sel:flowArn:UpdateFlowEntitlementResponse' :: UpdateFlowEntitlementResponse -> Maybe Text
flowArn} -> Maybe Text
flowArn) (\s :: UpdateFlowEntitlementResponse
s@UpdateFlowEntitlementResponse' {} Maybe Text
a -> UpdateFlowEntitlementResponse
s {$sel:flowArn:UpdateFlowEntitlementResponse' :: Maybe Text
flowArn = Maybe Text
a} :: UpdateFlowEntitlementResponse)
updateFlowEntitlementResponse_httpStatus :: Lens.Lens' UpdateFlowEntitlementResponse Prelude.Int
updateFlowEntitlementResponse_httpStatus :: Lens' UpdateFlowEntitlementResponse Int
updateFlowEntitlementResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateFlowEntitlementResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateFlowEntitlementResponse' :: UpdateFlowEntitlementResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateFlowEntitlementResponse
s@UpdateFlowEntitlementResponse' {} Int
a -> UpdateFlowEntitlementResponse
s {$sel:httpStatus:UpdateFlowEntitlementResponse' :: Int
httpStatus = Int
a} :: UpdateFlowEntitlementResponse)
instance Prelude.NFData UpdateFlowEntitlementResponse where
rnf :: UpdateFlowEntitlementResponse -> ()
rnf UpdateFlowEntitlementResponse' {Int
Maybe Text
Maybe Entitlement
httpStatus :: Int
flowArn :: Maybe Text
entitlement :: Maybe Entitlement
$sel:httpStatus:UpdateFlowEntitlementResponse' :: UpdateFlowEntitlementResponse -> Int
$sel:flowArn:UpdateFlowEntitlementResponse' :: UpdateFlowEntitlementResponse -> Maybe Text
$sel:entitlement:UpdateFlowEntitlementResponse' :: UpdateFlowEntitlementResponse -> Maybe Entitlement
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Entitlement
entitlement
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
flowArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus