{-# 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.FinSpaceData.GetProgrammaticAccessCredentials
(
GetProgrammaticAccessCredentials (..),
newGetProgrammaticAccessCredentials,
getProgrammaticAccessCredentials_durationInMinutes,
getProgrammaticAccessCredentials_environmentId,
GetProgrammaticAccessCredentialsResponse (..),
newGetProgrammaticAccessCredentialsResponse,
getProgrammaticAccessCredentialsResponse_credentials,
getProgrammaticAccessCredentialsResponse_durationInMinutes,
getProgrammaticAccessCredentialsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.FinSpaceData.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetProgrammaticAccessCredentials = GetProgrammaticAccessCredentials'
{
GetProgrammaticAccessCredentials -> Maybe Natural
durationInMinutes :: Prelude.Maybe Prelude.Natural,
GetProgrammaticAccessCredentials -> Text
environmentId :: Prelude.Text
}
deriving (GetProgrammaticAccessCredentials
-> GetProgrammaticAccessCredentials -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetProgrammaticAccessCredentials
-> GetProgrammaticAccessCredentials -> Bool
$c/= :: GetProgrammaticAccessCredentials
-> GetProgrammaticAccessCredentials -> Bool
== :: GetProgrammaticAccessCredentials
-> GetProgrammaticAccessCredentials -> Bool
$c== :: GetProgrammaticAccessCredentials
-> GetProgrammaticAccessCredentials -> Bool
Prelude.Eq, ReadPrec [GetProgrammaticAccessCredentials]
ReadPrec GetProgrammaticAccessCredentials
Int -> ReadS GetProgrammaticAccessCredentials
ReadS [GetProgrammaticAccessCredentials]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetProgrammaticAccessCredentials]
$creadListPrec :: ReadPrec [GetProgrammaticAccessCredentials]
readPrec :: ReadPrec GetProgrammaticAccessCredentials
$creadPrec :: ReadPrec GetProgrammaticAccessCredentials
readList :: ReadS [GetProgrammaticAccessCredentials]
$creadList :: ReadS [GetProgrammaticAccessCredentials]
readsPrec :: Int -> ReadS GetProgrammaticAccessCredentials
$creadsPrec :: Int -> ReadS GetProgrammaticAccessCredentials
Prelude.Read, Int -> GetProgrammaticAccessCredentials -> ShowS
[GetProgrammaticAccessCredentials] -> ShowS
GetProgrammaticAccessCredentials -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetProgrammaticAccessCredentials] -> ShowS
$cshowList :: [GetProgrammaticAccessCredentials] -> ShowS
show :: GetProgrammaticAccessCredentials -> String
$cshow :: GetProgrammaticAccessCredentials -> String
showsPrec :: Int -> GetProgrammaticAccessCredentials -> ShowS
$cshowsPrec :: Int -> GetProgrammaticAccessCredentials -> ShowS
Prelude.Show, forall x.
Rep GetProgrammaticAccessCredentials x
-> GetProgrammaticAccessCredentials
forall x.
GetProgrammaticAccessCredentials
-> Rep GetProgrammaticAccessCredentials x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetProgrammaticAccessCredentials x
-> GetProgrammaticAccessCredentials
$cfrom :: forall x.
GetProgrammaticAccessCredentials
-> Rep GetProgrammaticAccessCredentials x
Prelude.Generic)
newGetProgrammaticAccessCredentials ::
Prelude.Text ->
GetProgrammaticAccessCredentials
newGetProgrammaticAccessCredentials :: Text -> GetProgrammaticAccessCredentials
newGetProgrammaticAccessCredentials Text
pEnvironmentId_ =
GetProgrammaticAccessCredentials'
{ $sel:durationInMinutes:GetProgrammaticAccessCredentials' :: Maybe Natural
durationInMinutes =
forall a. Maybe a
Prelude.Nothing,
$sel:environmentId:GetProgrammaticAccessCredentials' :: Text
environmentId = Text
pEnvironmentId_
}
getProgrammaticAccessCredentials_durationInMinutes :: Lens.Lens' GetProgrammaticAccessCredentials (Prelude.Maybe Prelude.Natural)
getProgrammaticAccessCredentials_durationInMinutes :: Lens' GetProgrammaticAccessCredentials (Maybe Natural)
getProgrammaticAccessCredentials_durationInMinutes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetProgrammaticAccessCredentials' {Maybe Natural
durationInMinutes :: Maybe Natural
$sel:durationInMinutes:GetProgrammaticAccessCredentials' :: GetProgrammaticAccessCredentials -> Maybe Natural
durationInMinutes} -> Maybe Natural
durationInMinutes) (\s :: GetProgrammaticAccessCredentials
s@GetProgrammaticAccessCredentials' {} Maybe Natural
a -> GetProgrammaticAccessCredentials
s {$sel:durationInMinutes:GetProgrammaticAccessCredentials' :: Maybe Natural
durationInMinutes = Maybe Natural
a} :: GetProgrammaticAccessCredentials)
getProgrammaticAccessCredentials_environmentId :: Lens.Lens' GetProgrammaticAccessCredentials Prelude.Text
getProgrammaticAccessCredentials_environmentId :: Lens' GetProgrammaticAccessCredentials Text
getProgrammaticAccessCredentials_environmentId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetProgrammaticAccessCredentials' {Text
environmentId :: Text
$sel:environmentId:GetProgrammaticAccessCredentials' :: GetProgrammaticAccessCredentials -> Text
environmentId} -> Text
environmentId) (\s :: GetProgrammaticAccessCredentials
s@GetProgrammaticAccessCredentials' {} Text
a -> GetProgrammaticAccessCredentials
s {$sel:environmentId:GetProgrammaticAccessCredentials' :: Text
environmentId = Text
a} :: GetProgrammaticAccessCredentials)
instance
Core.AWSRequest
GetProgrammaticAccessCredentials
where
type
AWSResponse GetProgrammaticAccessCredentials =
GetProgrammaticAccessCredentialsResponse
request :: (Service -> Service)
-> GetProgrammaticAccessCredentials
-> Request GetProgrammaticAccessCredentials
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetProgrammaticAccessCredentials
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse GetProgrammaticAccessCredentials)))
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 Credentials
-> Maybe Natural -> Int -> GetProgrammaticAccessCredentialsResponse
GetProgrammaticAccessCredentialsResponse'
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
"credentials")
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
"durationInMinutes")
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
GetProgrammaticAccessCredentials
where
hashWithSalt :: Int -> GetProgrammaticAccessCredentials -> Int
hashWithSalt
Int
_salt
GetProgrammaticAccessCredentials' {Maybe Natural
Text
environmentId :: Text
durationInMinutes :: Maybe Natural
$sel:environmentId:GetProgrammaticAccessCredentials' :: GetProgrammaticAccessCredentials -> Text
$sel:durationInMinutes:GetProgrammaticAccessCredentials' :: GetProgrammaticAccessCredentials -> Maybe Natural
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
durationInMinutes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
environmentId
instance
Prelude.NFData
GetProgrammaticAccessCredentials
where
rnf :: GetProgrammaticAccessCredentials -> ()
rnf GetProgrammaticAccessCredentials' {Maybe Natural
Text
environmentId :: Text
durationInMinutes :: Maybe Natural
$sel:environmentId:GetProgrammaticAccessCredentials' :: GetProgrammaticAccessCredentials -> Text
$sel:durationInMinutes:GetProgrammaticAccessCredentials' :: GetProgrammaticAccessCredentials -> Maybe Natural
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
durationInMinutes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
environmentId
instance
Data.ToHeaders
GetProgrammaticAccessCredentials
where
toHeaders :: GetProgrammaticAccessCredentials -> 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.ToPath GetProgrammaticAccessCredentials where
toPath :: GetProgrammaticAccessCredentials -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/credentials/programmatic"
instance
Data.ToQuery
GetProgrammaticAccessCredentials
where
toQuery :: GetProgrammaticAccessCredentials -> QueryString
toQuery GetProgrammaticAccessCredentials' {Maybe Natural
Text
environmentId :: Text
durationInMinutes :: Maybe Natural
$sel:environmentId:GetProgrammaticAccessCredentials' :: GetProgrammaticAccessCredentials -> Text
$sel:durationInMinutes:GetProgrammaticAccessCredentials' :: GetProgrammaticAccessCredentials -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"durationInMinutes" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
durationInMinutes,
ByteString
"environmentId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
environmentId
]
data GetProgrammaticAccessCredentialsResponse = GetProgrammaticAccessCredentialsResponse'
{
GetProgrammaticAccessCredentialsResponse -> Maybe Credentials
credentials :: Prelude.Maybe Credentials,
GetProgrammaticAccessCredentialsResponse -> Maybe Natural
durationInMinutes :: Prelude.Maybe Prelude.Natural,
GetProgrammaticAccessCredentialsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetProgrammaticAccessCredentialsResponse
-> GetProgrammaticAccessCredentialsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetProgrammaticAccessCredentialsResponse
-> GetProgrammaticAccessCredentialsResponse -> Bool
$c/= :: GetProgrammaticAccessCredentialsResponse
-> GetProgrammaticAccessCredentialsResponse -> Bool
== :: GetProgrammaticAccessCredentialsResponse
-> GetProgrammaticAccessCredentialsResponse -> Bool
$c== :: GetProgrammaticAccessCredentialsResponse
-> GetProgrammaticAccessCredentialsResponse -> Bool
Prelude.Eq, ReadPrec [GetProgrammaticAccessCredentialsResponse]
ReadPrec GetProgrammaticAccessCredentialsResponse
Int -> ReadS GetProgrammaticAccessCredentialsResponse
ReadS [GetProgrammaticAccessCredentialsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetProgrammaticAccessCredentialsResponse]
$creadListPrec :: ReadPrec [GetProgrammaticAccessCredentialsResponse]
readPrec :: ReadPrec GetProgrammaticAccessCredentialsResponse
$creadPrec :: ReadPrec GetProgrammaticAccessCredentialsResponse
readList :: ReadS [GetProgrammaticAccessCredentialsResponse]
$creadList :: ReadS [GetProgrammaticAccessCredentialsResponse]
readsPrec :: Int -> ReadS GetProgrammaticAccessCredentialsResponse
$creadsPrec :: Int -> ReadS GetProgrammaticAccessCredentialsResponse
Prelude.Read, Int -> GetProgrammaticAccessCredentialsResponse -> ShowS
[GetProgrammaticAccessCredentialsResponse] -> ShowS
GetProgrammaticAccessCredentialsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetProgrammaticAccessCredentialsResponse] -> ShowS
$cshowList :: [GetProgrammaticAccessCredentialsResponse] -> ShowS
show :: GetProgrammaticAccessCredentialsResponse -> String
$cshow :: GetProgrammaticAccessCredentialsResponse -> String
showsPrec :: Int -> GetProgrammaticAccessCredentialsResponse -> ShowS
$cshowsPrec :: Int -> GetProgrammaticAccessCredentialsResponse -> ShowS
Prelude.Show, forall x.
Rep GetProgrammaticAccessCredentialsResponse x
-> GetProgrammaticAccessCredentialsResponse
forall x.
GetProgrammaticAccessCredentialsResponse
-> Rep GetProgrammaticAccessCredentialsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetProgrammaticAccessCredentialsResponse x
-> GetProgrammaticAccessCredentialsResponse
$cfrom :: forall x.
GetProgrammaticAccessCredentialsResponse
-> Rep GetProgrammaticAccessCredentialsResponse x
Prelude.Generic)
newGetProgrammaticAccessCredentialsResponse ::
Prelude.Int ->
GetProgrammaticAccessCredentialsResponse
newGetProgrammaticAccessCredentialsResponse :: Int -> GetProgrammaticAccessCredentialsResponse
newGetProgrammaticAccessCredentialsResponse
Int
pHttpStatus_ =
GetProgrammaticAccessCredentialsResponse'
{ $sel:credentials:GetProgrammaticAccessCredentialsResponse' :: Maybe Credentials
credentials =
forall a. Maybe a
Prelude.Nothing,
$sel:durationInMinutes:GetProgrammaticAccessCredentialsResponse' :: Maybe Natural
durationInMinutes =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetProgrammaticAccessCredentialsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getProgrammaticAccessCredentialsResponse_credentials :: Lens.Lens' GetProgrammaticAccessCredentialsResponse (Prelude.Maybe Credentials)
getProgrammaticAccessCredentialsResponse_credentials :: Lens' GetProgrammaticAccessCredentialsResponse (Maybe Credentials)
getProgrammaticAccessCredentialsResponse_credentials = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetProgrammaticAccessCredentialsResponse' {Maybe Credentials
credentials :: Maybe Credentials
$sel:credentials:GetProgrammaticAccessCredentialsResponse' :: GetProgrammaticAccessCredentialsResponse -> Maybe Credentials
credentials} -> Maybe Credentials
credentials) (\s :: GetProgrammaticAccessCredentialsResponse
s@GetProgrammaticAccessCredentialsResponse' {} Maybe Credentials
a -> GetProgrammaticAccessCredentialsResponse
s {$sel:credentials:GetProgrammaticAccessCredentialsResponse' :: Maybe Credentials
credentials = Maybe Credentials
a} :: GetProgrammaticAccessCredentialsResponse)
getProgrammaticAccessCredentialsResponse_durationInMinutes :: Lens.Lens' GetProgrammaticAccessCredentialsResponse (Prelude.Maybe Prelude.Natural)
getProgrammaticAccessCredentialsResponse_durationInMinutes :: Lens' GetProgrammaticAccessCredentialsResponse (Maybe Natural)
getProgrammaticAccessCredentialsResponse_durationInMinutes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetProgrammaticAccessCredentialsResponse' {Maybe Natural
durationInMinutes :: Maybe Natural
$sel:durationInMinutes:GetProgrammaticAccessCredentialsResponse' :: GetProgrammaticAccessCredentialsResponse -> Maybe Natural
durationInMinutes} -> Maybe Natural
durationInMinutes) (\s :: GetProgrammaticAccessCredentialsResponse
s@GetProgrammaticAccessCredentialsResponse' {} Maybe Natural
a -> GetProgrammaticAccessCredentialsResponse
s {$sel:durationInMinutes:GetProgrammaticAccessCredentialsResponse' :: Maybe Natural
durationInMinutes = Maybe Natural
a} :: GetProgrammaticAccessCredentialsResponse)
getProgrammaticAccessCredentialsResponse_httpStatus :: Lens.Lens' GetProgrammaticAccessCredentialsResponse Prelude.Int
getProgrammaticAccessCredentialsResponse_httpStatus :: Lens' GetProgrammaticAccessCredentialsResponse Int
getProgrammaticAccessCredentialsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetProgrammaticAccessCredentialsResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetProgrammaticAccessCredentialsResponse' :: GetProgrammaticAccessCredentialsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetProgrammaticAccessCredentialsResponse
s@GetProgrammaticAccessCredentialsResponse' {} Int
a -> GetProgrammaticAccessCredentialsResponse
s {$sel:httpStatus:GetProgrammaticAccessCredentialsResponse' :: Int
httpStatus = Int
a} :: GetProgrammaticAccessCredentialsResponse)
instance
Prelude.NFData
GetProgrammaticAccessCredentialsResponse
where
rnf :: GetProgrammaticAccessCredentialsResponse -> ()
rnf GetProgrammaticAccessCredentialsResponse' {Int
Maybe Natural
Maybe Credentials
httpStatus :: Int
durationInMinutes :: Maybe Natural
credentials :: Maybe Credentials
$sel:httpStatus:GetProgrammaticAccessCredentialsResponse' :: GetProgrammaticAccessCredentialsResponse -> Int
$sel:durationInMinutes:GetProgrammaticAccessCredentialsResponse' :: GetProgrammaticAccessCredentialsResponse -> Maybe Natural
$sel:credentials:GetProgrammaticAccessCredentialsResponse' :: GetProgrammaticAccessCredentialsResponse -> Maybe Credentials
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Credentials
credentials
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
durationInMinutes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus