{-# 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.S3.SelectObjectContent
(
SelectObjectContent (..),
newSelectObjectContent,
selectObjectContent_expectedBucketOwner,
selectObjectContent_requestProgress,
selectObjectContent_sSECustomerAlgorithm,
selectObjectContent_sSECustomerKey,
selectObjectContent_sSECustomerKeyMD5,
selectObjectContent_scanRange,
selectObjectContent_bucket,
selectObjectContent_key,
selectObjectContent_expression,
selectObjectContent_expressionType,
selectObjectContent_inputSerialization,
selectObjectContent_outputSerialization,
SelectObjectContentResponse (..),
newSelectObjectContentResponse,
selectObjectContentResponse_payload,
selectObjectContentResponse_httpStatus,
)
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 qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.S3.Types
data SelectObjectContent = SelectObjectContent'
{
SelectObjectContent -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
SelectObjectContent -> Maybe RequestProgress
requestProgress :: Prelude.Maybe RequestProgress,
SelectObjectContent -> Maybe Text
sSECustomerAlgorithm :: Prelude.Maybe Prelude.Text,
SelectObjectContent -> Maybe (Sensitive Text)
sSECustomerKey :: Prelude.Maybe (Data.Sensitive Prelude.Text),
SelectObjectContent -> Maybe Text
sSECustomerKeyMD5 :: Prelude.Maybe Prelude.Text,
SelectObjectContent -> Maybe ScanRange
scanRange :: Prelude.Maybe ScanRange,
SelectObjectContent -> BucketName
bucket :: BucketName,
SelectObjectContent -> ObjectKey
key :: ObjectKey,
SelectObjectContent -> Text
expression :: Prelude.Text,
SelectObjectContent -> ExpressionType
expressionType :: ExpressionType,
SelectObjectContent -> InputSerialization
inputSerialization :: InputSerialization,
SelectObjectContent -> OutputSerialization
outputSerialization :: OutputSerialization
}
deriving (SelectObjectContent -> SelectObjectContent -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SelectObjectContent -> SelectObjectContent -> Bool
$c/= :: SelectObjectContent -> SelectObjectContent -> Bool
== :: SelectObjectContent -> SelectObjectContent -> Bool
$c== :: SelectObjectContent -> SelectObjectContent -> Bool
Prelude.Eq, Int -> SelectObjectContent -> ShowS
[SelectObjectContent] -> ShowS
SelectObjectContent -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SelectObjectContent] -> ShowS
$cshowList :: [SelectObjectContent] -> ShowS
show :: SelectObjectContent -> String
$cshow :: SelectObjectContent -> String
showsPrec :: Int -> SelectObjectContent -> ShowS
$cshowsPrec :: Int -> SelectObjectContent -> ShowS
Prelude.Show, forall x. Rep SelectObjectContent x -> SelectObjectContent
forall x. SelectObjectContent -> Rep SelectObjectContent x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SelectObjectContent x -> SelectObjectContent
$cfrom :: forall x. SelectObjectContent -> Rep SelectObjectContent x
Prelude.Generic)
newSelectObjectContent ::
BucketName ->
ObjectKey ->
Prelude.Text ->
ExpressionType ->
InputSerialization ->
OutputSerialization ->
SelectObjectContent
newSelectObjectContent :: BucketName
-> ObjectKey
-> Text
-> ExpressionType
-> InputSerialization
-> OutputSerialization
-> SelectObjectContent
newSelectObjectContent
BucketName
pBucket_
ObjectKey
pKey_
Text
pExpression_
ExpressionType
pExpressionType_
InputSerialization
pInputSerialization_
OutputSerialization
pOutputSerialization_ =
SelectObjectContent'
{ $sel:expectedBucketOwner:SelectObjectContent' :: Maybe Text
expectedBucketOwner =
forall a. Maybe a
Prelude.Nothing,
$sel:requestProgress:SelectObjectContent' :: Maybe RequestProgress
requestProgress = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerAlgorithm:SelectObjectContent' :: Maybe Text
sSECustomerAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerKey:SelectObjectContent' :: Maybe (Sensitive Text)
sSECustomerKey = forall a. Maybe a
Prelude.Nothing,
$sel:sSECustomerKeyMD5:SelectObjectContent' :: Maybe Text
sSECustomerKeyMD5 = forall a. Maybe a
Prelude.Nothing,
$sel:scanRange:SelectObjectContent' :: Maybe ScanRange
scanRange = forall a. Maybe a
Prelude.Nothing,
$sel:bucket:SelectObjectContent' :: BucketName
bucket = BucketName
pBucket_,
$sel:key:SelectObjectContent' :: ObjectKey
key = ObjectKey
pKey_,
$sel:expression:SelectObjectContent' :: Text
expression = Text
pExpression_,
$sel:expressionType:SelectObjectContent' :: ExpressionType
expressionType = ExpressionType
pExpressionType_,
$sel:inputSerialization:SelectObjectContent' :: InputSerialization
inputSerialization = InputSerialization
pInputSerialization_,
$sel:outputSerialization:SelectObjectContent' :: OutputSerialization
outputSerialization = OutputSerialization
pOutputSerialization_
}
selectObjectContent_expectedBucketOwner :: Lens.Lens' SelectObjectContent (Prelude.Maybe Prelude.Text)
selectObjectContent_expectedBucketOwner :: Lens' SelectObjectContent (Maybe Text)
selectObjectContent_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SelectObjectContent' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:SelectObjectContent' :: SelectObjectContent -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: SelectObjectContent
s@SelectObjectContent' {} Maybe Text
a -> SelectObjectContent
s {$sel:expectedBucketOwner:SelectObjectContent' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: SelectObjectContent)
selectObjectContent_requestProgress :: Lens.Lens' SelectObjectContent (Prelude.Maybe RequestProgress)
selectObjectContent_requestProgress :: Lens' SelectObjectContent (Maybe RequestProgress)
selectObjectContent_requestProgress = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SelectObjectContent' {Maybe RequestProgress
requestProgress :: Maybe RequestProgress
$sel:requestProgress:SelectObjectContent' :: SelectObjectContent -> Maybe RequestProgress
requestProgress} -> Maybe RequestProgress
requestProgress) (\s :: SelectObjectContent
s@SelectObjectContent' {} Maybe RequestProgress
a -> SelectObjectContent
s {$sel:requestProgress:SelectObjectContent' :: Maybe RequestProgress
requestProgress = Maybe RequestProgress
a} :: SelectObjectContent)
selectObjectContent_sSECustomerAlgorithm :: Lens.Lens' SelectObjectContent (Prelude.Maybe Prelude.Text)
selectObjectContent_sSECustomerAlgorithm :: Lens' SelectObjectContent (Maybe Text)
selectObjectContent_sSECustomerAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SelectObjectContent' {Maybe Text
sSECustomerAlgorithm :: Maybe Text
$sel:sSECustomerAlgorithm:SelectObjectContent' :: SelectObjectContent -> Maybe Text
sSECustomerAlgorithm} -> Maybe Text
sSECustomerAlgorithm) (\s :: SelectObjectContent
s@SelectObjectContent' {} Maybe Text
a -> SelectObjectContent
s {$sel:sSECustomerAlgorithm:SelectObjectContent' :: Maybe Text
sSECustomerAlgorithm = Maybe Text
a} :: SelectObjectContent)
selectObjectContent_sSECustomerKey :: Lens.Lens' SelectObjectContent (Prelude.Maybe Prelude.Text)
selectObjectContent_sSECustomerKey :: Lens' SelectObjectContent (Maybe Text)
selectObjectContent_sSECustomerKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SelectObjectContent' {Maybe (Sensitive Text)
sSECustomerKey :: Maybe (Sensitive Text)
$sel:sSECustomerKey:SelectObjectContent' :: SelectObjectContent -> Maybe (Sensitive Text)
sSECustomerKey} -> Maybe (Sensitive Text)
sSECustomerKey) (\s :: SelectObjectContent
s@SelectObjectContent' {} Maybe (Sensitive Text)
a -> SelectObjectContent
s {$sel:sSECustomerKey:SelectObjectContent' :: Maybe (Sensitive Text)
sSECustomerKey = Maybe (Sensitive Text)
a} :: SelectObjectContent) 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. Iso' (Sensitive a) a
Data._Sensitive
selectObjectContent_sSECustomerKeyMD5 :: Lens.Lens' SelectObjectContent (Prelude.Maybe Prelude.Text)
selectObjectContent_sSECustomerKeyMD5 :: Lens' SelectObjectContent (Maybe Text)
selectObjectContent_sSECustomerKeyMD5 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SelectObjectContent' {Maybe Text
sSECustomerKeyMD5 :: Maybe Text
$sel:sSECustomerKeyMD5:SelectObjectContent' :: SelectObjectContent -> Maybe Text
sSECustomerKeyMD5} -> Maybe Text
sSECustomerKeyMD5) (\s :: SelectObjectContent
s@SelectObjectContent' {} Maybe Text
a -> SelectObjectContent
s {$sel:sSECustomerKeyMD5:SelectObjectContent' :: Maybe Text
sSECustomerKeyMD5 = Maybe Text
a} :: SelectObjectContent)
selectObjectContent_scanRange :: Lens.Lens' SelectObjectContent (Prelude.Maybe ScanRange)
selectObjectContent_scanRange :: Lens' SelectObjectContent (Maybe ScanRange)
selectObjectContent_scanRange = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SelectObjectContent' {Maybe ScanRange
scanRange :: Maybe ScanRange
$sel:scanRange:SelectObjectContent' :: SelectObjectContent -> Maybe ScanRange
scanRange} -> Maybe ScanRange
scanRange) (\s :: SelectObjectContent
s@SelectObjectContent' {} Maybe ScanRange
a -> SelectObjectContent
s {$sel:scanRange:SelectObjectContent' :: Maybe ScanRange
scanRange = Maybe ScanRange
a} :: SelectObjectContent)
selectObjectContent_bucket :: Lens.Lens' SelectObjectContent BucketName
selectObjectContent_bucket :: Lens' SelectObjectContent BucketName
selectObjectContent_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SelectObjectContent' {BucketName
bucket :: BucketName
$sel:bucket:SelectObjectContent' :: SelectObjectContent -> BucketName
bucket} -> BucketName
bucket) (\s :: SelectObjectContent
s@SelectObjectContent' {} BucketName
a -> SelectObjectContent
s {$sel:bucket:SelectObjectContent' :: BucketName
bucket = BucketName
a} :: SelectObjectContent)
selectObjectContent_key :: Lens.Lens' SelectObjectContent ObjectKey
selectObjectContent_key :: Lens' SelectObjectContent ObjectKey
selectObjectContent_key = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SelectObjectContent' {ObjectKey
key :: ObjectKey
$sel:key:SelectObjectContent' :: SelectObjectContent -> ObjectKey
key} -> ObjectKey
key) (\s :: SelectObjectContent
s@SelectObjectContent' {} ObjectKey
a -> SelectObjectContent
s {$sel:key:SelectObjectContent' :: ObjectKey
key = ObjectKey
a} :: SelectObjectContent)
selectObjectContent_expression :: Lens.Lens' SelectObjectContent Prelude.Text
selectObjectContent_expression :: Lens' SelectObjectContent Text
selectObjectContent_expression = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SelectObjectContent' {Text
expression :: Text
$sel:expression:SelectObjectContent' :: SelectObjectContent -> Text
expression} -> Text
expression) (\s :: SelectObjectContent
s@SelectObjectContent' {} Text
a -> SelectObjectContent
s {$sel:expression:SelectObjectContent' :: Text
expression = Text
a} :: SelectObjectContent)
selectObjectContent_expressionType :: Lens.Lens' SelectObjectContent ExpressionType
selectObjectContent_expressionType :: Lens' SelectObjectContent ExpressionType
selectObjectContent_expressionType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SelectObjectContent' {ExpressionType
expressionType :: ExpressionType
$sel:expressionType:SelectObjectContent' :: SelectObjectContent -> ExpressionType
expressionType} -> ExpressionType
expressionType) (\s :: SelectObjectContent
s@SelectObjectContent' {} ExpressionType
a -> SelectObjectContent
s {$sel:expressionType:SelectObjectContent' :: ExpressionType
expressionType = ExpressionType
a} :: SelectObjectContent)
selectObjectContent_inputSerialization :: Lens.Lens' SelectObjectContent InputSerialization
selectObjectContent_inputSerialization :: Lens' SelectObjectContent InputSerialization
selectObjectContent_inputSerialization = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SelectObjectContent' {InputSerialization
inputSerialization :: InputSerialization
$sel:inputSerialization:SelectObjectContent' :: SelectObjectContent -> InputSerialization
inputSerialization} -> InputSerialization
inputSerialization) (\s :: SelectObjectContent
s@SelectObjectContent' {} InputSerialization
a -> SelectObjectContent
s {$sel:inputSerialization:SelectObjectContent' :: InputSerialization
inputSerialization = InputSerialization
a} :: SelectObjectContent)
selectObjectContent_outputSerialization :: Lens.Lens' SelectObjectContent OutputSerialization
selectObjectContent_outputSerialization :: Lens' SelectObjectContent OutputSerialization
selectObjectContent_outputSerialization = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SelectObjectContent' {OutputSerialization
outputSerialization :: OutputSerialization
$sel:outputSerialization:SelectObjectContent' :: SelectObjectContent -> OutputSerialization
outputSerialization} -> OutputSerialization
outputSerialization) (\s :: SelectObjectContent
s@SelectObjectContent' {} OutputSerialization
a -> SelectObjectContent
s {$sel:outputSerialization:SelectObjectContent' :: OutputSerialization
outputSerialization = OutputSerialization
a} :: SelectObjectContent)
instance Core.AWSRequest SelectObjectContent where
type
AWSResponse SelectObjectContent =
SelectObjectContentResponse
request :: (Service -> Service)
-> SelectObjectContent -> Request SelectObjectContent
request Service -> Service
overrides =
forall a. Request a -> Request a
Request.s3vhost
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. (ToRequest a, ToElement a) => Service -> a -> Request a
Request.postXML (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy SelectObjectContent
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse SelectObjectContent)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe SelectObjectContentEventStream
-> Int -> SelectObjectContentResponse
SelectObjectContentResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (forall a. FromXML a => [Node] -> Either String a
Data.parseXML [Node]
x)
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 SelectObjectContent where
hashWithSalt :: Int -> SelectObjectContent -> Int
hashWithSalt Int
_salt SelectObjectContent' {Maybe Text
Maybe (Sensitive Text)
Maybe RequestProgress
Maybe ScanRange
Text
ObjectKey
BucketName
ExpressionType
InputSerialization
OutputSerialization
outputSerialization :: OutputSerialization
inputSerialization :: InputSerialization
expressionType :: ExpressionType
expression :: Text
key :: ObjectKey
bucket :: BucketName
scanRange :: Maybe ScanRange
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestProgress :: Maybe RequestProgress
expectedBucketOwner :: Maybe Text
$sel:outputSerialization:SelectObjectContent' :: SelectObjectContent -> OutputSerialization
$sel:inputSerialization:SelectObjectContent' :: SelectObjectContent -> InputSerialization
$sel:expressionType:SelectObjectContent' :: SelectObjectContent -> ExpressionType
$sel:expression:SelectObjectContent' :: SelectObjectContent -> Text
$sel:key:SelectObjectContent' :: SelectObjectContent -> ObjectKey
$sel:bucket:SelectObjectContent' :: SelectObjectContent -> BucketName
$sel:scanRange:SelectObjectContent' :: SelectObjectContent -> Maybe ScanRange
$sel:sSECustomerKeyMD5:SelectObjectContent' :: SelectObjectContent -> Maybe Text
$sel:sSECustomerKey:SelectObjectContent' :: SelectObjectContent -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:SelectObjectContent' :: SelectObjectContent -> Maybe Text
$sel:requestProgress:SelectObjectContent' :: SelectObjectContent -> Maybe RequestProgress
$sel:expectedBucketOwner:SelectObjectContent' :: SelectObjectContent -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
expectedBucketOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RequestProgress
requestProgress
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sSECustomerAlgorithm
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
sSECustomerKey
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sSECustomerKeyMD5
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ScanRange
scanRange
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BucketName
bucket
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ObjectKey
key
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
expression
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ExpressionType
expressionType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` InputSerialization
inputSerialization
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` OutputSerialization
outputSerialization
instance Prelude.NFData SelectObjectContent where
rnf :: SelectObjectContent -> ()
rnf SelectObjectContent' {Maybe Text
Maybe (Sensitive Text)
Maybe RequestProgress
Maybe ScanRange
Text
ObjectKey
BucketName
ExpressionType
InputSerialization
OutputSerialization
outputSerialization :: OutputSerialization
inputSerialization :: InputSerialization
expressionType :: ExpressionType
expression :: Text
key :: ObjectKey
bucket :: BucketName
scanRange :: Maybe ScanRange
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestProgress :: Maybe RequestProgress
expectedBucketOwner :: Maybe Text
$sel:outputSerialization:SelectObjectContent' :: SelectObjectContent -> OutputSerialization
$sel:inputSerialization:SelectObjectContent' :: SelectObjectContent -> InputSerialization
$sel:expressionType:SelectObjectContent' :: SelectObjectContent -> ExpressionType
$sel:expression:SelectObjectContent' :: SelectObjectContent -> Text
$sel:key:SelectObjectContent' :: SelectObjectContent -> ObjectKey
$sel:bucket:SelectObjectContent' :: SelectObjectContent -> BucketName
$sel:scanRange:SelectObjectContent' :: SelectObjectContent -> Maybe ScanRange
$sel:sSECustomerKeyMD5:SelectObjectContent' :: SelectObjectContent -> Maybe Text
$sel:sSECustomerKey:SelectObjectContent' :: SelectObjectContent -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:SelectObjectContent' :: SelectObjectContent -> Maybe Text
$sel:requestProgress:SelectObjectContent' :: SelectObjectContent -> Maybe RequestProgress
$sel:expectedBucketOwner:SelectObjectContent' :: SelectObjectContent -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
expectedBucketOwner
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RequestProgress
requestProgress
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sSECustomerAlgorithm
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
sSECustomerKey
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sSECustomerKeyMD5
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ScanRange
scanRange
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf BucketName
bucket
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ObjectKey
key
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
expression
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ExpressionType
expressionType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf InputSerialization
inputSerialization
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf OutputSerialization
outputSerialization
instance Data.ToElement SelectObjectContent where
toElement :: SelectObjectContent -> Element
toElement =
forall a. ToXML a => Name -> a -> Element
Data.mkElement
Name
"{http://s3.amazonaws.com/doc/2006-03-01/}SelectObjectContentRequest"
instance Data.ToHeaders SelectObjectContent where
toHeaders :: SelectObjectContent -> ResponseHeaders
toHeaders SelectObjectContent' {Maybe Text
Maybe (Sensitive Text)
Maybe RequestProgress
Maybe ScanRange
Text
ObjectKey
BucketName
ExpressionType
InputSerialization
OutputSerialization
outputSerialization :: OutputSerialization
inputSerialization :: InputSerialization
expressionType :: ExpressionType
expression :: Text
key :: ObjectKey
bucket :: BucketName
scanRange :: Maybe ScanRange
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestProgress :: Maybe RequestProgress
expectedBucketOwner :: Maybe Text
$sel:outputSerialization:SelectObjectContent' :: SelectObjectContent -> OutputSerialization
$sel:inputSerialization:SelectObjectContent' :: SelectObjectContent -> InputSerialization
$sel:expressionType:SelectObjectContent' :: SelectObjectContent -> ExpressionType
$sel:expression:SelectObjectContent' :: SelectObjectContent -> Text
$sel:key:SelectObjectContent' :: SelectObjectContent -> ObjectKey
$sel:bucket:SelectObjectContent' :: SelectObjectContent -> BucketName
$sel:scanRange:SelectObjectContent' :: SelectObjectContent -> Maybe ScanRange
$sel:sSECustomerKeyMD5:SelectObjectContent' :: SelectObjectContent -> Maybe Text
$sel:sSECustomerKey:SelectObjectContent' :: SelectObjectContent -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:SelectObjectContent' :: SelectObjectContent -> Maybe Text
$sel:requestProgress:SelectObjectContent' :: SelectObjectContent -> Maybe RequestProgress
$sel:expectedBucketOwner:SelectObjectContent' :: SelectObjectContent -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"x-amz-expected-bucket-owner"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
expectedBucketOwner,
HeaderName
"x-amz-server-side-encryption-customer-algorithm"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
sSECustomerAlgorithm,
HeaderName
"x-amz-server-side-encryption-customer-key"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe (Sensitive Text)
sSECustomerKey,
HeaderName
"x-amz-server-side-encryption-customer-key-MD5"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
sSECustomerKeyMD5
]
instance Data.ToPath SelectObjectContent where
toPath :: SelectObjectContent -> ByteString
toPath SelectObjectContent' {Maybe Text
Maybe (Sensitive Text)
Maybe RequestProgress
Maybe ScanRange
Text
ObjectKey
BucketName
ExpressionType
InputSerialization
OutputSerialization
outputSerialization :: OutputSerialization
inputSerialization :: InputSerialization
expressionType :: ExpressionType
expression :: Text
key :: ObjectKey
bucket :: BucketName
scanRange :: Maybe ScanRange
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestProgress :: Maybe RequestProgress
expectedBucketOwner :: Maybe Text
$sel:outputSerialization:SelectObjectContent' :: SelectObjectContent -> OutputSerialization
$sel:inputSerialization:SelectObjectContent' :: SelectObjectContent -> InputSerialization
$sel:expressionType:SelectObjectContent' :: SelectObjectContent -> ExpressionType
$sel:expression:SelectObjectContent' :: SelectObjectContent -> Text
$sel:key:SelectObjectContent' :: SelectObjectContent -> ObjectKey
$sel:bucket:SelectObjectContent' :: SelectObjectContent -> BucketName
$sel:scanRange:SelectObjectContent' :: SelectObjectContent -> Maybe ScanRange
$sel:sSECustomerKeyMD5:SelectObjectContent' :: SelectObjectContent -> Maybe Text
$sel:sSECustomerKey:SelectObjectContent' :: SelectObjectContent -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:SelectObjectContent' :: SelectObjectContent -> Maybe Text
$sel:requestProgress:SelectObjectContent' :: SelectObjectContent -> Maybe RequestProgress
$sel:expectedBucketOwner:SelectObjectContent' :: SelectObjectContent -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket, ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS ObjectKey
key]
instance Data.ToQuery SelectObjectContent where
toQuery :: SelectObjectContent -> QueryString
toQuery =
forall a b. a -> b -> a
Prelude.const
(forall a. Monoid a => [a] -> a
Prelude.mconcat [QueryString
"select&select-type=2"])
instance Data.ToXML SelectObjectContent where
toXML :: SelectObjectContent -> XML
toXML SelectObjectContent' {Maybe Text
Maybe (Sensitive Text)
Maybe RequestProgress
Maybe ScanRange
Text
ObjectKey
BucketName
ExpressionType
InputSerialization
OutputSerialization
outputSerialization :: OutputSerialization
inputSerialization :: InputSerialization
expressionType :: ExpressionType
expression :: Text
key :: ObjectKey
bucket :: BucketName
scanRange :: Maybe ScanRange
sSECustomerKeyMD5 :: Maybe Text
sSECustomerKey :: Maybe (Sensitive Text)
sSECustomerAlgorithm :: Maybe Text
requestProgress :: Maybe RequestProgress
expectedBucketOwner :: Maybe Text
$sel:outputSerialization:SelectObjectContent' :: SelectObjectContent -> OutputSerialization
$sel:inputSerialization:SelectObjectContent' :: SelectObjectContent -> InputSerialization
$sel:expressionType:SelectObjectContent' :: SelectObjectContent -> ExpressionType
$sel:expression:SelectObjectContent' :: SelectObjectContent -> Text
$sel:key:SelectObjectContent' :: SelectObjectContent -> ObjectKey
$sel:bucket:SelectObjectContent' :: SelectObjectContent -> BucketName
$sel:scanRange:SelectObjectContent' :: SelectObjectContent -> Maybe ScanRange
$sel:sSECustomerKeyMD5:SelectObjectContent' :: SelectObjectContent -> Maybe Text
$sel:sSECustomerKey:SelectObjectContent' :: SelectObjectContent -> Maybe (Sensitive Text)
$sel:sSECustomerAlgorithm:SelectObjectContent' :: SelectObjectContent -> Maybe Text
$sel:requestProgress:SelectObjectContent' :: SelectObjectContent -> Maybe RequestProgress
$sel:expectedBucketOwner:SelectObjectContent' :: SelectObjectContent -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ Name
"RequestProgress" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe RequestProgress
requestProgress,
Name
"ScanRange" forall a. ToXML a => Name -> a -> XML
Data.@= Maybe ScanRange
scanRange,
Name
"Expression" forall a. ToXML a => Name -> a -> XML
Data.@= Text
expression,
Name
"ExpressionType" forall a. ToXML a => Name -> a -> XML
Data.@= ExpressionType
expressionType,
Name
"InputSerialization" forall a. ToXML a => Name -> a -> XML
Data.@= InputSerialization
inputSerialization,
Name
"OutputSerialization" forall a. ToXML a => Name -> a -> XML
Data.@= OutputSerialization
outputSerialization
]
data SelectObjectContentResponse = SelectObjectContentResponse'
{
SelectObjectContentResponse -> Maybe SelectObjectContentEventStream
payload :: Prelude.Maybe SelectObjectContentEventStream,
SelectObjectContentResponse -> Int
httpStatus :: Prelude.Int
}
deriving (SelectObjectContentResponse -> SelectObjectContentResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SelectObjectContentResponse -> SelectObjectContentResponse -> Bool
$c/= :: SelectObjectContentResponse -> SelectObjectContentResponse -> Bool
== :: SelectObjectContentResponse -> SelectObjectContentResponse -> Bool
$c== :: SelectObjectContentResponse -> SelectObjectContentResponse -> Bool
Prelude.Eq, ReadPrec [SelectObjectContentResponse]
ReadPrec SelectObjectContentResponse
Int -> ReadS SelectObjectContentResponse
ReadS [SelectObjectContentResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SelectObjectContentResponse]
$creadListPrec :: ReadPrec [SelectObjectContentResponse]
readPrec :: ReadPrec SelectObjectContentResponse
$creadPrec :: ReadPrec SelectObjectContentResponse
readList :: ReadS [SelectObjectContentResponse]
$creadList :: ReadS [SelectObjectContentResponse]
readsPrec :: Int -> ReadS SelectObjectContentResponse
$creadsPrec :: Int -> ReadS SelectObjectContentResponse
Prelude.Read, Int -> SelectObjectContentResponse -> ShowS
[SelectObjectContentResponse] -> ShowS
SelectObjectContentResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SelectObjectContentResponse] -> ShowS
$cshowList :: [SelectObjectContentResponse] -> ShowS
show :: SelectObjectContentResponse -> String
$cshow :: SelectObjectContentResponse -> String
showsPrec :: Int -> SelectObjectContentResponse -> ShowS
$cshowsPrec :: Int -> SelectObjectContentResponse -> ShowS
Prelude.Show, forall x.
Rep SelectObjectContentResponse x -> SelectObjectContentResponse
forall x.
SelectObjectContentResponse -> Rep SelectObjectContentResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep SelectObjectContentResponse x -> SelectObjectContentResponse
$cfrom :: forall x.
SelectObjectContentResponse -> Rep SelectObjectContentResponse x
Prelude.Generic)
newSelectObjectContentResponse ::
Prelude.Int ->
SelectObjectContentResponse
newSelectObjectContentResponse :: Int -> SelectObjectContentResponse
newSelectObjectContentResponse Int
pHttpStatus_ =
SelectObjectContentResponse'
{ $sel:payload:SelectObjectContentResponse' :: Maybe SelectObjectContentEventStream
payload =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:SelectObjectContentResponse' :: Int
httpStatus = Int
pHttpStatus_
}
selectObjectContentResponse_payload :: Lens.Lens' SelectObjectContentResponse (Prelude.Maybe SelectObjectContentEventStream)
selectObjectContentResponse_payload :: Lens'
SelectObjectContentResponse (Maybe SelectObjectContentEventStream)
selectObjectContentResponse_payload = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SelectObjectContentResponse' {Maybe SelectObjectContentEventStream
payload :: Maybe SelectObjectContentEventStream
$sel:payload:SelectObjectContentResponse' :: SelectObjectContentResponse -> Maybe SelectObjectContentEventStream
payload} -> Maybe SelectObjectContentEventStream
payload) (\s :: SelectObjectContentResponse
s@SelectObjectContentResponse' {} Maybe SelectObjectContentEventStream
a -> SelectObjectContentResponse
s {$sel:payload:SelectObjectContentResponse' :: Maybe SelectObjectContentEventStream
payload = Maybe SelectObjectContentEventStream
a} :: SelectObjectContentResponse)
selectObjectContentResponse_httpStatus :: Lens.Lens' SelectObjectContentResponse Prelude.Int
selectObjectContentResponse_httpStatus :: Lens' SelectObjectContentResponse Int
selectObjectContentResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SelectObjectContentResponse' {Int
httpStatus :: Int
$sel:httpStatus:SelectObjectContentResponse' :: SelectObjectContentResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SelectObjectContentResponse
s@SelectObjectContentResponse' {} Int
a -> SelectObjectContentResponse
s {$sel:httpStatus:SelectObjectContentResponse' :: Int
httpStatus = Int
a} :: SelectObjectContentResponse)
instance Prelude.NFData SelectObjectContentResponse where
rnf :: SelectObjectContentResponse -> ()
rnf SelectObjectContentResponse' {Int
Maybe SelectObjectContentEventStream
httpStatus :: Int
payload :: Maybe SelectObjectContentEventStream
$sel:httpStatus:SelectObjectContentResponse' :: SelectObjectContentResponse -> Int
$sel:payload:SelectObjectContentResponse' :: SelectObjectContentResponse -> Maybe SelectObjectContentEventStream
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe SelectObjectContentEventStream
payload
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus