{-# 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.Grafana.CreateWorkspaceApiKey
(
CreateWorkspaceApiKey (..),
newCreateWorkspaceApiKey,
createWorkspaceApiKey_keyName,
createWorkspaceApiKey_keyRole,
createWorkspaceApiKey_secondsToLive,
createWorkspaceApiKey_workspaceId,
CreateWorkspaceApiKeyResponse (..),
newCreateWorkspaceApiKeyResponse,
createWorkspaceApiKeyResponse_httpStatus,
createWorkspaceApiKeyResponse_key,
createWorkspaceApiKeyResponse_keyName,
createWorkspaceApiKeyResponse_workspaceId,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Grafana.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateWorkspaceApiKey = CreateWorkspaceApiKey'
{
CreateWorkspaceApiKey -> Text
keyName :: Prelude.Text,
CreateWorkspaceApiKey -> Text
keyRole :: Prelude.Text,
CreateWorkspaceApiKey -> Natural
secondsToLive :: Prelude.Natural,
CreateWorkspaceApiKey -> Text
workspaceId :: Prelude.Text
}
deriving (CreateWorkspaceApiKey -> CreateWorkspaceApiKey -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateWorkspaceApiKey -> CreateWorkspaceApiKey -> Bool
$c/= :: CreateWorkspaceApiKey -> CreateWorkspaceApiKey -> Bool
== :: CreateWorkspaceApiKey -> CreateWorkspaceApiKey -> Bool
$c== :: CreateWorkspaceApiKey -> CreateWorkspaceApiKey -> Bool
Prelude.Eq, ReadPrec [CreateWorkspaceApiKey]
ReadPrec CreateWorkspaceApiKey
Int -> ReadS CreateWorkspaceApiKey
ReadS [CreateWorkspaceApiKey]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateWorkspaceApiKey]
$creadListPrec :: ReadPrec [CreateWorkspaceApiKey]
readPrec :: ReadPrec CreateWorkspaceApiKey
$creadPrec :: ReadPrec CreateWorkspaceApiKey
readList :: ReadS [CreateWorkspaceApiKey]
$creadList :: ReadS [CreateWorkspaceApiKey]
readsPrec :: Int -> ReadS CreateWorkspaceApiKey
$creadsPrec :: Int -> ReadS CreateWorkspaceApiKey
Prelude.Read, Int -> CreateWorkspaceApiKey -> ShowS
[CreateWorkspaceApiKey] -> ShowS
CreateWorkspaceApiKey -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateWorkspaceApiKey] -> ShowS
$cshowList :: [CreateWorkspaceApiKey] -> ShowS
show :: CreateWorkspaceApiKey -> String
$cshow :: CreateWorkspaceApiKey -> String
showsPrec :: Int -> CreateWorkspaceApiKey -> ShowS
$cshowsPrec :: Int -> CreateWorkspaceApiKey -> ShowS
Prelude.Show, forall x. Rep CreateWorkspaceApiKey x -> CreateWorkspaceApiKey
forall x. CreateWorkspaceApiKey -> Rep CreateWorkspaceApiKey x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateWorkspaceApiKey x -> CreateWorkspaceApiKey
$cfrom :: forall x. CreateWorkspaceApiKey -> Rep CreateWorkspaceApiKey x
Prelude.Generic)
newCreateWorkspaceApiKey ::
Prelude.Text ->
Prelude.Text ->
Prelude.Natural ->
Prelude.Text ->
CreateWorkspaceApiKey
newCreateWorkspaceApiKey :: Text -> Text -> Natural -> Text -> CreateWorkspaceApiKey
newCreateWorkspaceApiKey
Text
pKeyName_
Text
pKeyRole_
Natural
pSecondsToLive_
Text
pWorkspaceId_ =
CreateWorkspaceApiKey'
{ $sel:keyName:CreateWorkspaceApiKey' :: Text
keyName = Text
pKeyName_,
$sel:keyRole:CreateWorkspaceApiKey' :: Text
keyRole = Text
pKeyRole_,
$sel:secondsToLive:CreateWorkspaceApiKey' :: Natural
secondsToLive = Natural
pSecondsToLive_,
$sel:workspaceId:CreateWorkspaceApiKey' :: Text
workspaceId = Text
pWorkspaceId_
}
createWorkspaceApiKey_keyName :: Lens.Lens' CreateWorkspaceApiKey Prelude.Text
createWorkspaceApiKey_keyName :: Lens' CreateWorkspaceApiKey Text
createWorkspaceApiKey_keyName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateWorkspaceApiKey' {Text
keyName :: Text
$sel:keyName:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
keyName} -> Text
keyName) (\s :: CreateWorkspaceApiKey
s@CreateWorkspaceApiKey' {} Text
a -> CreateWorkspaceApiKey
s {$sel:keyName:CreateWorkspaceApiKey' :: Text
keyName = Text
a} :: CreateWorkspaceApiKey)
createWorkspaceApiKey_keyRole :: Lens.Lens' CreateWorkspaceApiKey Prelude.Text
createWorkspaceApiKey_keyRole :: Lens' CreateWorkspaceApiKey Text
createWorkspaceApiKey_keyRole = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateWorkspaceApiKey' {Text
keyRole :: Text
$sel:keyRole:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
keyRole} -> Text
keyRole) (\s :: CreateWorkspaceApiKey
s@CreateWorkspaceApiKey' {} Text
a -> CreateWorkspaceApiKey
s {$sel:keyRole:CreateWorkspaceApiKey' :: Text
keyRole = Text
a} :: CreateWorkspaceApiKey)
createWorkspaceApiKey_secondsToLive :: Lens.Lens' CreateWorkspaceApiKey Prelude.Natural
createWorkspaceApiKey_secondsToLive :: Lens' CreateWorkspaceApiKey Natural
createWorkspaceApiKey_secondsToLive = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateWorkspaceApiKey' {Natural
secondsToLive :: Natural
$sel:secondsToLive:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Natural
secondsToLive} -> Natural
secondsToLive) (\s :: CreateWorkspaceApiKey
s@CreateWorkspaceApiKey' {} Natural
a -> CreateWorkspaceApiKey
s {$sel:secondsToLive:CreateWorkspaceApiKey' :: Natural
secondsToLive = Natural
a} :: CreateWorkspaceApiKey)
createWorkspaceApiKey_workspaceId :: Lens.Lens' CreateWorkspaceApiKey Prelude.Text
createWorkspaceApiKey_workspaceId :: Lens' CreateWorkspaceApiKey Text
createWorkspaceApiKey_workspaceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateWorkspaceApiKey' {Text
workspaceId :: Text
$sel:workspaceId:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
workspaceId} -> Text
workspaceId) (\s :: CreateWorkspaceApiKey
s@CreateWorkspaceApiKey' {} Text
a -> CreateWorkspaceApiKey
s {$sel:workspaceId:CreateWorkspaceApiKey' :: Text
workspaceId = Text
a} :: CreateWorkspaceApiKey)
instance Core.AWSRequest CreateWorkspaceApiKey where
type
AWSResponse CreateWorkspaceApiKey =
CreateWorkspaceApiKeyResponse
request :: (Service -> Service)
-> CreateWorkspaceApiKey -> Request CreateWorkspaceApiKey
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 CreateWorkspaceApiKey
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateWorkspaceApiKey)))
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 ->
Int
-> Sensitive Text -> Text -> Text -> CreateWorkspaceApiKeyResponse
CreateWorkspaceApiKeyResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"key")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"keyName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"workspaceId")
)
instance Prelude.Hashable CreateWorkspaceApiKey where
hashWithSalt :: Int -> CreateWorkspaceApiKey -> Int
hashWithSalt Int
_salt CreateWorkspaceApiKey' {Natural
Text
workspaceId :: Text
secondsToLive :: Natural
keyRole :: Text
keyName :: Text
$sel:workspaceId:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
$sel:secondsToLive:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Natural
$sel:keyRole:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
$sel:keyName:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
keyName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
keyRole
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Natural
secondsToLive
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
workspaceId
instance Prelude.NFData CreateWorkspaceApiKey where
rnf :: CreateWorkspaceApiKey -> ()
rnf CreateWorkspaceApiKey' {Natural
Text
workspaceId :: Text
secondsToLive :: Natural
keyRole :: Text
keyName :: Text
$sel:workspaceId:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
$sel:secondsToLive:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Natural
$sel:keyRole:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
$sel:keyName:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
keyName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
keyRole
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Natural
secondsToLive
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
workspaceId
instance Data.ToHeaders CreateWorkspaceApiKey where
toHeaders :: CreateWorkspaceApiKey -> 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 CreateWorkspaceApiKey where
toJSON :: CreateWorkspaceApiKey -> Value
toJSON CreateWorkspaceApiKey' {Natural
Text
workspaceId :: Text
secondsToLive :: Natural
keyRole :: Text
keyName :: Text
$sel:workspaceId:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
$sel:secondsToLive:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Natural
$sel:keyRole:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
$sel:keyName:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"keyName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
keyName),
forall a. a -> Maybe a
Prelude.Just (Key
"keyRole" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
keyRole),
forall a. a -> Maybe a
Prelude.Just
(Key
"secondsToLive" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Natural
secondsToLive)
]
)
instance Data.ToPath CreateWorkspaceApiKey where
toPath :: CreateWorkspaceApiKey -> ByteString
toPath CreateWorkspaceApiKey' {Natural
Text
workspaceId :: Text
secondsToLive :: Natural
keyRole :: Text
keyName :: Text
$sel:workspaceId:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
$sel:secondsToLive:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Natural
$sel:keyRole:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
$sel:keyName:CreateWorkspaceApiKey' :: CreateWorkspaceApiKey -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/workspaces/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
workspaceId, ByteString
"/apikeys"]
instance Data.ToQuery CreateWorkspaceApiKey where
toQuery :: CreateWorkspaceApiKey -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateWorkspaceApiKeyResponse = CreateWorkspaceApiKeyResponse'
{
CreateWorkspaceApiKeyResponse -> Int
httpStatus :: Prelude.Int,
CreateWorkspaceApiKeyResponse -> Sensitive Text
key :: Data.Sensitive Prelude.Text,
CreateWorkspaceApiKeyResponse -> Text
keyName :: Prelude.Text,
CreateWorkspaceApiKeyResponse -> Text
workspaceId :: Prelude.Text
}
deriving (CreateWorkspaceApiKeyResponse
-> CreateWorkspaceApiKeyResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateWorkspaceApiKeyResponse
-> CreateWorkspaceApiKeyResponse -> Bool
$c/= :: CreateWorkspaceApiKeyResponse
-> CreateWorkspaceApiKeyResponse -> Bool
== :: CreateWorkspaceApiKeyResponse
-> CreateWorkspaceApiKeyResponse -> Bool
$c== :: CreateWorkspaceApiKeyResponse
-> CreateWorkspaceApiKeyResponse -> Bool
Prelude.Eq, Int -> CreateWorkspaceApiKeyResponse -> ShowS
[CreateWorkspaceApiKeyResponse] -> ShowS
CreateWorkspaceApiKeyResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateWorkspaceApiKeyResponse] -> ShowS
$cshowList :: [CreateWorkspaceApiKeyResponse] -> ShowS
show :: CreateWorkspaceApiKeyResponse -> String
$cshow :: CreateWorkspaceApiKeyResponse -> String
showsPrec :: Int -> CreateWorkspaceApiKeyResponse -> ShowS
$cshowsPrec :: Int -> CreateWorkspaceApiKeyResponse -> ShowS
Prelude.Show, forall x.
Rep CreateWorkspaceApiKeyResponse x
-> CreateWorkspaceApiKeyResponse
forall x.
CreateWorkspaceApiKeyResponse
-> Rep CreateWorkspaceApiKeyResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateWorkspaceApiKeyResponse x
-> CreateWorkspaceApiKeyResponse
$cfrom :: forall x.
CreateWorkspaceApiKeyResponse
-> Rep CreateWorkspaceApiKeyResponse x
Prelude.Generic)
newCreateWorkspaceApiKeyResponse ::
Prelude.Int ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
CreateWorkspaceApiKeyResponse
newCreateWorkspaceApiKeyResponse :: Int -> Text -> Text -> Text -> CreateWorkspaceApiKeyResponse
newCreateWorkspaceApiKeyResponse
Int
pHttpStatus_
Text
pKey_
Text
pKeyName_
Text
pWorkspaceId_ =
CreateWorkspaceApiKeyResponse'
{ $sel:httpStatus:CreateWorkspaceApiKeyResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:key:CreateWorkspaceApiKeyResponse' :: Sensitive Text
key = forall a. Iso' (Sensitive a) a
Data._Sensitive forall t b. AReview t b -> b -> t
Lens.# Text
pKey_,
$sel:keyName:CreateWorkspaceApiKeyResponse' :: Text
keyName = Text
pKeyName_,
$sel:workspaceId:CreateWorkspaceApiKeyResponse' :: Text
workspaceId = Text
pWorkspaceId_
}
createWorkspaceApiKeyResponse_httpStatus :: Lens.Lens' CreateWorkspaceApiKeyResponse Prelude.Int
createWorkspaceApiKeyResponse_httpStatus :: Lens' CreateWorkspaceApiKeyResponse Int
createWorkspaceApiKeyResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateWorkspaceApiKeyResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateWorkspaceApiKeyResponse' :: CreateWorkspaceApiKeyResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateWorkspaceApiKeyResponse
s@CreateWorkspaceApiKeyResponse' {} Int
a -> CreateWorkspaceApiKeyResponse
s {$sel:httpStatus:CreateWorkspaceApiKeyResponse' :: Int
httpStatus = Int
a} :: CreateWorkspaceApiKeyResponse)
createWorkspaceApiKeyResponse_key :: Lens.Lens' CreateWorkspaceApiKeyResponse Prelude.Text
createWorkspaceApiKeyResponse_key :: Lens' CreateWorkspaceApiKeyResponse Text
createWorkspaceApiKeyResponse_key = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateWorkspaceApiKeyResponse' {Sensitive Text
key :: Sensitive Text
$sel:key:CreateWorkspaceApiKeyResponse' :: CreateWorkspaceApiKeyResponse -> Sensitive Text
key} -> Sensitive Text
key) (\s :: CreateWorkspaceApiKeyResponse
s@CreateWorkspaceApiKeyResponse' {} Sensitive Text
a -> CreateWorkspaceApiKeyResponse
s {$sel:key:CreateWorkspaceApiKeyResponse' :: Sensitive Text
key = Sensitive Text
a} :: CreateWorkspaceApiKeyResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. Iso' (Sensitive a) a
Data._Sensitive
createWorkspaceApiKeyResponse_keyName :: Lens.Lens' CreateWorkspaceApiKeyResponse Prelude.Text
createWorkspaceApiKeyResponse_keyName :: Lens' CreateWorkspaceApiKeyResponse Text
createWorkspaceApiKeyResponse_keyName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateWorkspaceApiKeyResponse' {Text
keyName :: Text
$sel:keyName:CreateWorkspaceApiKeyResponse' :: CreateWorkspaceApiKeyResponse -> Text
keyName} -> Text
keyName) (\s :: CreateWorkspaceApiKeyResponse
s@CreateWorkspaceApiKeyResponse' {} Text
a -> CreateWorkspaceApiKeyResponse
s {$sel:keyName:CreateWorkspaceApiKeyResponse' :: Text
keyName = Text
a} :: CreateWorkspaceApiKeyResponse)
createWorkspaceApiKeyResponse_workspaceId :: Lens.Lens' CreateWorkspaceApiKeyResponse Prelude.Text
createWorkspaceApiKeyResponse_workspaceId :: Lens' CreateWorkspaceApiKeyResponse Text
createWorkspaceApiKeyResponse_workspaceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateWorkspaceApiKeyResponse' {Text
workspaceId :: Text
$sel:workspaceId:CreateWorkspaceApiKeyResponse' :: CreateWorkspaceApiKeyResponse -> Text
workspaceId} -> Text
workspaceId) (\s :: CreateWorkspaceApiKeyResponse
s@CreateWorkspaceApiKeyResponse' {} Text
a -> CreateWorkspaceApiKeyResponse
s {$sel:workspaceId:CreateWorkspaceApiKeyResponse' :: Text
workspaceId = Text
a} :: CreateWorkspaceApiKeyResponse)
instance Prelude.NFData CreateWorkspaceApiKeyResponse where
rnf :: CreateWorkspaceApiKeyResponse -> ()
rnf CreateWorkspaceApiKeyResponse' {Int
Text
Sensitive Text
workspaceId :: Text
keyName :: Text
key :: Sensitive Text
httpStatus :: Int
$sel:workspaceId:CreateWorkspaceApiKeyResponse' :: CreateWorkspaceApiKeyResponse -> Text
$sel:keyName:CreateWorkspaceApiKeyResponse' :: CreateWorkspaceApiKeyResponse -> Text
$sel:key:CreateWorkspaceApiKeyResponse' :: CreateWorkspaceApiKeyResponse -> Sensitive Text
$sel:httpStatus:CreateWorkspaceApiKeyResponse' :: CreateWorkspaceApiKeyResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Sensitive Text
key
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
keyName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
workspaceId