{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Braket.Types.QuantumTaskSummary where
import Amazonka.Braket.Types.QuantumTaskStatus
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
data QuantumTaskSummary = QuantumTaskSummary'
{
QuantumTaskSummary -> Maybe ISO8601
endedAt :: Prelude.Maybe Data.ISO8601,
QuantumTaskSummary -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
QuantumTaskSummary -> ISO8601
createdAt :: Data.ISO8601,
QuantumTaskSummary -> Text
deviceArn :: Prelude.Text,
QuantumTaskSummary -> Text
outputS3Bucket :: Prelude.Text,
QuantumTaskSummary -> Text
outputS3Directory :: Prelude.Text,
QuantumTaskSummary -> Text
quantumTaskArn :: Prelude.Text,
QuantumTaskSummary -> Integer
shots :: Prelude.Integer,
QuantumTaskSummary -> QuantumTaskStatus
status :: QuantumTaskStatus
}
deriving (QuantumTaskSummary -> QuantumTaskSummary -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: QuantumTaskSummary -> QuantumTaskSummary -> Bool
$c/= :: QuantumTaskSummary -> QuantumTaskSummary -> Bool
== :: QuantumTaskSummary -> QuantumTaskSummary -> Bool
$c== :: QuantumTaskSummary -> QuantumTaskSummary -> Bool
Prelude.Eq, ReadPrec [QuantumTaskSummary]
ReadPrec QuantumTaskSummary
Int -> ReadS QuantumTaskSummary
ReadS [QuantumTaskSummary]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [QuantumTaskSummary]
$creadListPrec :: ReadPrec [QuantumTaskSummary]
readPrec :: ReadPrec QuantumTaskSummary
$creadPrec :: ReadPrec QuantumTaskSummary
readList :: ReadS [QuantumTaskSummary]
$creadList :: ReadS [QuantumTaskSummary]
readsPrec :: Int -> ReadS QuantumTaskSummary
$creadsPrec :: Int -> ReadS QuantumTaskSummary
Prelude.Read, Int -> QuantumTaskSummary -> ShowS
[QuantumTaskSummary] -> ShowS
QuantumTaskSummary -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [QuantumTaskSummary] -> ShowS
$cshowList :: [QuantumTaskSummary] -> ShowS
show :: QuantumTaskSummary -> String
$cshow :: QuantumTaskSummary -> String
showsPrec :: Int -> QuantumTaskSummary -> ShowS
$cshowsPrec :: Int -> QuantumTaskSummary -> ShowS
Prelude.Show, forall x. Rep QuantumTaskSummary x -> QuantumTaskSummary
forall x. QuantumTaskSummary -> Rep QuantumTaskSummary x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep QuantumTaskSummary x -> QuantumTaskSummary
$cfrom :: forall x. QuantumTaskSummary -> Rep QuantumTaskSummary x
Prelude.Generic)
newQuantumTaskSummary ::
Prelude.UTCTime ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Integer ->
QuantumTaskStatus ->
QuantumTaskSummary
newQuantumTaskSummary :: UTCTime
-> Text
-> Text
-> Text
-> Text
-> Integer
-> QuantumTaskStatus
-> QuantumTaskSummary
newQuantumTaskSummary
UTCTime
pCreatedAt_
Text
pDeviceArn_
Text
pOutputS3Bucket_
Text
pOutputS3Directory_
Text
pQuantumTaskArn_
Integer
pShots_
QuantumTaskStatus
pStatus_ =
QuantumTaskSummary'
{ $sel:endedAt:QuantumTaskSummary' :: Maybe ISO8601
endedAt = forall a. Maybe a
Prelude.Nothing,
$sel:tags:QuantumTaskSummary' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:createdAt:QuantumTaskSummary' :: ISO8601
createdAt = forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pCreatedAt_,
$sel:deviceArn:QuantumTaskSummary' :: Text
deviceArn = Text
pDeviceArn_,
$sel:outputS3Bucket:QuantumTaskSummary' :: Text
outputS3Bucket = Text
pOutputS3Bucket_,
$sel:outputS3Directory:QuantumTaskSummary' :: Text
outputS3Directory = Text
pOutputS3Directory_,
$sel:quantumTaskArn:QuantumTaskSummary' :: Text
quantumTaskArn = Text
pQuantumTaskArn_,
$sel:shots:QuantumTaskSummary' :: Integer
shots = Integer
pShots_,
$sel:status:QuantumTaskSummary' :: QuantumTaskStatus
status = QuantumTaskStatus
pStatus_
}
quantumTaskSummary_endedAt :: Lens.Lens' QuantumTaskSummary (Prelude.Maybe Prelude.UTCTime)
quantumTaskSummary_endedAt :: Lens' QuantumTaskSummary (Maybe UTCTime)
quantumTaskSummary_endedAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\QuantumTaskSummary' {Maybe ISO8601
endedAt :: Maybe ISO8601
$sel:endedAt:QuantumTaskSummary' :: QuantumTaskSummary -> Maybe ISO8601
endedAt} -> Maybe ISO8601
endedAt) (\s :: QuantumTaskSummary
s@QuantumTaskSummary' {} Maybe ISO8601
a -> QuantumTaskSummary
s {$sel:endedAt:QuantumTaskSummary' :: Maybe ISO8601
endedAt = Maybe ISO8601
a} :: QuantumTaskSummary) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
quantumTaskSummary_tags :: Lens.Lens' QuantumTaskSummary (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
quantumTaskSummary_tags :: Lens' QuantumTaskSummary (Maybe (HashMap Text Text))
quantumTaskSummary_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\QuantumTaskSummary' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:QuantumTaskSummary' :: QuantumTaskSummary -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: QuantumTaskSummary
s@QuantumTaskSummary' {} Maybe (HashMap Text Text)
a -> QuantumTaskSummary
s {$sel:tags:QuantumTaskSummary' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: QuantumTaskSummary) 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
quantumTaskSummary_createdAt :: Lens.Lens' QuantumTaskSummary Prelude.UTCTime
quantumTaskSummary_createdAt :: Lens' QuantumTaskSummary UTCTime
quantumTaskSummary_createdAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\QuantumTaskSummary' {ISO8601
createdAt :: ISO8601
$sel:createdAt:QuantumTaskSummary' :: QuantumTaskSummary -> ISO8601
createdAt} -> ISO8601
createdAt) (\s :: QuantumTaskSummary
s@QuantumTaskSummary' {} ISO8601
a -> QuantumTaskSummary
s {$sel:createdAt:QuantumTaskSummary' :: ISO8601
createdAt = ISO8601
a} :: QuantumTaskSummary) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
quantumTaskSummary_deviceArn :: Lens.Lens' QuantumTaskSummary Prelude.Text
quantumTaskSummary_deviceArn :: Lens' QuantumTaskSummary Text
quantumTaskSummary_deviceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\QuantumTaskSummary' {Text
deviceArn :: Text
$sel:deviceArn:QuantumTaskSummary' :: QuantumTaskSummary -> Text
deviceArn} -> Text
deviceArn) (\s :: QuantumTaskSummary
s@QuantumTaskSummary' {} Text
a -> QuantumTaskSummary
s {$sel:deviceArn:QuantumTaskSummary' :: Text
deviceArn = Text
a} :: QuantumTaskSummary)
quantumTaskSummary_outputS3Bucket :: Lens.Lens' QuantumTaskSummary Prelude.Text
quantumTaskSummary_outputS3Bucket :: Lens' QuantumTaskSummary Text
quantumTaskSummary_outputS3Bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\QuantumTaskSummary' {Text
outputS3Bucket :: Text
$sel:outputS3Bucket:QuantumTaskSummary' :: QuantumTaskSummary -> Text
outputS3Bucket} -> Text
outputS3Bucket) (\s :: QuantumTaskSummary
s@QuantumTaskSummary' {} Text
a -> QuantumTaskSummary
s {$sel:outputS3Bucket:QuantumTaskSummary' :: Text
outputS3Bucket = Text
a} :: QuantumTaskSummary)
quantumTaskSummary_outputS3Directory :: Lens.Lens' QuantumTaskSummary Prelude.Text
quantumTaskSummary_outputS3Directory :: Lens' QuantumTaskSummary Text
quantumTaskSummary_outputS3Directory = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\QuantumTaskSummary' {Text
outputS3Directory :: Text
$sel:outputS3Directory:QuantumTaskSummary' :: QuantumTaskSummary -> Text
outputS3Directory} -> Text
outputS3Directory) (\s :: QuantumTaskSummary
s@QuantumTaskSummary' {} Text
a -> QuantumTaskSummary
s {$sel:outputS3Directory:QuantumTaskSummary' :: Text
outputS3Directory = Text
a} :: QuantumTaskSummary)
quantumTaskSummary_quantumTaskArn :: Lens.Lens' QuantumTaskSummary Prelude.Text
quantumTaskSummary_quantumTaskArn :: Lens' QuantumTaskSummary Text
quantumTaskSummary_quantumTaskArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\QuantumTaskSummary' {Text
quantumTaskArn :: Text
$sel:quantumTaskArn:QuantumTaskSummary' :: QuantumTaskSummary -> Text
quantumTaskArn} -> Text
quantumTaskArn) (\s :: QuantumTaskSummary
s@QuantumTaskSummary' {} Text
a -> QuantumTaskSummary
s {$sel:quantumTaskArn:QuantumTaskSummary' :: Text
quantumTaskArn = Text
a} :: QuantumTaskSummary)
quantumTaskSummary_shots :: Lens.Lens' QuantumTaskSummary Prelude.Integer
quantumTaskSummary_shots :: Lens' QuantumTaskSummary Integer
quantumTaskSummary_shots = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\QuantumTaskSummary' {Integer
shots :: Integer
$sel:shots:QuantumTaskSummary' :: QuantumTaskSummary -> Integer
shots} -> Integer
shots) (\s :: QuantumTaskSummary
s@QuantumTaskSummary' {} Integer
a -> QuantumTaskSummary
s {$sel:shots:QuantumTaskSummary' :: Integer
shots = Integer
a} :: QuantumTaskSummary)
quantumTaskSummary_status :: Lens.Lens' QuantumTaskSummary QuantumTaskStatus
quantumTaskSummary_status :: Lens' QuantumTaskSummary QuantumTaskStatus
quantumTaskSummary_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\QuantumTaskSummary' {QuantumTaskStatus
status :: QuantumTaskStatus
$sel:status:QuantumTaskSummary' :: QuantumTaskSummary -> QuantumTaskStatus
status} -> QuantumTaskStatus
status) (\s :: QuantumTaskSummary
s@QuantumTaskSummary' {} QuantumTaskStatus
a -> QuantumTaskSummary
s {$sel:status:QuantumTaskSummary' :: QuantumTaskStatus
status = QuantumTaskStatus
a} :: QuantumTaskSummary)
instance Data.FromJSON QuantumTaskSummary where
parseJSON :: Value -> Parser QuantumTaskSummary
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"QuantumTaskSummary"
( \Object
x ->
Maybe ISO8601
-> Maybe (HashMap Text Text)
-> ISO8601
-> Text
-> Text
-> Text
-> Text
-> Integer
-> QuantumTaskStatus
-> QuantumTaskSummary
QuantumTaskSummary'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"endedAt")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"tags" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"createdAt")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"deviceArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"outputS3Bucket")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"outputS3Directory")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"quantumTaskArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"shots")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"status")
)
instance Prelude.Hashable QuantumTaskSummary where
hashWithSalt :: Int -> QuantumTaskSummary -> Int
hashWithSalt Int
_salt QuantumTaskSummary' {Integer
Maybe (HashMap Text Text)
Maybe ISO8601
Text
ISO8601
QuantumTaskStatus
status :: QuantumTaskStatus
shots :: Integer
quantumTaskArn :: Text
outputS3Directory :: Text
outputS3Bucket :: Text
deviceArn :: Text
createdAt :: ISO8601
tags :: Maybe (HashMap Text Text)
endedAt :: Maybe ISO8601
$sel:status:QuantumTaskSummary' :: QuantumTaskSummary -> QuantumTaskStatus
$sel:shots:QuantumTaskSummary' :: QuantumTaskSummary -> Integer
$sel:quantumTaskArn:QuantumTaskSummary' :: QuantumTaskSummary -> Text
$sel:outputS3Directory:QuantumTaskSummary' :: QuantumTaskSummary -> Text
$sel:outputS3Bucket:QuantumTaskSummary' :: QuantumTaskSummary -> Text
$sel:deviceArn:QuantumTaskSummary' :: QuantumTaskSummary -> Text
$sel:createdAt:QuantumTaskSummary' :: QuantumTaskSummary -> ISO8601
$sel:tags:QuantumTaskSummary' :: QuantumTaskSummary -> Maybe (HashMap Text Text)
$sel:endedAt:QuantumTaskSummary' :: QuantumTaskSummary -> Maybe ISO8601
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ISO8601
endedAt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ISO8601
createdAt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
deviceArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
outputS3Bucket
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
outputS3Directory
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
quantumTaskArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Integer
shots
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` QuantumTaskStatus
status
instance Prelude.NFData QuantumTaskSummary where
rnf :: QuantumTaskSummary -> ()
rnf QuantumTaskSummary' {Integer
Maybe (HashMap Text Text)
Maybe ISO8601
Text
ISO8601
QuantumTaskStatus
status :: QuantumTaskStatus
shots :: Integer
quantumTaskArn :: Text
outputS3Directory :: Text
outputS3Bucket :: Text
deviceArn :: Text
createdAt :: ISO8601
tags :: Maybe (HashMap Text Text)
endedAt :: Maybe ISO8601
$sel:status:QuantumTaskSummary' :: QuantumTaskSummary -> QuantumTaskStatus
$sel:shots:QuantumTaskSummary' :: QuantumTaskSummary -> Integer
$sel:quantumTaskArn:QuantumTaskSummary' :: QuantumTaskSummary -> Text
$sel:outputS3Directory:QuantumTaskSummary' :: QuantumTaskSummary -> Text
$sel:outputS3Bucket:QuantumTaskSummary' :: QuantumTaskSummary -> Text
$sel:deviceArn:QuantumTaskSummary' :: QuantumTaskSummary -> Text
$sel:createdAt:QuantumTaskSummary' :: QuantumTaskSummary -> ISO8601
$sel:tags:QuantumTaskSummary' :: QuantumTaskSummary -> Maybe (HashMap Text Text)
$sel:endedAt:QuantumTaskSummary' :: QuantumTaskSummary -> Maybe ISO8601
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
endedAt
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 ISO8601
createdAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
deviceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
outputS3Bucket
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
outputS3Directory
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
quantumTaskArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Integer
shots
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf QuantumTaskStatus
status