{-# 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.RedshiftData.Types.SubStatementData where
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
import Amazonka.RedshiftData.Types.StatementStatusString
data SubStatementData = SubStatementData'
{
SubStatementData -> Maybe POSIX
createdAt :: Prelude.Maybe Data.POSIX,
SubStatementData -> Maybe Integer
duration :: Prelude.Maybe Prelude.Integer,
SubStatementData -> Maybe Text
error :: Prelude.Maybe Prelude.Text,
SubStatementData -> Maybe Bool
hasResultSet :: Prelude.Maybe Prelude.Bool,
SubStatementData -> Maybe Text
queryString :: Prelude.Maybe Prelude.Text,
SubStatementData -> Maybe Integer
redshiftQueryId :: Prelude.Maybe Prelude.Integer,
SubStatementData -> Maybe Integer
resultRows :: Prelude.Maybe Prelude.Integer,
SubStatementData -> Maybe Integer
resultSize :: Prelude.Maybe Prelude.Integer,
SubStatementData -> Maybe StatementStatusString
status :: Prelude.Maybe StatementStatusString,
SubStatementData -> Maybe POSIX
updatedAt :: Prelude.Maybe Data.POSIX,
SubStatementData -> Text
id :: Prelude.Text
}
deriving (SubStatementData -> SubStatementData -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SubStatementData -> SubStatementData -> Bool
$c/= :: SubStatementData -> SubStatementData -> Bool
== :: SubStatementData -> SubStatementData -> Bool
$c== :: SubStatementData -> SubStatementData -> Bool
Prelude.Eq, ReadPrec [SubStatementData]
ReadPrec SubStatementData
Int -> ReadS SubStatementData
ReadS [SubStatementData]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SubStatementData]
$creadListPrec :: ReadPrec [SubStatementData]
readPrec :: ReadPrec SubStatementData
$creadPrec :: ReadPrec SubStatementData
readList :: ReadS [SubStatementData]
$creadList :: ReadS [SubStatementData]
readsPrec :: Int -> ReadS SubStatementData
$creadsPrec :: Int -> ReadS SubStatementData
Prelude.Read, Int -> SubStatementData -> ShowS
[SubStatementData] -> ShowS
SubStatementData -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SubStatementData] -> ShowS
$cshowList :: [SubStatementData] -> ShowS
show :: SubStatementData -> String
$cshow :: SubStatementData -> String
showsPrec :: Int -> SubStatementData -> ShowS
$cshowsPrec :: Int -> SubStatementData -> ShowS
Prelude.Show, forall x. Rep SubStatementData x -> SubStatementData
forall x. SubStatementData -> Rep SubStatementData x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SubStatementData x -> SubStatementData
$cfrom :: forall x. SubStatementData -> Rep SubStatementData x
Prelude.Generic)
newSubStatementData ::
Prelude.Text ->
SubStatementData
newSubStatementData :: Text -> SubStatementData
newSubStatementData Text
pId_ =
SubStatementData'
{ $sel:createdAt:SubStatementData' :: Maybe POSIX
createdAt = forall a. Maybe a
Prelude.Nothing,
$sel:duration:SubStatementData' :: Maybe Integer
duration = forall a. Maybe a
Prelude.Nothing,
$sel:error:SubStatementData' :: Maybe Text
error = forall a. Maybe a
Prelude.Nothing,
$sel:hasResultSet:SubStatementData' :: Maybe Bool
hasResultSet = forall a. Maybe a
Prelude.Nothing,
$sel:queryString:SubStatementData' :: Maybe Text
queryString = forall a. Maybe a
Prelude.Nothing,
$sel:redshiftQueryId:SubStatementData' :: Maybe Integer
redshiftQueryId = forall a. Maybe a
Prelude.Nothing,
$sel:resultRows:SubStatementData' :: Maybe Integer
resultRows = forall a. Maybe a
Prelude.Nothing,
$sel:resultSize:SubStatementData' :: Maybe Integer
resultSize = forall a. Maybe a
Prelude.Nothing,
$sel:status:SubStatementData' :: Maybe StatementStatusString
status = forall a. Maybe a
Prelude.Nothing,
$sel:updatedAt:SubStatementData' :: Maybe POSIX
updatedAt = forall a. Maybe a
Prelude.Nothing,
$sel:id:SubStatementData' :: Text
id = Text
pId_
}
subStatementData_createdAt :: Lens.Lens' SubStatementData (Prelude.Maybe Prelude.UTCTime)
subStatementData_createdAt :: Lens' SubStatementData (Maybe UTCTime)
subStatementData_createdAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubStatementData' {Maybe POSIX
createdAt :: Maybe POSIX
$sel:createdAt:SubStatementData' :: SubStatementData -> Maybe POSIX
createdAt} -> Maybe POSIX
createdAt) (\s :: SubStatementData
s@SubStatementData' {} Maybe POSIX
a -> SubStatementData
s {$sel:createdAt:SubStatementData' :: Maybe POSIX
createdAt = Maybe POSIX
a} :: SubStatementData) 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
subStatementData_duration :: Lens.Lens' SubStatementData (Prelude.Maybe Prelude.Integer)
subStatementData_duration :: Lens' SubStatementData (Maybe Integer)
subStatementData_duration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubStatementData' {Maybe Integer
duration :: Maybe Integer
$sel:duration:SubStatementData' :: SubStatementData -> Maybe Integer
duration} -> Maybe Integer
duration) (\s :: SubStatementData
s@SubStatementData' {} Maybe Integer
a -> SubStatementData
s {$sel:duration:SubStatementData' :: Maybe Integer
duration = Maybe Integer
a} :: SubStatementData)
subStatementData_error :: Lens.Lens' SubStatementData (Prelude.Maybe Prelude.Text)
subStatementData_error :: Lens' SubStatementData (Maybe Text)
subStatementData_error = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubStatementData' {Maybe Text
error :: Maybe Text
$sel:error:SubStatementData' :: SubStatementData -> Maybe Text
error} -> Maybe Text
error) (\s :: SubStatementData
s@SubStatementData' {} Maybe Text
a -> SubStatementData
s {$sel:error:SubStatementData' :: Maybe Text
error = Maybe Text
a} :: SubStatementData)
subStatementData_hasResultSet :: Lens.Lens' SubStatementData (Prelude.Maybe Prelude.Bool)
subStatementData_hasResultSet :: Lens' SubStatementData (Maybe Bool)
subStatementData_hasResultSet = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubStatementData' {Maybe Bool
hasResultSet :: Maybe Bool
$sel:hasResultSet:SubStatementData' :: SubStatementData -> Maybe Bool
hasResultSet} -> Maybe Bool
hasResultSet) (\s :: SubStatementData
s@SubStatementData' {} Maybe Bool
a -> SubStatementData
s {$sel:hasResultSet:SubStatementData' :: Maybe Bool
hasResultSet = Maybe Bool
a} :: SubStatementData)
subStatementData_queryString :: Lens.Lens' SubStatementData (Prelude.Maybe Prelude.Text)
subStatementData_queryString :: Lens' SubStatementData (Maybe Text)
subStatementData_queryString = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubStatementData' {Maybe Text
queryString :: Maybe Text
$sel:queryString:SubStatementData' :: SubStatementData -> Maybe Text
queryString} -> Maybe Text
queryString) (\s :: SubStatementData
s@SubStatementData' {} Maybe Text
a -> SubStatementData
s {$sel:queryString:SubStatementData' :: Maybe Text
queryString = Maybe Text
a} :: SubStatementData)
subStatementData_redshiftQueryId :: Lens.Lens' SubStatementData (Prelude.Maybe Prelude.Integer)
subStatementData_redshiftQueryId :: Lens' SubStatementData (Maybe Integer)
subStatementData_redshiftQueryId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubStatementData' {Maybe Integer
redshiftQueryId :: Maybe Integer
$sel:redshiftQueryId:SubStatementData' :: SubStatementData -> Maybe Integer
redshiftQueryId} -> Maybe Integer
redshiftQueryId) (\s :: SubStatementData
s@SubStatementData' {} Maybe Integer
a -> SubStatementData
s {$sel:redshiftQueryId:SubStatementData' :: Maybe Integer
redshiftQueryId = Maybe Integer
a} :: SubStatementData)
subStatementData_resultRows :: Lens.Lens' SubStatementData (Prelude.Maybe Prelude.Integer)
subStatementData_resultRows :: Lens' SubStatementData (Maybe Integer)
subStatementData_resultRows = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubStatementData' {Maybe Integer
resultRows :: Maybe Integer
$sel:resultRows:SubStatementData' :: SubStatementData -> Maybe Integer
resultRows} -> Maybe Integer
resultRows) (\s :: SubStatementData
s@SubStatementData' {} Maybe Integer
a -> SubStatementData
s {$sel:resultRows:SubStatementData' :: Maybe Integer
resultRows = Maybe Integer
a} :: SubStatementData)
subStatementData_resultSize :: Lens.Lens' SubStatementData (Prelude.Maybe Prelude.Integer)
subStatementData_resultSize :: Lens' SubStatementData (Maybe Integer)
subStatementData_resultSize = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubStatementData' {Maybe Integer
resultSize :: Maybe Integer
$sel:resultSize:SubStatementData' :: SubStatementData -> Maybe Integer
resultSize} -> Maybe Integer
resultSize) (\s :: SubStatementData
s@SubStatementData' {} Maybe Integer
a -> SubStatementData
s {$sel:resultSize:SubStatementData' :: Maybe Integer
resultSize = Maybe Integer
a} :: SubStatementData)
subStatementData_status :: Lens.Lens' SubStatementData (Prelude.Maybe StatementStatusString)
subStatementData_status :: Lens' SubStatementData (Maybe StatementStatusString)
subStatementData_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubStatementData' {Maybe StatementStatusString
status :: Maybe StatementStatusString
$sel:status:SubStatementData' :: SubStatementData -> Maybe StatementStatusString
status} -> Maybe StatementStatusString
status) (\s :: SubStatementData
s@SubStatementData' {} Maybe StatementStatusString
a -> SubStatementData
s {$sel:status:SubStatementData' :: Maybe StatementStatusString
status = Maybe StatementStatusString
a} :: SubStatementData)
subStatementData_updatedAt :: Lens.Lens' SubStatementData (Prelude.Maybe Prelude.UTCTime)
subStatementData_updatedAt :: Lens' SubStatementData (Maybe UTCTime)
subStatementData_updatedAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubStatementData' {Maybe POSIX
updatedAt :: Maybe POSIX
$sel:updatedAt:SubStatementData' :: SubStatementData -> Maybe POSIX
updatedAt} -> Maybe POSIX
updatedAt) (\s :: SubStatementData
s@SubStatementData' {} Maybe POSIX
a -> SubStatementData
s {$sel:updatedAt:SubStatementData' :: Maybe POSIX
updatedAt = Maybe POSIX
a} :: SubStatementData) 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
subStatementData_id :: Lens.Lens' SubStatementData Prelude.Text
subStatementData_id :: Lens' SubStatementData Text
subStatementData_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SubStatementData' {Text
id :: Text
$sel:id:SubStatementData' :: SubStatementData -> Text
id} -> Text
id) (\s :: SubStatementData
s@SubStatementData' {} Text
a -> SubStatementData
s {$sel:id:SubStatementData' :: Text
id = Text
a} :: SubStatementData)
instance Data.FromJSON SubStatementData where
parseJSON :: Value -> Parser SubStatementData
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"SubStatementData"
( \Object
x ->
Maybe POSIX
-> Maybe Integer
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Integer
-> Maybe Integer
-> Maybe Integer
-> Maybe StatementStatusString
-> Maybe POSIX
-> Text
-> SubStatementData
SubStatementData'
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
"CreatedAt")
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
"Duration")
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
"Error")
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
"HasResultSet")
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
"QueryString")
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
"RedshiftQueryId")
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
"ResultRows")
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
"ResultSize")
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
"Status")
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
"UpdatedAt")
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
"Id")
)
instance Prelude.Hashable SubStatementData where
hashWithSalt :: Int -> SubStatementData -> Int
hashWithSalt Int
_salt SubStatementData' {Maybe Bool
Maybe Integer
Maybe Text
Maybe POSIX
Maybe StatementStatusString
Text
id :: Text
updatedAt :: Maybe POSIX
status :: Maybe StatementStatusString
resultSize :: Maybe Integer
resultRows :: Maybe Integer
redshiftQueryId :: Maybe Integer
queryString :: Maybe Text
hasResultSet :: Maybe Bool
error :: Maybe Text
duration :: Maybe Integer
createdAt :: Maybe POSIX
$sel:id:SubStatementData' :: SubStatementData -> Text
$sel:updatedAt:SubStatementData' :: SubStatementData -> Maybe POSIX
$sel:status:SubStatementData' :: SubStatementData -> Maybe StatementStatusString
$sel:resultSize:SubStatementData' :: SubStatementData -> Maybe Integer
$sel:resultRows:SubStatementData' :: SubStatementData -> Maybe Integer
$sel:redshiftQueryId:SubStatementData' :: SubStatementData -> Maybe Integer
$sel:queryString:SubStatementData' :: SubStatementData -> Maybe Text
$sel:hasResultSet:SubStatementData' :: SubStatementData -> Maybe Bool
$sel:error:SubStatementData' :: SubStatementData -> Maybe Text
$sel:duration:SubStatementData' :: SubStatementData -> Maybe Integer
$sel:createdAt:SubStatementData' :: SubStatementData -> Maybe POSIX
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
createdAt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Integer
duration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
error
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
hasResultSet
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
queryString
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Integer
redshiftQueryId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Integer
resultRows
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Integer
resultSize
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe StatementStatusString
status
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
updatedAt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
id
instance Prelude.NFData SubStatementData where
rnf :: SubStatementData -> ()
rnf SubStatementData' {Maybe Bool
Maybe Integer
Maybe Text
Maybe POSIX
Maybe StatementStatusString
Text
id :: Text
updatedAt :: Maybe POSIX
status :: Maybe StatementStatusString
resultSize :: Maybe Integer
resultRows :: Maybe Integer
redshiftQueryId :: Maybe Integer
queryString :: Maybe Text
hasResultSet :: Maybe Bool
error :: Maybe Text
duration :: Maybe Integer
createdAt :: Maybe POSIX
$sel:id:SubStatementData' :: SubStatementData -> Text
$sel:updatedAt:SubStatementData' :: SubStatementData -> Maybe POSIX
$sel:status:SubStatementData' :: SubStatementData -> Maybe StatementStatusString
$sel:resultSize:SubStatementData' :: SubStatementData -> Maybe Integer
$sel:resultRows:SubStatementData' :: SubStatementData -> Maybe Integer
$sel:redshiftQueryId:SubStatementData' :: SubStatementData -> Maybe Integer
$sel:queryString:SubStatementData' :: SubStatementData -> Maybe Text
$sel:hasResultSet:SubStatementData' :: SubStatementData -> Maybe Bool
$sel:error:SubStatementData' :: SubStatementData -> Maybe Text
$sel:duration:SubStatementData' :: SubStatementData -> Maybe Integer
$sel:createdAt:SubStatementData' :: SubStatementData -> Maybe POSIX
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
createdAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
duration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
error
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
hasResultSet
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
queryString
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
redshiftQueryId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
resultRows
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Integer
resultSize
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe StatementStatusString
status
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
updatedAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
id