{-# 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.CreatePortfolioShare
(
CreatePortfolioShare (..),
newCreatePortfolioShare,
createPortfolioShare_acceptLanguage,
createPortfolioShare_accountId,
createPortfolioShare_organizationNode,
createPortfolioShare_sharePrincipals,
createPortfolioShare_shareTagOptions,
createPortfolioShare_portfolioId,
CreatePortfolioShareResponse (..),
newCreatePortfolioShareResponse,
createPortfolioShareResponse_portfolioShareToken,
createPortfolioShareResponse_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 CreatePortfolioShare = CreatePortfolioShare'
{
CreatePortfolioShare -> Maybe Text
acceptLanguage :: Prelude.Maybe Prelude.Text,
CreatePortfolioShare -> Maybe Text
accountId :: Prelude.Maybe Prelude.Text,
CreatePortfolioShare -> Maybe OrganizationNode
organizationNode :: Prelude.Maybe OrganizationNode,
CreatePortfolioShare -> Maybe Bool
sharePrincipals :: Prelude.Maybe Prelude.Bool,
CreatePortfolioShare -> Maybe Bool
shareTagOptions :: Prelude.Maybe Prelude.Bool,
CreatePortfolioShare -> Text
portfolioId :: Prelude.Text
}
deriving (CreatePortfolioShare -> CreatePortfolioShare -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreatePortfolioShare -> CreatePortfolioShare -> Bool
$c/= :: CreatePortfolioShare -> CreatePortfolioShare -> Bool
== :: CreatePortfolioShare -> CreatePortfolioShare -> Bool
$c== :: CreatePortfolioShare -> CreatePortfolioShare -> Bool
Prelude.Eq, ReadPrec [CreatePortfolioShare]
ReadPrec CreatePortfolioShare
Int -> ReadS CreatePortfolioShare
ReadS [CreatePortfolioShare]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreatePortfolioShare]
$creadListPrec :: ReadPrec [CreatePortfolioShare]
readPrec :: ReadPrec CreatePortfolioShare
$creadPrec :: ReadPrec CreatePortfolioShare
readList :: ReadS [CreatePortfolioShare]
$creadList :: ReadS [CreatePortfolioShare]
readsPrec :: Int -> ReadS CreatePortfolioShare
$creadsPrec :: Int -> ReadS CreatePortfolioShare
Prelude.Read, Int -> CreatePortfolioShare -> ShowS
[CreatePortfolioShare] -> ShowS
CreatePortfolioShare -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreatePortfolioShare] -> ShowS
$cshowList :: [CreatePortfolioShare] -> ShowS
show :: CreatePortfolioShare -> String
$cshow :: CreatePortfolioShare -> String
showsPrec :: Int -> CreatePortfolioShare -> ShowS
$cshowsPrec :: Int -> CreatePortfolioShare -> ShowS
Prelude.Show, forall x. Rep CreatePortfolioShare x -> CreatePortfolioShare
forall x. CreatePortfolioShare -> Rep CreatePortfolioShare x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreatePortfolioShare x -> CreatePortfolioShare
$cfrom :: forall x. CreatePortfolioShare -> Rep CreatePortfolioShare x
Prelude.Generic)
newCreatePortfolioShare ::
Prelude.Text ->
CreatePortfolioShare
newCreatePortfolioShare :: Text -> CreatePortfolioShare
newCreatePortfolioShare Text
pPortfolioId_ =
CreatePortfolioShare'
{ $sel:acceptLanguage:CreatePortfolioShare' :: Maybe Text
acceptLanguage =
forall a. Maybe a
Prelude.Nothing,
$sel:accountId:CreatePortfolioShare' :: Maybe Text
accountId = forall a. Maybe a
Prelude.Nothing,
$sel:organizationNode:CreatePortfolioShare' :: Maybe OrganizationNode
organizationNode = forall a. Maybe a
Prelude.Nothing,
$sel:sharePrincipals:CreatePortfolioShare' :: Maybe Bool
sharePrincipals = forall a. Maybe a
Prelude.Nothing,
$sel:shareTagOptions:CreatePortfolioShare' :: Maybe Bool
shareTagOptions = forall a. Maybe a
Prelude.Nothing,
$sel:portfolioId:CreatePortfolioShare' :: Text
portfolioId = Text
pPortfolioId_
}
createPortfolioShare_acceptLanguage :: Lens.Lens' CreatePortfolioShare (Prelude.Maybe Prelude.Text)
createPortfolioShare_acceptLanguage :: Lens' CreatePortfolioShare (Maybe Text)
createPortfolioShare_acceptLanguage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePortfolioShare' {Maybe Text
acceptLanguage :: Maybe Text
$sel:acceptLanguage:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe Text
acceptLanguage} -> Maybe Text
acceptLanguage) (\s :: CreatePortfolioShare
s@CreatePortfolioShare' {} Maybe Text
a -> CreatePortfolioShare
s {$sel:acceptLanguage:CreatePortfolioShare' :: Maybe Text
acceptLanguage = Maybe Text
a} :: CreatePortfolioShare)
createPortfolioShare_accountId :: Lens.Lens' CreatePortfolioShare (Prelude.Maybe Prelude.Text)
createPortfolioShare_accountId :: Lens' CreatePortfolioShare (Maybe Text)
createPortfolioShare_accountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePortfolioShare' {Maybe Text
accountId :: Maybe Text
$sel:accountId:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe Text
accountId} -> Maybe Text
accountId) (\s :: CreatePortfolioShare
s@CreatePortfolioShare' {} Maybe Text
a -> CreatePortfolioShare
s {$sel:accountId:CreatePortfolioShare' :: Maybe Text
accountId = Maybe Text
a} :: CreatePortfolioShare)
createPortfolioShare_organizationNode :: Lens.Lens' CreatePortfolioShare (Prelude.Maybe OrganizationNode)
createPortfolioShare_organizationNode :: Lens' CreatePortfolioShare (Maybe OrganizationNode)
createPortfolioShare_organizationNode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePortfolioShare' {Maybe OrganizationNode
organizationNode :: Maybe OrganizationNode
$sel:organizationNode:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe OrganizationNode
organizationNode} -> Maybe OrganizationNode
organizationNode) (\s :: CreatePortfolioShare
s@CreatePortfolioShare' {} Maybe OrganizationNode
a -> CreatePortfolioShare
s {$sel:organizationNode:CreatePortfolioShare' :: Maybe OrganizationNode
organizationNode = Maybe OrganizationNode
a} :: CreatePortfolioShare)
createPortfolioShare_sharePrincipals :: Lens.Lens' CreatePortfolioShare (Prelude.Maybe Prelude.Bool)
createPortfolioShare_sharePrincipals :: Lens' CreatePortfolioShare (Maybe Bool)
createPortfolioShare_sharePrincipals = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePortfolioShare' {Maybe Bool
sharePrincipals :: Maybe Bool
$sel:sharePrincipals:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe Bool
sharePrincipals} -> Maybe Bool
sharePrincipals) (\s :: CreatePortfolioShare
s@CreatePortfolioShare' {} Maybe Bool
a -> CreatePortfolioShare
s {$sel:sharePrincipals:CreatePortfolioShare' :: Maybe Bool
sharePrincipals = Maybe Bool
a} :: CreatePortfolioShare)
createPortfolioShare_shareTagOptions :: Lens.Lens' CreatePortfolioShare (Prelude.Maybe Prelude.Bool)
createPortfolioShare_shareTagOptions :: Lens' CreatePortfolioShare (Maybe Bool)
createPortfolioShare_shareTagOptions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePortfolioShare' {Maybe Bool
shareTagOptions :: Maybe Bool
$sel:shareTagOptions:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe Bool
shareTagOptions} -> Maybe Bool
shareTagOptions) (\s :: CreatePortfolioShare
s@CreatePortfolioShare' {} Maybe Bool
a -> CreatePortfolioShare
s {$sel:shareTagOptions:CreatePortfolioShare' :: Maybe Bool
shareTagOptions = Maybe Bool
a} :: CreatePortfolioShare)
createPortfolioShare_portfolioId :: Lens.Lens' CreatePortfolioShare Prelude.Text
createPortfolioShare_portfolioId :: Lens' CreatePortfolioShare Text
createPortfolioShare_portfolioId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePortfolioShare' {Text
portfolioId :: Text
$sel:portfolioId:CreatePortfolioShare' :: CreatePortfolioShare -> Text
portfolioId} -> Text
portfolioId) (\s :: CreatePortfolioShare
s@CreatePortfolioShare' {} Text
a -> CreatePortfolioShare
s {$sel:portfolioId:CreatePortfolioShare' :: Text
portfolioId = Text
a} :: CreatePortfolioShare)
instance Core.AWSRequest CreatePortfolioShare where
type
AWSResponse CreatePortfolioShare =
CreatePortfolioShareResponse
request :: (Service -> Service)
-> CreatePortfolioShare -> Request CreatePortfolioShare
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 CreatePortfolioShare
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreatePortfolioShare)))
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 -> Int -> CreatePortfolioShareResponse
CreatePortfolioShareResponse'
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
"PortfolioShareToken")
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 CreatePortfolioShare where
hashWithSalt :: Int -> CreatePortfolioShare -> Int
hashWithSalt Int
_salt CreatePortfolioShare' {Maybe Bool
Maybe Text
Maybe OrganizationNode
Text
portfolioId :: Text
shareTagOptions :: Maybe Bool
sharePrincipals :: Maybe Bool
organizationNode :: Maybe OrganizationNode
accountId :: Maybe Text
acceptLanguage :: Maybe Text
$sel:portfolioId:CreatePortfolioShare' :: CreatePortfolioShare -> Text
$sel:shareTagOptions:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe Bool
$sel:sharePrincipals:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe Bool
$sel:organizationNode:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe OrganizationNode
$sel:accountId:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe Text
$sel:acceptLanguage:CreatePortfolioShare' :: CreatePortfolioShare -> 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 Text
accountId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe OrganizationNode
organizationNode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
sharePrincipals
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
shareTagOptions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
portfolioId
instance Prelude.NFData CreatePortfolioShare where
rnf :: CreatePortfolioShare -> ()
rnf CreatePortfolioShare' {Maybe Bool
Maybe Text
Maybe OrganizationNode
Text
portfolioId :: Text
shareTagOptions :: Maybe Bool
sharePrincipals :: Maybe Bool
organizationNode :: Maybe OrganizationNode
accountId :: Maybe Text
acceptLanguage :: Maybe Text
$sel:portfolioId:CreatePortfolioShare' :: CreatePortfolioShare -> Text
$sel:shareTagOptions:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe Bool
$sel:sharePrincipals:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe Bool
$sel:organizationNode:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe OrganizationNode
$sel:accountId:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe Text
$sel:acceptLanguage:CreatePortfolioShare' :: CreatePortfolioShare -> 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 Text
accountId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe OrganizationNode
organizationNode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
sharePrincipals
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
shareTagOptions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
portfolioId
instance Data.ToHeaders CreatePortfolioShare where
toHeaders :: CreatePortfolioShare -> 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.CreatePortfolioShare" ::
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 CreatePortfolioShare where
toJSON :: CreatePortfolioShare -> Value
toJSON CreatePortfolioShare' {Maybe Bool
Maybe Text
Maybe OrganizationNode
Text
portfolioId :: Text
shareTagOptions :: Maybe Bool
sharePrincipals :: Maybe Bool
organizationNode :: Maybe OrganizationNode
accountId :: Maybe Text
acceptLanguage :: Maybe Text
$sel:portfolioId:CreatePortfolioShare' :: CreatePortfolioShare -> Text
$sel:shareTagOptions:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe Bool
$sel:sharePrincipals:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe Bool
$sel:organizationNode:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe OrganizationNode
$sel:accountId:CreatePortfolioShare' :: CreatePortfolioShare -> Maybe Text
$sel:acceptLanguage:CreatePortfolioShare' :: CreatePortfolioShare -> 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
"AccountId" 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
accountId,
(Key
"OrganizationNode" 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 OrganizationNode
organizationNode,
(Key
"SharePrincipals" 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 Bool
sharePrincipals,
(Key
"ShareTagOptions" 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 Bool
shareTagOptions,
forall a. a -> Maybe a
Prelude.Just (Key
"PortfolioId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
portfolioId)
]
)
instance Data.ToPath CreatePortfolioShare where
toPath :: CreatePortfolioShare -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreatePortfolioShare where
toQuery :: CreatePortfolioShare -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreatePortfolioShareResponse = CreatePortfolioShareResponse'
{
CreatePortfolioShareResponse -> Maybe Text
portfolioShareToken :: Prelude.Maybe Prelude.Text,
CreatePortfolioShareResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreatePortfolioShareResponse
-> CreatePortfolioShareResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreatePortfolioShareResponse
-> CreatePortfolioShareResponse -> Bool
$c/= :: CreatePortfolioShareResponse
-> CreatePortfolioShareResponse -> Bool
== :: CreatePortfolioShareResponse
-> CreatePortfolioShareResponse -> Bool
$c== :: CreatePortfolioShareResponse
-> CreatePortfolioShareResponse -> Bool
Prelude.Eq, ReadPrec [CreatePortfolioShareResponse]
ReadPrec CreatePortfolioShareResponse
Int -> ReadS CreatePortfolioShareResponse
ReadS [CreatePortfolioShareResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreatePortfolioShareResponse]
$creadListPrec :: ReadPrec [CreatePortfolioShareResponse]
readPrec :: ReadPrec CreatePortfolioShareResponse
$creadPrec :: ReadPrec CreatePortfolioShareResponse
readList :: ReadS [CreatePortfolioShareResponse]
$creadList :: ReadS [CreatePortfolioShareResponse]
readsPrec :: Int -> ReadS CreatePortfolioShareResponse
$creadsPrec :: Int -> ReadS CreatePortfolioShareResponse
Prelude.Read, Int -> CreatePortfolioShareResponse -> ShowS
[CreatePortfolioShareResponse] -> ShowS
CreatePortfolioShareResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreatePortfolioShareResponse] -> ShowS
$cshowList :: [CreatePortfolioShareResponse] -> ShowS
show :: CreatePortfolioShareResponse -> String
$cshow :: CreatePortfolioShareResponse -> String
showsPrec :: Int -> CreatePortfolioShareResponse -> ShowS
$cshowsPrec :: Int -> CreatePortfolioShareResponse -> ShowS
Prelude.Show, forall x.
Rep CreatePortfolioShareResponse x -> CreatePortfolioShareResponse
forall x.
CreatePortfolioShareResponse -> Rep CreatePortfolioShareResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreatePortfolioShareResponse x -> CreatePortfolioShareResponse
$cfrom :: forall x.
CreatePortfolioShareResponse -> Rep CreatePortfolioShareResponse x
Prelude.Generic)
newCreatePortfolioShareResponse ::
Prelude.Int ->
CreatePortfolioShareResponse
newCreatePortfolioShareResponse :: Int -> CreatePortfolioShareResponse
newCreatePortfolioShareResponse Int
pHttpStatus_ =
CreatePortfolioShareResponse'
{ $sel:portfolioShareToken:CreatePortfolioShareResponse' :: Maybe Text
portfolioShareToken =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreatePortfolioShareResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createPortfolioShareResponse_portfolioShareToken :: Lens.Lens' CreatePortfolioShareResponse (Prelude.Maybe Prelude.Text)
createPortfolioShareResponse_portfolioShareToken :: Lens' CreatePortfolioShareResponse (Maybe Text)
createPortfolioShareResponse_portfolioShareToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePortfolioShareResponse' {Maybe Text
portfolioShareToken :: Maybe Text
$sel:portfolioShareToken:CreatePortfolioShareResponse' :: CreatePortfolioShareResponse -> Maybe Text
portfolioShareToken} -> Maybe Text
portfolioShareToken) (\s :: CreatePortfolioShareResponse
s@CreatePortfolioShareResponse' {} Maybe Text
a -> CreatePortfolioShareResponse
s {$sel:portfolioShareToken:CreatePortfolioShareResponse' :: Maybe Text
portfolioShareToken = Maybe Text
a} :: CreatePortfolioShareResponse)
createPortfolioShareResponse_httpStatus :: Lens.Lens' CreatePortfolioShareResponse Prelude.Int
createPortfolioShareResponse_httpStatus :: Lens' CreatePortfolioShareResponse Int
createPortfolioShareResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreatePortfolioShareResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreatePortfolioShareResponse' :: CreatePortfolioShareResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreatePortfolioShareResponse
s@CreatePortfolioShareResponse' {} Int
a -> CreatePortfolioShareResponse
s {$sel:httpStatus:CreatePortfolioShareResponse' :: Int
httpStatus = Int
a} :: CreatePortfolioShareResponse)
instance Prelude.NFData CreatePortfolioShareResponse where
rnf :: CreatePortfolioShareResponse -> ()
rnf CreatePortfolioShareResponse' {Int
Maybe Text
httpStatus :: Int
portfolioShareToken :: Maybe Text
$sel:httpStatus:CreatePortfolioShareResponse' :: CreatePortfolioShareResponse -> Int
$sel:portfolioShareToken:CreatePortfolioShareResponse' :: CreatePortfolioShareResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
portfolioShareToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus