{-# 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.ServiceCatalog.ExecuteProvisionedProductServiceAction
(
ExecuteProvisionedProductServiceAction (..),
newExecuteProvisionedProductServiceAction,
executeProvisionedProductServiceAction_acceptLanguage,
executeProvisionedProductServiceAction_parameters,
executeProvisionedProductServiceAction_provisionedProductId,
executeProvisionedProductServiceAction_serviceActionId,
executeProvisionedProductServiceAction_executeToken,
ExecuteProvisionedProductServiceActionResponse (..),
newExecuteProvisionedProductServiceActionResponse,
executeProvisionedProductServiceActionResponse_recordDetail,
executeProvisionedProductServiceActionResponse_httpStatus,
)
where
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
import Amazonka.ServiceCatalog.Types
data ExecuteProvisionedProductServiceAction = ExecuteProvisionedProductServiceAction'
{
ExecuteProvisionedProductServiceAction -> Maybe Text
acceptLanguage :: Prelude.Maybe Prelude.Text,
ExecuteProvisionedProductServiceAction
-> Maybe (HashMap Text [Text])
parameters :: Prelude.Maybe (Prelude.HashMap Prelude.Text [Prelude.Text]),
ExecuteProvisionedProductServiceAction -> Text
provisionedProductId :: Prelude.Text,
ExecuteProvisionedProductServiceAction -> Text
serviceActionId :: Prelude.Text,
ExecuteProvisionedProductServiceAction -> Text
executeToken :: Prelude.Text
}
deriving (ExecuteProvisionedProductServiceAction
-> ExecuteProvisionedProductServiceAction -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ExecuteProvisionedProductServiceAction
-> ExecuteProvisionedProductServiceAction -> Bool
$c/= :: ExecuteProvisionedProductServiceAction
-> ExecuteProvisionedProductServiceAction -> Bool
== :: ExecuteProvisionedProductServiceAction
-> ExecuteProvisionedProductServiceAction -> Bool
$c== :: ExecuteProvisionedProductServiceAction
-> ExecuteProvisionedProductServiceAction -> Bool
Prelude.Eq, ReadPrec [ExecuteProvisionedProductServiceAction]
ReadPrec ExecuteProvisionedProductServiceAction
Int -> ReadS ExecuteProvisionedProductServiceAction
ReadS [ExecuteProvisionedProductServiceAction]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ExecuteProvisionedProductServiceAction]
$creadListPrec :: ReadPrec [ExecuteProvisionedProductServiceAction]
readPrec :: ReadPrec ExecuteProvisionedProductServiceAction
$creadPrec :: ReadPrec ExecuteProvisionedProductServiceAction
readList :: ReadS [ExecuteProvisionedProductServiceAction]
$creadList :: ReadS [ExecuteProvisionedProductServiceAction]
readsPrec :: Int -> ReadS ExecuteProvisionedProductServiceAction
$creadsPrec :: Int -> ReadS ExecuteProvisionedProductServiceAction
Prelude.Read, Int -> ExecuteProvisionedProductServiceAction -> ShowS
[ExecuteProvisionedProductServiceAction] -> ShowS
ExecuteProvisionedProductServiceAction -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ExecuteProvisionedProductServiceAction] -> ShowS
$cshowList :: [ExecuteProvisionedProductServiceAction] -> ShowS
show :: ExecuteProvisionedProductServiceAction -> String
$cshow :: ExecuteProvisionedProductServiceAction -> String
showsPrec :: Int -> ExecuteProvisionedProductServiceAction -> ShowS
$cshowsPrec :: Int -> ExecuteProvisionedProductServiceAction -> ShowS
Prelude.Show, forall x.
Rep ExecuteProvisionedProductServiceAction x
-> ExecuteProvisionedProductServiceAction
forall x.
ExecuteProvisionedProductServiceAction
-> Rep ExecuteProvisionedProductServiceAction x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ExecuteProvisionedProductServiceAction x
-> ExecuteProvisionedProductServiceAction
$cfrom :: forall x.
ExecuteProvisionedProductServiceAction
-> Rep ExecuteProvisionedProductServiceAction x
Prelude.Generic)
newExecuteProvisionedProductServiceAction ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
ExecuteProvisionedProductServiceAction
newExecuteProvisionedProductServiceAction :: Text -> Text -> Text -> ExecuteProvisionedProductServiceAction
newExecuteProvisionedProductServiceAction
Text
pProvisionedProductId_
Text
pServiceActionId_
Text
pExecuteToken_ =
ExecuteProvisionedProductServiceAction'
{ $sel:acceptLanguage:ExecuteProvisionedProductServiceAction' :: Maybe Text
acceptLanguage =
forall a. Maybe a
Prelude.Nothing,
$sel:parameters:ExecuteProvisionedProductServiceAction' :: Maybe (HashMap Text [Text])
parameters = forall a. Maybe a
Prelude.Nothing,
$sel:provisionedProductId:ExecuteProvisionedProductServiceAction' :: Text
provisionedProductId =
Text
pProvisionedProductId_,
$sel:serviceActionId:ExecuteProvisionedProductServiceAction' :: Text
serviceActionId = Text
pServiceActionId_,
$sel:executeToken:ExecuteProvisionedProductServiceAction' :: Text
executeToken = Text
pExecuteToken_
}
executeProvisionedProductServiceAction_acceptLanguage :: Lens.Lens' ExecuteProvisionedProductServiceAction (Prelude.Maybe Prelude.Text)
executeProvisionedProductServiceAction_acceptLanguage :: Lens' ExecuteProvisionedProductServiceAction (Maybe Text)
executeProvisionedProductServiceAction_acceptLanguage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ExecuteProvisionedProductServiceAction' {Maybe Text
acceptLanguage :: Maybe Text
$sel:acceptLanguage:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Maybe Text
acceptLanguage} -> Maybe Text
acceptLanguage) (\s :: ExecuteProvisionedProductServiceAction
s@ExecuteProvisionedProductServiceAction' {} Maybe Text
a -> ExecuteProvisionedProductServiceAction
s {$sel:acceptLanguage:ExecuteProvisionedProductServiceAction' :: Maybe Text
acceptLanguage = Maybe Text
a} :: ExecuteProvisionedProductServiceAction)
executeProvisionedProductServiceAction_parameters :: Lens.Lens' ExecuteProvisionedProductServiceAction (Prelude.Maybe (Prelude.HashMap Prelude.Text [Prelude.Text]))
executeProvisionedProductServiceAction_parameters :: Lens'
ExecuteProvisionedProductServiceAction
(Maybe (HashMap Text [Text]))
executeProvisionedProductServiceAction_parameters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ExecuteProvisionedProductServiceAction' {Maybe (HashMap Text [Text])
parameters :: Maybe (HashMap Text [Text])
$sel:parameters:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction
-> Maybe (HashMap Text [Text])
parameters} -> Maybe (HashMap Text [Text])
parameters) (\s :: ExecuteProvisionedProductServiceAction
s@ExecuteProvisionedProductServiceAction' {} Maybe (HashMap Text [Text])
a -> ExecuteProvisionedProductServiceAction
s {$sel:parameters:ExecuteProvisionedProductServiceAction' :: Maybe (HashMap Text [Text])
parameters = Maybe (HashMap Text [Text])
a} :: ExecuteProvisionedProductServiceAction) 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
executeProvisionedProductServiceAction_provisionedProductId :: Lens.Lens' ExecuteProvisionedProductServiceAction Prelude.Text
executeProvisionedProductServiceAction_provisionedProductId :: Lens' ExecuteProvisionedProductServiceAction Text
executeProvisionedProductServiceAction_provisionedProductId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ExecuteProvisionedProductServiceAction' {Text
provisionedProductId :: Text
$sel:provisionedProductId:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Text
provisionedProductId} -> Text
provisionedProductId) (\s :: ExecuteProvisionedProductServiceAction
s@ExecuteProvisionedProductServiceAction' {} Text
a -> ExecuteProvisionedProductServiceAction
s {$sel:provisionedProductId:ExecuteProvisionedProductServiceAction' :: Text
provisionedProductId = Text
a} :: ExecuteProvisionedProductServiceAction)
executeProvisionedProductServiceAction_serviceActionId :: Lens.Lens' ExecuteProvisionedProductServiceAction Prelude.Text
executeProvisionedProductServiceAction_serviceActionId :: Lens' ExecuteProvisionedProductServiceAction Text
executeProvisionedProductServiceAction_serviceActionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ExecuteProvisionedProductServiceAction' {Text
serviceActionId :: Text
$sel:serviceActionId:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Text
serviceActionId} -> Text
serviceActionId) (\s :: ExecuteProvisionedProductServiceAction
s@ExecuteProvisionedProductServiceAction' {} Text
a -> ExecuteProvisionedProductServiceAction
s {$sel:serviceActionId:ExecuteProvisionedProductServiceAction' :: Text
serviceActionId = Text
a} :: ExecuteProvisionedProductServiceAction)
executeProvisionedProductServiceAction_executeToken :: Lens.Lens' ExecuteProvisionedProductServiceAction Prelude.Text
executeProvisionedProductServiceAction_executeToken :: Lens' ExecuteProvisionedProductServiceAction Text
executeProvisionedProductServiceAction_executeToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ExecuteProvisionedProductServiceAction' {Text
executeToken :: Text
$sel:executeToken:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Text
executeToken} -> Text
executeToken) (\s :: ExecuteProvisionedProductServiceAction
s@ExecuteProvisionedProductServiceAction' {} Text
a -> ExecuteProvisionedProductServiceAction
s {$sel:executeToken:ExecuteProvisionedProductServiceAction' :: Text
executeToken = Text
a} :: ExecuteProvisionedProductServiceAction)
instance
Core.AWSRequest
ExecuteProvisionedProductServiceAction
where
type
AWSResponse
ExecuteProvisionedProductServiceAction =
ExecuteProvisionedProductServiceActionResponse
request :: (Service -> Service)
-> ExecuteProvisionedProductServiceAction
-> Request ExecuteProvisionedProductServiceAction
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 ExecuteProvisionedProductServiceAction
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse ExecuteProvisionedProductServiceAction)))
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 RecordDetail
-> Int -> ExecuteProvisionedProductServiceActionResponse
ExecuteProvisionedProductServiceActionResponse'
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
"RecordDetail")
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
ExecuteProvisionedProductServiceAction
where
hashWithSalt :: Int -> ExecuteProvisionedProductServiceAction -> Int
hashWithSalt
Int
_salt
ExecuteProvisionedProductServiceAction' {Maybe Text
Maybe (HashMap Text [Text])
Text
executeToken :: Text
serviceActionId :: Text
provisionedProductId :: Text
parameters :: Maybe (HashMap Text [Text])
acceptLanguage :: Maybe Text
$sel:executeToken:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Text
$sel:serviceActionId:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Text
$sel:provisionedProductId:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Text
$sel:parameters:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction
-> Maybe (HashMap Text [Text])
$sel:acceptLanguage:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
acceptLanguage
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text [Text])
parameters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
provisionedProductId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
serviceActionId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
executeToken
instance
Prelude.NFData
ExecuteProvisionedProductServiceAction
where
rnf :: ExecuteProvisionedProductServiceAction -> ()
rnf ExecuteProvisionedProductServiceAction' {Maybe Text
Maybe (HashMap Text [Text])
Text
executeToken :: Text
serviceActionId :: Text
provisionedProductId :: Text
parameters :: Maybe (HashMap Text [Text])
acceptLanguage :: Maybe Text
$sel:executeToken:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Text
$sel:serviceActionId:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Text
$sel:provisionedProductId:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Text
$sel:parameters:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction
-> Maybe (HashMap Text [Text])
$sel:acceptLanguage:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
acceptLanguage
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text [Text])
parameters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
provisionedProductId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
serviceActionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
executeToken
instance
Data.ToHeaders
ExecuteProvisionedProductServiceAction
where
toHeaders :: ExecuteProvisionedProductServiceAction -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"AWS242ServiceCatalogService.ExecuteProvisionedProductServiceAction" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance
Data.ToJSON
ExecuteProvisionedProductServiceAction
where
toJSON :: ExecuteProvisionedProductServiceAction -> Value
toJSON ExecuteProvisionedProductServiceAction' {Maybe Text
Maybe (HashMap Text [Text])
Text
executeToken :: Text
serviceActionId :: Text
provisionedProductId :: Text
parameters :: Maybe (HashMap Text [Text])
acceptLanguage :: Maybe Text
$sel:executeToken:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Text
$sel:serviceActionId:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Text
$sel:provisionedProductId:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Text
$sel:parameters:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction
-> Maybe (HashMap Text [Text])
$sel:acceptLanguage:ExecuteProvisionedProductServiceAction' :: ExecuteProvisionedProductServiceAction -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AcceptLanguage" 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
acceptLanguage,
(Key
"Parameters" 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 (HashMap Text [Text])
parameters,
forall a. a -> Maybe a
Prelude.Just
( Key
"ProvisionedProductId"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
provisionedProductId
),
forall a. a -> Maybe a
Prelude.Just
(Key
"ServiceActionId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
serviceActionId),
forall a. a -> Maybe a
Prelude.Just (Key
"ExecuteToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
executeToken)
]
)
instance
Data.ToPath
ExecuteProvisionedProductServiceAction
where
toPath :: ExecuteProvisionedProductServiceAction -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
ExecuteProvisionedProductServiceAction
where
toQuery :: ExecuteProvisionedProductServiceAction -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ExecuteProvisionedProductServiceActionResponse = ExecuteProvisionedProductServiceActionResponse'
{
ExecuteProvisionedProductServiceActionResponse
-> Maybe RecordDetail
recordDetail :: Prelude.Maybe RecordDetail,
ExecuteProvisionedProductServiceActionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ExecuteProvisionedProductServiceActionResponse
-> ExecuteProvisionedProductServiceActionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ExecuteProvisionedProductServiceActionResponse
-> ExecuteProvisionedProductServiceActionResponse -> Bool
$c/= :: ExecuteProvisionedProductServiceActionResponse
-> ExecuteProvisionedProductServiceActionResponse -> Bool
== :: ExecuteProvisionedProductServiceActionResponse
-> ExecuteProvisionedProductServiceActionResponse -> Bool
$c== :: ExecuteProvisionedProductServiceActionResponse
-> ExecuteProvisionedProductServiceActionResponse -> Bool
Prelude.Eq, ReadPrec [ExecuteProvisionedProductServiceActionResponse]
ReadPrec ExecuteProvisionedProductServiceActionResponse
Int -> ReadS ExecuteProvisionedProductServiceActionResponse
ReadS [ExecuteProvisionedProductServiceActionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ExecuteProvisionedProductServiceActionResponse]
$creadListPrec :: ReadPrec [ExecuteProvisionedProductServiceActionResponse]
readPrec :: ReadPrec ExecuteProvisionedProductServiceActionResponse
$creadPrec :: ReadPrec ExecuteProvisionedProductServiceActionResponse
readList :: ReadS [ExecuteProvisionedProductServiceActionResponse]
$creadList :: ReadS [ExecuteProvisionedProductServiceActionResponse]
readsPrec :: Int -> ReadS ExecuteProvisionedProductServiceActionResponse
$creadsPrec :: Int -> ReadS ExecuteProvisionedProductServiceActionResponse
Prelude.Read, Int -> ExecuteProvisionedProductServiceActionResponse -> ShowS
[ExecuteProvisionedProductServiceActionResponse] -> ShowS
ExecuteProvisionedProductServiceActionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ExecuteProvisionedProductServiceActionResponse] -> ShowS
$cshowList :: [ExecuteProvisionedProductServiceActionResponse] -> ShowS
show :: ExecuteProvisionedProductServiceActionResponse -> String
$cshow :: ExecuteProvisionedProductServiceActionResponse -> String
showsPrec :: Int -> ExecuteProvisionedProductServiceActionResponse -> ShowS
$cshowsPrec :: Int -> ExecuteProvisionedProductServiceActionResponse -> ShowS
Prelude.Show, forall x.
Rep ExecuteProvisionedProductServiceActionResponse x
-> ExecuteProvisionedProductServiceActionResponse
forall x.
ExecuteProvisionedProductServiceActionResponse
-> Rep ExecuteProvisionedProductServiceActionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ExecuteProvisionedProductServiceActionResponse x
-> ExecuteProvisionedProductServiceActionResponse
$cfrom :: forall x.
ExecuteProvisionedProductServiceActionResponse
-> Rep ExecuteProvisionedProductServiceActionResponse x
Prelude.Generic)
newExecuteProvisionedProductServiceActionResponse ::
Prelude.Int ->
ExecuteProvisionedProductServiceActionResponse
newExecuteProvisionedProductServiceActionResponse :: Int -> ExecuteProvisionedProductServiceActionResponse
newExecuteProvisionedProductServiceActionResponse
Int
pHttpStatus_ =
ExecuteProvisionedProductServiceActionResponse'
{ $sel:recordDetail:ExecuteProvisionedProductServiceActionResponse' :: Maybe RecordDetail
recordDetail =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ExecuteProvisionedProductServiceActionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
executeProvisionedProductServiceActionResponse_recordDetail :: Lens.Lens' ExecuteProvisionedProductServiceActionResponse (Prelude.Maybe RecordDetail)
executeProvisionedProductServiceActionResponse_recordDetail :: Lens'
ExecuteProvisionedProductServiceActionResponse (Maybe RecordDetail)
executeProvisionedProductServiceActionResponse_recordDetail = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ExecuteProvisionedProductServiceActionResponse' {Maybe RecordDetail
recordDetail :: Maybe RecordDetail
$sel:recordDetail:ExecuteProvisionedProductServiceActionResponse' :: ExecuteProvisionedProductServiceActionResponse
-> Maybe RecordDetail
recordDetail} -> Maybe RecordDetail
recordDetail) (\s :: ExecuteProvisionedProductServiceActionResponse
s@ExecuteProvisionedProductServiceActionResponse' {} Maybe RecordDetail
a -> ExecuteProvisionedProductServiceActionResponse
s {$sel:recordDetail:ExecuteProvisionedProductServiceActionResponse' :: Maybe RecordDetail
recordDetail = Maybe RecordDetail
a} :: ExecuteProvisionedProductServiceActionResponse)
executeProvisionedProductServiceActionResponse_httpStatus :: Lens.Lens' ExecuteProvisionedProductServiceActionResponse Prelude.Int
executeProvisionedProductServiceActionResponse_httpStatus :: Lens' ExecuteProvisionedProductServiceActionResponse Int
executeProvisionedProductServiceActionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ExecuteProvisionedProductServiceActionResponse' {Int
httpStatus :: Int
$sel:httpStatus:ExecuteProvisionedProductServiceActionResponse' :: ExecuteProvisionedProductServiceActionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ExecuteProvisionedProductServiceActionResponse
s@ExecuteProvisionedProductServiceActionResponse' {} Int
a -> ExecuteProvisionedProductServiceActionResponse
s {$sel:httpStatus:ExecuteProvisionedProductServiceActionResponse' :: Int
httpStatus = Int
a} :: ExecuteProvisionedProductServiceActionResponse)
instance
Prelude.NFData
ExecuteProvisionedProductServiceActionResponse
where
rnf :: ExecuteProvisionedProductServiceActionResponse -> ()
rnf
ExecuteProvisionedProductServiceActionResponse' {Int
Maybe RecordDetail
httpStatus :: Int
recordDetail :: Maybe RecordDetail
$sel:httpStatus:ExecuteProvisionedProductServiceActionResponse' :: ExecuteProvisionedProductServiceActionResponse -> Int
$sel:recordDetail:ExecuteProvisionedProductServiceActionResponse' :: ExecuteProvisionedProductServiceActionResponse
-> Maybe RecordDetail
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe RecordDetail
recordDetail
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus