{-# 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.HealthLake.CreateFHIRDatastore
(
CreateFHIRDatastore (..),
newCreateFHIRDatastore,
createFHIRDatastore_clientToken,
createFHIRDatastore_datastoreName,
createFHIRDatastore_preloadDataConfig,
createFHIRDatastore_sseConfiguration,
createFHIRDatastore_tags,
createFHIRDatastore_datastoreTypeVersion,
CreateFHIRDatastoreResponse (..),
newCreateFHIRDatastoreResponse,
createFHIRDatastoreResponse_httpStatus,
createFHIRDatastoreResponse_datastoreId,
createFHIRDatastoreResponse_datastoreArn,
createFHIRDatastoreResponse_datastoreStatus,
createFHIRDatastoreResponse_datastoreEndpoint,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.HealthLake.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateFHIRDatastore = CreateFHIRDatastore'
{
CreateFHIRDatastore -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
CreateFHIRDatastore -> Maybe Text
datastoreName :: Prelude.Maybe Prelude.Text,
CreateFHIRDatastore -> Maybe PreloadDataConfig
preloadDataConfig :: Prelude.Maybe PreloadDataConfig,
CreateFHIRDatastore -> Maybe SseConfiguration
sseConfiguration :: Prelude.Maybe SseConfiguration,
CreateFHIRDatastore -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateFHIRDatastore -> FHIRVersion
datastoreTypeVersion :: FHIRVersion
}
deriving (CreateFHIRDatastore -> CreateFHIRDatastore -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateFHIRDatastore -> CreateFHIRDatastore -> Bool
$c/= :: CreateFHIRDatastore -> CreateFHIRDatastore -> Bool
== :: CreateFHIRDatastore -> CreateFHIRDatastore -> Bool
$c== :: CreateFHIRDatastore -> CreateFHIRDatastore -> Bool
Prelude.Eq, ReadPrec [CreateFHIRDatastore]
ReadPrec CreateFHIRDatastore
Int -> ReadS CreateFHIRDatastore
ReadS [CreateFHIRDatastore]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateFHIRDatastore]
$creadListPrec :: ReadPrec [CreateFHIRDatastore]
readPrec :: ReadPrec CreateFHIRDatastore
$creadPrec :: ReadPrec CreateFHIRDatastore
readList :: ReadS [CreateFHIRDatastore]
$creadList :: ReadS [CreateFHIRDatastore]
readsPrec :: Int -> ReadS CreateFHIRDatastore
$creadsPrec :: Int -> ReadS CreateFHIRDatastore
Prelude.Read, Int -> CreateFHIRDatastore -> ShowS
[CreateFHIRDatastore] -> ShowS
CreateFHIRDatastore -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateFHIRDatastore] -> ShowS
$cshowList :: [CreateFHIRDatastore] -> ShowS
show :: CreateFHIRDatastore -> String
$cshow :: CreateFHIRDatastore -> String
showsPrec :: Int -> CreateFHIRDatastore -> ShowS
$cshowsPrec :: Int -> CreateFHIRDatastore -> ShowS
Prelude.Show, forall x. Rep CreateFHIRDatastore x -> CreateFHIRDatastore
forall x. CreateFHIRDatastore -> Rep CreateFHIRDatastore x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateFHIRDatastore x -> CreateFHIRDatastore
$cfrom :: forall x. CreateFHIRDatastore -> Rep CreateFHIRDatastore x
Prelude.Generic)
newCreateFHIRDatastore ::
FHIRVersion ->
CreateFHIRDatastore
newCreateFHIRDatastore :: FHIRVersion -> CreateFHIRDatastore
newCreateFHIRDatastore FHIRVersion
pDatastoreTypeVersion_ =
CreateFHIRDatastore'
{ $sel:clientToken:CreateFHIRDatastore' :: Maybe Text
clientToken = forall a. Maybe a
Prelude.Nothing,
$sel:datastoreName:CreateFHIRDatastore' :: Maybe Text
datastoreName = forall a. Maybe a
Prelude.Nothing,
$sel:preloadDataConfig:CreateFHIRDatastore' :: Maybe PreloadDataConfig
preloadDataConfig = forall a. Maybe a
Prelude.Nothing,
$sel:sseConfiguration:CreateFHIRDatastore' :: Maybe SseConfiguration
sseConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateFHIRDatastore' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:datastoreTypeVersion:CreateFHIRDatastore' :: FHIRVersion
datastoreTypeVersion = FHIRVersion
pDatastoreTypeVersion_
}
createFHIRDatastore_clientToken :: Lens.Lens' CreateFHIRDatastore (Prelude.Maybe Prelude.Text)
createFHIRDatastore_clientToken :: Lens' CreateFHIRDatastore (Maybe Text)
createFHIRDatastore_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFHIRDatastore' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: CreateFHIRDatastore
s@CreateFHIRDatastore' {} Maybe Text
a -> CreateFHIRDatastore
s {$sel:clientToken:CreateFHIRDatastore' :: Maybe Text
clientToken = Maybe Text
a} :: CreateFHIRDatastore)
createFHIRDatastore_datastoreName :: Lens.Lens' CreateFHIRDatastore (Prelude.Maybe Prelude.Text)
createFHIRDatastore_datastoreName :: Lens' CreateFHIRDatastore (Maybe Text)
createFHIRDatastore_datastoreName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFHIRDatastore' {Maybe Text
datastoreName :: Maybe Text
$sel:datastoreName:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe Text
datastoreName} -> Maybe Text
datastoreName) (\s :: CreateFHIRDatastore
s@CreateFHIRDatastore' {} Maybe Text
a -> CreateFHIRDatastore
s {$sel:datastoreName:CreateFHIRDatastore' :: Maybe Text
datastoreName = Maybe Text
a} :: CreateFHIRDatastore)
createFHIRDatastore_preloadDataConfig :: Lens.Lens' CreateFHIRDatastore (Prelude.Maybe PreloadDataConfig)
createFHIRDatastore_preloadDataConfig :: Lens' CreateFHIRDatastore (Maybe PreloadDataConfig)
createFHIRDatastore_preloadDataConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFHIRDatastore' {Maybe PreloadDataConfig
preloadDataConfig :: Maybe PreloadDataConfig
$sel:preloadDataConfig:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe PreloadDataConfig
preloadDataConfig} -> Maybe PreloadDataConfig
preloadDataConfig) (\s :: CreateFHIRDatastore
s@CreateFHIRDatastore' {} Maybe PreloadDataConfig
a -> CreateFHIRDatastore
s {$sel:preloadDataConfig:CreateFHIRDatastore' :: Maybe PreloadDataConfig
preloadDataConfig = Maybe PreloadDataConfig
a} :: CreateFHIRDatastore)
createFHIRDatastore_sseConfiguration :: Lens.Lens' CreateFHIRDatastore (Prelude.Maybe SseConfiguration)
createFHIRDatastore_sseConfiguration :: Lens' CreateFHIRDatastore (Maybe SseConfiguration)
createFHIRDatastore_sseConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFHIRDatastore' {Maybe SseConfiguration
sseConfiguration :: Maybe SseConfiguration
$sel:sseConfiguration:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe SseConfiguration
sseConfiguration} -> Maybe SseConfiguration
sseConfiguration) (\s :: CreateFHIRDatastore
s@CreateFHIRDatastore' {} Maybe SseConfiguration
a -> CreateFHIRDatastore
s {$sel:sseConfiguration:CreateFHIRDatastore' :: Maybe SseConfiguration
sseConfiguration = Maybe SseConfiguration
a} :: CreateFHIRDatastore)
createFHIRDatastore_tags :: Lens.Lens' CreateFHIRDatastore (Prelude.Maybe [Tag])
createFHIRDatastore_tags :: Lens' CreateFHIRDatastore (Maybe [Tag])
createFHIRDatastore_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFHIRDatastore' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateFHIRDatastore
s@CreateFHIRDatastore' {} Maybe [Tag]
a -> CreateFHIRDatastore
s {$sel:tags:CreateFHIRDatastore' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateFHIRDatastore) 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
createFHIRDatastore_datastoreTypeVersion :: Lens.Lens' CreateFHIRDatastore FHIRVersion
createFHIRDatastore_datastoreTypeVersion :: Lens' CreateFHIRDatastore FHIRVersion
createFHIRDatastore_datastoreTypeVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFHIRDatastore' {FHIRVersion
datastoreTypeVersion :: FHIRVersion
$sel:datastoreTypeVersion:CreateFHIRDatastore' :: CreateFHIRDatastore -> FHIRVersion
datastoreTypeVersion} -> FHIRVersion
datastoreTypeVersion) (\s :: CreateFHIRDatastore
s@CreateFHIRDatastore' {} FHIRVersion
a -> CreateFHIRDatastore
s {$sel:datastoreTypeVersion:CreateFHIRDatastore' :: FHIRVersion
datastoreTypeVersion = FHIRVersion
a} :: CreateFHIRDatastore)
instance Core.AWSRequest CreateFHIRDatastore where
type
AWSResponse CreateFHIRDatastore =
CreateFHIRDatastoreResponse
request :: (Service -> Service)
-> CreateFHIRDatastore -> Request CreateFHIRDatastore
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 CreateFHIRDatastore
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateFHIRDatastore)))
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
-> Text
-> Text
-> DatastoreStatus
-> Text
-> CreateFHIRDatastoreResponse
CreateFHIRDatastoreResponse'
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
"DatastoreId")
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
"DatastoreArn")
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
"DatastoreStatus")
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
"DatastoreEndpoint")
)
instance Prelude.Hashable CreateFHIRDatastore where
hashWithSalt :: Int -> CreateFHIRDatastore -> Int
hashWithSalt Int
_salt CreateFHIRDatastore' {Maybe [Tag]
Maybe Text
Maybe PreloadDataConfig
Maybe SseConfiguration
FHIRVersion
datastoreTypeVersion :: FHIRVersion
tags :: Maybe [Tag]
sseConfiguration :: Maybe SseConfiguration
preloadDataConfig :: Maybe PreloadDataConfig
datastoreName :: Maybe Text
clientToken :: Maybe Text
$sel:datastoreTypeVersion:CreateFHIRDatastore' :: CreateFHIRDatastore -> FHIRVersion
$sel:tags:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe [Tag]
$sel:sseConfiguration:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe SseConfiguration
$sel:preloadDataConfig:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe PreloadDataConfig
$sel:datastoreName:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe Text
$sel:clientToken:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
datastoreName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PreloadDataConfig
preloadDataConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SseConfiguration
sseConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` FHIRVersion
datastoreTypeVersion
instance Prelude.NFData CreateFHIRDatastore where
rnf :: CreateFHIRDatastore -> ()
rnf CreateFHIRDatastore' {Maybe [Tag]
Maybe Text
Maybe PreloadDataConfig
Maybe SseConfiguration
FHIRVersion
datastoreTypeVersion :: FHIRVersion
tags :: Maybe [Tag]
sseConfiguration :: Maybe SseConfiguration
preloadDataConfig :: Maybe PreloadDataConfig
datastoreName :: Maybe Text
clientToken :: Maybe Text
$sel:datastoreTypeVersion:CreateFHIRDatastore' :: CreateFHIRDatastore -> FHIRVersion
$sel:tags:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe [Tag]
$sel:sseConfiguration:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe SseConfiguration
$sel:preloadDataConfig:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe PreloadDataConfig
$sel:datastoreName:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe Text
$sel:clientToken:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
datastoreName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PreloadDataConfig
preloadDataConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SseConfiguration
sseConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf FHIRVersion
datastoreTypeVersion
instance Data.ToHeaders CreateFHIRDatastore where
toHeaders :: CreateFHIRDatastore -> 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
"HealthLake.CreateFHIRDatastore" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateFHIRDatastore where
toJSON :: CreateFHIRDatastore -> Value
toJSON CreateFHIRDatastore' {Maybe [Tag]
Maybe Text
Maybe PreloadDataConfig
Maybe SseConfiguration
FHIRVersion
datastoreTypeVersion :: FHIRVersion
tags :: Maybe [Tag]
sseConfiguration :: Maybe SseConfiguration
preloadDataConfig :: Maybe PreloadDataConfig
datastoreName :: Maybe Text
clientToken :: Maybe Text
$sel:datastoreTypeVersion:CreateFHIRDatastore' :: CreateFHIRDatastore -> FHIRVersion
$sel:tags:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe [Tag]
$sel:sseConfiguration:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe SseConfiguration
$sel:preloadDataConfig:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe PreloadDataConfig
$sel:datastoreName:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe Text
$sel:clientToken:CreateFHIRDatastore' :: CreateFHIRDatastore -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ClientToken" 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
clientToken,
(Key
"DatastoreName" 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
datastoreName,
(Key
"PreloadDataConfig" 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 PreloadDataConfig
preloadDataConfig,
(Key
"SseConfiguration" 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 SseConfiguration
sseConfiguration,
(Key
"Tags" 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 [Tag]
tags,
forall a. a -> Maybe a
Prelude.Just
( Key
"DatastoreTypeVersion"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= FHIRVersion
datastoreTypeVersion
)
]
)
instance Data.ToPath CreateFHIRDatastore where
toPath :: CreateFHIRDatastore -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateFHIRDatastore where
toQuery :: CreateFHIRDatastore -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateFHIRDatastoreResponse = CreateFHIRDatastoreResponse'
{
CreateFHIRDatastoreResponse -> Int
httpStatus :: Prelude.Int,
CreateFHIRDatastoreResponse -> Text
datastoreId :: Prelude.Text,
CreateFHIRDatastoreResponse -> Text
datastoreArn :: Prelude.Text,
CreateFHIRDatastoreResponse -> DatastoreStatus
datastoreStatus :: DatastoreStatus,
CreateFHIRDatastoreResponse -> Text
datastoreEndpoint :: Prelude.Text
}
deriving (CreateFHIRDatastoreResponse -> CreateFHIRDatastoreResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateFHIRDatastoreResponse -> CreateFHIRDatastoreResponse -> Bool
$c/= :: CreateFHIRDatastoreResponse -> CreateFHIRDatastoreResponse -> Bool
== :: CreateFHIRDatastoreResponse -> CreateFHIRDatastoreResponse -> Bool
$c== :: CreateFHIRDatastoreResponse -> CreateFHIRDatastoreResponse -> Bool
Prelude.Eq, ReadPrec [CreateFHIRDatastoreResponse]
ReadPrec CreateFHIRDatastoreResponse
Int -> ReadS CreateFHIRDatastoreResponse
ReadS [CreateFHIRDatastoreResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateFHIRDatastoreResponse]
$creadListPrec :: ReadPrec [CreateFHIRDatastoreResponse]
readPrec :: ReadPrec CreateFHIRDatastoreResponse
$creadPrec :: ReadPrec CreateFHIRDatastoreResponse
readList :: ReadS [CreateFHIRDatastoreResponse]
$creadList :: ReadS [CreateFHIRDatastoreResponse]
readsPrec :: Int -> ReadS CreateFHIRDatastoreResponse
$creadsPrec :: Int -> ReadS CreateFHIRDatastoreResponse
Prelude.Read, Int -> CreateFHIRDatastoreResponse -> ShowS
[CreateFHIRDatastoreResponse] -> ShowS
CreateFHIRDatastoreResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateFHIRDatastoreResponse] -> ShowS
$cshowList :: [CreateFHIRDatastoreResponse] -> ShowS
show :: CreateFHIRDatastoreResponse -> String
$cshow :: CreateFHIRDatastoreResponse -> String
showsPrec :: Int -> CreateFHIRDatastoreResponse -> ShowS
$cshowsPrec :: Int -> CreateFHIRDatastoreResponse -> ShowS
Prelude.Show, forall x.
Rep CreateFHIRDatastoreResponse x -> CreateFHIRDatastoreResponse
forall x.
CreateFHIRDatastoreResponse -> Rep CreateFHIRDatastoreResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateFHIRDatastoreResponse x -> CreateFHIRDatastoreResponse
$cfrom :: forall x.
CreateFHIRDatastoreResponse -> Rep CreateFHIRDatastoreResponse x
Prelude.Generic)
newCreateFHIRDatastoreResponse ::
Prelude.Int ->
Prelude.Text ->
Prelude.Text ->
DatastoreStatus ->
Prelude.Text ->
CreateFHIRDatastoreResponse
newCreateFHIRDatastoreResponse :: Int
-> Text
-> Text
-> DatastoreStatus
-> Text
-> CreateFHIRDatastoreResponse
newCreateFHIRDatastoreResponse
Int
pHttpStatus_
Text
pDatastoreId_
Text
pDatastoreArn_
DatastoreStatus
pDatastoreStatus_
Text
pDatastoreEndpoint_ =
CreateFHIRDatastoreResponse'
{ $sel:httpStatus:CreateFHIRDatastoreResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:datastoreId:CreateFHIRDatastoreResponse' :: Text
datastoreId = Text
pDatastoreId_,
$sel:datastoreArn:CreateFHIRDatastoreResponse' :: Text
datastoreArn = Text
pDatastoreArn_,
$sel:datastoreStatus:CreateFHIRDatastoreResponse' :: DatastoreStatus
datastoreStatus = DatastoreStatus
pDatastoreStatus_,
$sel:datastoreEndpoint:CreateFHIRDatastoreResponse' :: Text
datastoreEndpoint = Text
pDatastoreEndpoint_
}
createFHIRDatastoreResponse_httpStatus :: Lens.Lens' CreateFHIRDatastoreResponse Prelude.Int
createFHIRDatastoreResponse_httpStatus :: Lens' CreateFHIRDatastoreResponse Int
createFHIRDatastoreResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFHIRDatastoreResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateFHIRDatastoreResponse' :: CreateFHIRDatastoreResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateFHIRDatastoreResponse
s@CreateFHIRDatastoreResponse' {} Int
a -> CreateFHIRDatastoreResponse
s {$sel:httpStatus:CreateFHIRDatastoreResponse' :: Int
httpStatus = Int
a} :: CreateFHIRDatastoreResponse)
createFHIRDatastoreResponse_datastoreId :: Lens.Lens' CreateFHIRDatastoreResponse Prelude.Text
createFHIRDatastoreResponse_datastoreId :: Lens' CreateFHIRDatastoreResponse Text
createFHIRDatastoreResponse_datastoreId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFHIRDatastoreResponse' {Text
datastoreId :: Text
$sel:datastoreId:CreateFHIRDatastoreResponse' :: CreateFHIRDatastoreResponse -> Text
datastoreId} -> Text
datastoreId) (\s :: CreateFHIRDatastoreResponse
s@CreateFHIRDatastoreResponse' {} Text
a -> CreateFHIRDatastoreResponse
s {$sel:datastoreId:CreateFHIRDatastoreResponse' :: Text
datastoreId = Text
a} :: CreateFHIRDatastoreResponse)
createFHIRDatastoreResponse_datastoreArn :: Lens.Lens' CreateFHIRDatastoreResponse Prelude.Text
createFHIRDatastoreResponse_datastoreArn :: Lens' CreateFHIRDatastoreResponse Text
createFHIRDatastoreResponse_datastoreArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFHIRDatastoreResponse' {Text
datastoreArn :: Text
$sel:datastoreArn:CreateFHIRDatastoreResponse' :: CreateFHIRDatastoreResponse -> Text
datastoreArn} -> Text
datastoreArn) (\s :: CreateFHIRDatastoreResponse
s@CreateFHIRDatastoreResponse' {} Text
a -> CreateFHIRDatastoreResponse
s {$sel:datastoreArn:CreateFHIRDatastoreResponse' :: Text
datastoreArn = Text
a} :: CreateFHIRDatastoreResponse)
createFHIRDatastoreResponse_datastoreStatus :: Lens.Lens' CreateFHIRDatastoreResponse DatastoreStatus
createFHIRDatastoreResponse_datastoreStatus :: Lens' CreateFHIRDatastoreResponse DatastoreStatus
createFHIRDatastoreResponse_datastoreStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFHIRDatastoreResponse' {DatastoreStatus
datastoreStatus :: DatastoreStatus
$sel:datastoreStatus:CreateFHIRDatastoreResponse' :: CreateFHIRDatastoreResponse -> DatastoreStatus
datastoreStatus} -> DatastoreStatus
datastoreStatus) (\s :: CreateFHIRDatastoreResponse
s@CreateFHIRDatastoreResponse' {} DatastoreStatus
a -> CreateFHIRDatastoreResponse
s {$sel:datastoreStatus:CreateFHIRDatastoreResponse' :: DatastoreStatus
datastoreStatus = DatastoreStatus
a} :: CreateFHIRDatastoreResponse)
createFHIRDatastoreResponse_datastoreEndpoint :: Lens.Lens' CreateFHIRDatastoreResponse Prelude.Text
createFHIRDatastoreResponse_datastoreEndpoint :: Lens' CreateFHIRDatastoreResponse Text
createFHIRDatastoreResponse_datastoreEndpoint = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateFHIRDatastoreResponse' {Text
datastoreEndpoint :: Text
$sel:datastoreEndpoint:CreateFHIRDatastoreResponse' :: CreateFHIRDatastoreResponse -> Text
datastoreEndpoint} -> Text
datastoreEndpoint) (\s :: CreateFHIRDatastoreResponse
s@CreateFHIRDatastoreResponse' {} Text
a -> CreateFHIRDatastoreResponse
s {$sel:datastoreEndpoint:CreateFHIRDatastoreResponse' :: Text
datastoreEndpoint = Text
a} :: CreateFHIRDatastoreResponse)
instance Prelude.NFData CreateFHIRDatastoreResponse where
rnf :: CreateFHIRDatastoreResponse -> ()
rnf CreateFHIRDatastoreResponse' {Int
Text
DatastoreStatus
datastoreEndpoint :: Text
datastoreStatus :: DatastoreStatus
datastoreArn :: Text
datastoreId :: Text
httpStatus :: Int
$sel:datastoreEndpoint:CreateFHIRDatastoreResponse' :: CreateFHIRDatastoreResponse -> Text
$sel:datastoreStatus:CreateFHIRDatastoreResponse' :: CreateFHIRDatastoreResponse -> DatastoreStatus
$sel:datastoreArn:CreateFHIRDatastoreResponse' :: CreateFHIRDatastoreResponse -> Text
$sel:datastoreId:CreateFHIRDatastoreResponse' :: CreateFHIRDatastoreResponse -> Text
$sel:httpStatus:CreateFHIRDatastoreResponse' :: CreateFHIRDatastoreResponse -> 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 Text
datastoreId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
datastoreArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf DatastoreStatus
datastoreStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
datastoreEndpoint