{-# 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.Omics.CreateVariantStore
(
CreateVariantStore (..),
newCreateVariantStore,
createVariantStore_description,
createVariantStore_name,
createVariantStore_sseConfig,
createVariantStore_tags,
createVariantStore_reference,
CreateVariantStoreResponse (..),
newCreateVariantStoreResponse,
createVariantStoreResponse_reference,
createVariantStoreResponse_httpStatus,
createVariantStoreResponse_creationTime,
createVariantStoreResponse_id,
createVariantStoreResponse_name,
createVariantStoreResponse_status,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Omics.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateVariantStore = CreateVariantStore'
{
CreateVariantStore -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
CreateVariantStore -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
CreateVariantStore -> Maybe SseConfig
sseConfig :: Prelude.Maybe SseConfig,
CreateVariantStore -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateVariantStore -> ReferenceItem
reference :: ReferenceItem
}
deriving (CreateVariantStore -> CreateVariantStore -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateVariantStore -> CreateVariantStore -> Bool
$c/= :: CreateVariantStore -> CreateVariantStore -> Bool
== :: CreateVariantStore -> CreateVariantStore -> Bool
$c== :: CreateVariantStore -> CreateVariantStore -> Bool
Prelude.Eq, ReadPrec [CreateVariantStore]
ReadPrec CreateVariantStore
Int -> ReadS CreateVariantStore
ReadS [CreateVariantStore]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateVariantStore]
$creadListPrec :: ReadPrec [CreateVariantStore]
readPrec :: ReadPrec CreateVariantStore
$creadPrec :: ReadPrec CreateVariantStore
readList :: ReadS [CreateVariantStore]
$creadList :: ReadS [CreateVariantStore]
readsPrec :: Int -> ReadS CreateVariantStore
$creadsPrec :: Int -> ReadS CreateVariantStore
Prelude.Read, Int -> CreateVariantStore -> ShowS
[CreateVariantStore] -> ShowS
CreateVariantStore -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateVariantStore] -> ShowS
$cshowList :: [CreateVariantStore] -> ShowS
show :: CreateVariantStore -> String
$cshow :: CreateVariantStore -> String
showsPrec :: Int -> CreateVariantStore -> ShowS
$cshowsPrec :: Int -> CreateVariantStore -> ShowS
Prelude.Show, forall x. Rep CreateVariantStore x -> CreateVariantStore
forall x. CreateVariantStore -> Rep CreateVariantStore x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateVariantStore x -> CreateVariantStore
$cfrom :: forall x. CreateVariantStore -> Rep CreateVariantStore x
Prelude.Generic)
newCreateVariantStore ::
ReferenceItem ->
CreateVariantStore
newCreateVariantStore :: ReferenceItem -> CreateVariantStore
newCreateVariantStore ReferenceItem
pReference_ =
CreateVariantStore'
{ $sel:description:CreateVariantStore' :: Maybe Text
description = forall a. Maybe a
Prelude.Nothing,
$sel:name:CreateVariantStore' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:sseConfig:CreateVariantStore' :: Maybe SseConfig
sseConfig = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateVariantStore' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:reference:CreateVariantStore' :: ReferenceItem
reference = ReferenceItem
pReference_
}
createVariantStore_description :: Lens.Lens' CreateVariantStore (Prelude.Maybe Prelude.Text)
createVariantStore_description :: Lens' CreateVariantStore (Maybe Text)
createVariantStore_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVariantStore' {Maybe Text
description :: Maybe Text
$sel:description:CreateVariantStore' :: CreateVariantStore -> Maybe Text
description} -> Maybe Text
description) (\s :: CreateVariantStore
s@CreateVariantStore' {} Maybe Text
a -> CreateVariantStore
s {$sel:description:CreateVariantStore' :: Maybe Text
description = Maybe Text
a} :: CreateVariantStore)
createVariantStore_name :: Lens.Lens' CreateVariantStore (Prelude.Maybe Prelude.Text)
createVariantStore_name :: Lens' CreateVariantStore (Maybe Text)
createVariantStore_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVariantStore' {Maybe Text
name :: Maybe Text
$sel:name:CreateVariantStore' :: CreateVariantStore -> Maybe Text
name} -> Maybe Text
name) (\s :: CreateVariantStore
s@CreateVariantStore' {} Maybe Text
a -> CreateVariantStore
s {$sel:name:CreateVariantStore' :: Maybe Text
name = Maybe Text
a} :: CreateVariantStore)
createVariantStore_sseConfig :: Lens.Lens' CreateVariantStore (Prelude.Maybe SseConfig)
createVariantStore_sseConfig :: Lens' CreateVariantStore (Maybe SseConfig)
createVariantStore_sseConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVariantStore' {Maybe SseConfig
sseConfig :: Maybe SseConfig
$sel:sseConfig:CreateVariantStore' :: CreateVariantStore -> Maybe SseConfig
sseConfig} -> Maybe SseConfig
sseConfig) (\s :: CreateVariantStore
s@CreateVariantStore' {} Maybe SseConfig
a -> CreateVariantStore
s {$sel:sseConfig:CreateVariantStore' :: Maybe SseConfig
sseConfig = Maybe SseConfig
a} :: CreateVariantStore)
createVariantStore_tags :: Lens.Lens' CreateVariantStore (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createVariantStore_tags :: Lens' CreateVariantStore (Maybe (HashMap Text Text))
createVariantStore_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVariantStore' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateVariantStore' :: CreateVariantStore -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateVariantStore
s@CreateVariantStore' {} Maybe (HashMap Text Text)
a -> CreateVariantStore
s {$sel:tags:CreateVariantStore' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateVariantStore) 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
createVariantStore_reference :: Lens.Lens' CreateVariantStore ReferenceItem
createVariantStore_reference :: Lens' CreateVariantStore ReferenceItem
createVariantStore_reference = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVariantStore' {ReferenceItem
reference :: ReferenceItem
$sel:reference:CreateVariantStore' :: CreateVariantStore -> ReferenceItem
reference} -> ReferenceItem
reference) (\s :: CreateVariantStore
s@CreateVariantStore' {} ReferenceItem
a -> CreateVariantStore
s {$sel:reference:CreateVariantStore' :: ReferenceItem
reference = ReferenceItem
a} :: CreateVariantStore)
instance Core.AWSRequest CreateVariantStore where
type
AWSResponse CreateVariantStore =
CreateVariantStoreResponse
request :: (Service -> Service)
-> CreateVariantStore -> Request CreateVariantStore
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 CreateVariantStore
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateVariantStore)))
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 ReferenceItem
-> Int
-> ISO8601
-> Text
-> Text
-> StoreStatus
-> CreateVariantStoreResponse
CreateVariantStoreResponse'
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
"reference")
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))
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
"creationTime")
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
"id")
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
"name")
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
"status")
)
instance Prelude.Hashable CreateVariantStore where
hashWithSalt :: Int -> CreateVariantStore -> Int
hashWithSalt Int
_salt CreateVariantStore' {Maybe Text
Maybe (HashMap Text Text)
Maybe SseConfig
ReferenceItem
reference :: ReferenceItem
tags :: Maybe (HashMap Text Text)
sseConfig :: Maybe SseConfig
name :: Maybe Text
description :: Maybe Text
$sel:reference:CreateVariantStore' :: CreateVariantStore -> ReferenceItem
$sel:tags:CreateVariantStore' :: CreateVariantStore -> Maybe (HashMap Text Text)
$sel:sseConfig:CreateVariantStore' :: CreateVariantStore -> Maybe SseConfig
$sel:name:CreateVariantStore' :: CreateVariantStore -> Maybe Text
$sel:description:CreateVariantStore' :: CreateVariantStore -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SseConfig
sseConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ReferenceItem
reference
instance Prelude.NFData CreateVariantStore where
rnf :: CreateVariantStore -> ()
rnf CreateVariantStore' {Maybe Text
Maybe (HashMap Text Text)
Maybe SseConfig
ReferenceItem
reference :: ReferenceItem
tags :: Maybe (HashMap Text Text)
sseConfig :: Maybe SseConfig
name :: Maybe Text
description :: Maybe Text
$sel:reference:CreateVariantStore' :: CreateVariantStore -> ReferenceItem
$sel:tags:CreateVariantStore' :: CreateVariantStore -> Maybe (HashMap Text Text)
$sel:sseConfig:CreateVariantStore' :: CreateVariantStore -> Maybe SseConfig
$sel:name:CreateVariantStore' :: CreateVariantStore -> Maybe Text
$sel:description:CreateVariantStore' :: CreateVariantStore -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SseConfig
sseConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ReferenceItem
reference
instance Data.ToHeaders CreateVariantStore where
toHeaders :: CreateVariantStore -> 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 CreateVariantStore where
toJSON :: CreateVariantStore -> Value
toJSON CreateVariantStore' {Maybe Text
Maybe (HashMap Text Text)
Maybe SseConfig
ReferenceItem
reference :: ReferenceItem
tags :: Maybe (HashMap Text Text)
sseConfig :: Maybe SseConfig
name :: Maybe Text
description :: Maybe Text
$sel:reference:CreateVariantStore' :: CreateVariantStore -> ReferenceItem
$sel:tags:CreateVariantStore' :: CreateVariantStore -> Maybe (HashMap Text Text)
$sel:sseConfig:CreateVariantStore' :: CreateVariantStore -> Maybe SseConfig
$sel:name:CreateVariantStore' :: CreateVariantStore -> Maybe Text
$sel:description:CreateVariantStore' :: CreateVariantStore -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"description" 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
description,
(Key
"name" 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
name,
(Key
"sseConfig" 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 SseConfig
sseConfig,
(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 (HashMap Text Text)
tags,
forall a. a -> Maybe a
Prelude.Just (Key
"reference" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= ReferenceItem
reference)
]
)
instance Data.ToPath CreateVariantStore where
toPath :: CreateVariantStore -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/variantStore"
instance Data.ToQuery CreateVariantStore where
toQuery :: CreateVariantStore -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateVariantStoreResponse = CreateVariantStoreResponse'
{
CreateVariantStoreResponse -> Maybe ReferenceItem
reference :: Prelude.Maybe ReferenceItem,
CreateVariantStoreResponse -> Int
httpStatus :: Prelude.Int,
CreateVariantStoreResponse -> ISO8601
creationTime :: Data.ISO8601,
CreateVariantStoreResponse -> Text
id :: Prelude.Text,
CreateVariantStoreResponse -> Text
name :: Prelude.Text,
CreateVariantStoreResponse -> StoreStatus
status :: StoreStatus
}
deriving (CreateVariantStoreResponse -> CreateVariantStoreResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateVariantStoreResponse -> CreateVariantStoreResponse -> Bool
$c/= :: CreateVariantStoreResponse -> CreateVariantStoreResponse -> Bool
== :: CreateVariantStoreResponse -> CreateVariantStoreResponse -> Bool
$c== :: CreateVariantStoreResponse -> CreateVariantStoreResponse -> Bool
Prelude.Eq, ReadPrec [CreateVariantStoreResponse]
ReadPrec CreateVariantStoreResponse
Int -> ReadS CreateVariantStoreResponse
ReadS [CreateVariantStoreResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateVariantStoreResponse]
$creadListPrec :: ReadPrec [CreateVariantStoreResponse]
readPrec :: ReadPrec CreateVariantStoreResponse
$creadPrec :: ReadPrec CreateVariantStoreResponse
readList :: ReadS [CreateVariantStoreResponse]
$creadList :: ReadS [CreateVariantStoreResponse]
readsPrec :: Int -> ReadS CreateVariantStoreResponse
$creadsPrec :: Int -> ReadS CreateVariantStoreResponse
Prelude.Read, Int -> CreateVariantStoreResponse -> ShowS
[CreateVariantStoreResponse] -> ShowS
CreateVariantStoreResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateVariantStoreResponse] -> ShowS
$cshowList :: [CreateVariantStoreResponse] -> ShowS
show :: CreateVariantStoreResponse -> String
$cshow :: CreateVariantStoreResponse -> String
showsPrec :: Int -> CreateVariantStoreResponse -> ShowS
$cshowsPrec :: Int -> CreateVariantStoreResponse -> ShowS
Prelude.Show, forall x.
Rep CreateVariantStoreResponse x -> CreateVariantStoreResponse
forall x.
CreateVariantStoreResponse -> Rep CreateVariantStoreResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateVariantStoreResponse x -> CreateVariantStoreResponse
$cfrom :: forall x.
CreateVariantStoreResponse -> Rep CreateVariantStoreResponse x
Prelude.Generic)
newCreateVariantStoreResponse ::
Prelude.Int ->
Prelude.UTCTime ->
Prelude.Text ->
Prelude.Text ->
StoreStatus ->
CreateVariantStoreResponse
newCreateVariantStoreResponse :: Int
-> UTCTime
-> Text
-> Text
-> StoreStatus
-> CreateVariantStoreResponse
newCreateVariantStoreResponse
Int
pHttpStatus_
UTCTime
pCreationTime_
Text
pId_
Text
pName_
StoreStatus
pStatus_ =
CreateVariantStoreResponse'
{ $sel:reference:CreateVariantStoreResponse' :: Maybe ReferenceItem
reference =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateVariantStoreResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:creationTime:CreateVariantStoreResponse' :: ISO8601
creationTime = forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pCreationTime_,
$sel:id:CreateVariantStoreResponse' :: Text
id = Text
pId_,
$sel:name:CreateVariantStoreResponse' :: Text
name = Text
pName_,
$sel:status:CreateVariantStoreResponse' :: StoreStatus
status = StoreStatus
pStatus_
}
createVariantStoreResponse_reference :: Lens.Lens' CreateVariantStoreResponse (Prelude.Maybe ReferenceItem)
createVariantStoreResponse_reference :: Lens' CreateVariantStoreResponse (Maybe ReferenceItem)
createVariantStoreResponse_reference = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVariantStoreResponse' {Maybe ReferenceItem
reference :: Maybe ReferenceItem
$sel:reference:CreateVariantStoreResponse' :: CreateVariantStoreResponse -> Maybe ReferenceItem
reference} -> Maybe ReferenceItem
reference) (\s :: CreateVariantStoreResponse
s@CreateVariantStoreResponse' {} Maybe ReferenceItem
a -> CreateVariantStoreResponse
s {$sel:reference:CreateVariantStoreResponse' :: Maybe ReferenceItem
reference = Maybe ReferenceItem
a} :: CreateVariantStoreResponse)
createVariantStoreResponse_httpStatus :: Lens.Lens' CreateVariantStoreResponse Prelude.Int
createVariantStoreResponse_httpStatus :: Lens' CreateVariantStoreResponse Int
createVariantStoreResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVariantStoreResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateVariantStoreResponse' :: CreateVariantStoreResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateVariantStoreResponse
s@CreateVariantStoreResponse' {} Int
a -> CreateVariantStoreResponse
s {$sel:httpStatus:CreateVariantStoreResponse' :: Int
httpStatus = Int
a} :: CreateVariantStoreResponse)
createVariantStoreResponse_creationTime :: Lens.Lens' CreateVariantStoreResponse Prelude.UTCTime
createVariantStoreResponse_creationTime :: Lens' CreateVariantStoreResponse UTCTime
createVariantStoreResponse_creationTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVariantStoreResponse' {ISO8601
creationTime :: ISO8601
$sel:creationTime:CreateVariantStoreResponse' :: CreateVariantStoreResponse -> ISO8601
creationTime} -> ISO8601
creationTime) (\s :: CreateVariantStoreResponse
s@CreateVariantStoreResponse' {} ISO8601
a -> CreateVariantStoreResponse
s {$sel:creationTime:CreateVariantStoreResponse' :: ISO8601
creationTime = ISO8601
a} :: CreateVariantStoreResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
createVariantStoreResponse_id :: Lens.Lens' CreateVariantStoreResponse Prelude.Text
createVariantStoreResponse_id :: Lens' CreateVariantStoreResponse Text
createVariantStoreResponse_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVariantStoreResponse' {Text
id :: Text
$sel:id:CreateVariantStoreResponse' :: CreateVariantStoreResponse -> Text
id} -> Text
id) (\s :: CreateVariantStoreResponse
s@CreateVariantStoreResponse' {} Text
a -> CreateVariantStoreResponse
s {$sel:id:CreateVariantStoreResponse' :: Text
id = Text
a} :: CreateVariantStoreResponse)
createVariantStoreResponse_name :: Lens.Lens' CreateVariantStoreResponse Prelude.Text
createVariantStoreResponse_name :: Lens' CreateVariantStoreResponse Text
createVariantStoreResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVariantStoreResponse' {Text
name :: Text
$sel:name:CreateVariantStoreResponse' :: CreateVariantStoreResponse -> Text
name} -> Text
name) (\s :: CreateVariantStoreResponse
s@CreateVariantStoreResponse' {} Text
a -> CreateVariantStoreResponse
s {$sel:name:CreateVariantStoreResponse' :: Text
name = Text
a} :: CreateVariantStoreResponse)
createVariantStoreResponse_status :: Lens.Lens' CreateVariantStoreResponse StoreStatus
createVariantStoreResponse_status :: Lens' CreateVariantStoreResponse StoreStatus
createVariantStoreResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateVariantStoreResponse' {StoreStatus
status :: StoreStatus
$sel:status:CreateVariantStoreResponse' :: CreateVariantStoreResponse -> StoreStatus
status} -> StoreStatus
status) (\s :: CreateVariantStoreResponse
s@CreateVariantStoreResponse' {} StoreStatus
a -> CreateVariantStoreResponse
s {$sel:status:CreateVariantStoreResponse' :: StoreStatus
status = StoreStatus
a} :: CreateVariantStoreResponse)
instance Prelude.NFData CreateVariantStoreResponse where
rnf :: CreateVariantStoreResponse -> ()
rnf CreateVariantStoreResponse' {Int
Maybe ReferenceItem
Text
ISO8601
StoreStatus
status :: StoreStatus
name :: Text
id :: Text
creationTime :: ISO8601
httpStatus :: Int
reference :: Maybe ReferenceItem
$sel:status:CreateVariantStoreResponse' :: CreateVariantStoreResponse -> StoreStatus
$sel:name:CreateVariantStoreResponse' :: CreateVariantStoreResponse -> Text
$sel:id:CreateVariantStoreResponse' :: CreateVariantStoreResponse -> Text
$sel:creationTime:CreateVariantStoreResponse' :: CreateVariantStoreResponse -> ISO8601
$sel:httpStatus:CreateVariantStoreResponse' :: CreateVariantStoreResponse -> Int
$sel:reference:CreateVariantStoreResponse' :: CreateVariantStoreResponse -> Maybe ReferenceItem
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ReferenceItem
reference
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 ISO8601
creationTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
id
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf StoreStatus
status