{-# 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.MarketplaceAnalytics.StartSupportDataExport
(
StartSupportDataExport (..),
newStartSupportDataExport,
startSupportDataExport_customerDefinedValues,
startSupportDataExport_destinationS3Prefix,
startSupportDataExport_dataSetType,
startSupportDataExport_fromDate,
startSupportDataExport_roleNameArn,
startSupportDataExport_destinationS3BucketName,
startSupportDataExport_snsTopicArn,
StartSupportDataExportResponse (..),
newStartSupportDataExportResponse,
startSupportDataExportResponse_dataSetRequestId,
startSupportDataExportResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MarketplaceAnalytics.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data StartSupportDataExport = StartSupportDataExport'
{
StartSupportDataExport -> Maybe (HashMap Text Text)
customerDefinedValues :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
StartSupportDataExport -> Maybe Text
destinationS3Prefix :: Prelude.Maybe Prelude.Text,
StartSupportDataExport -> SupportDataSetType
dataSetType :: SupportDataSetType,
StartSupportDataExport -> POSIX
fromDate :: Data.POSIX,
StartSupportDataExport -> Text
roleNameArn :: Prelude.Text,
StartSupportDataExport -> Text
destinationS3BucketName :: Prelude.Text,
StartSupportDataExport -> Text
snsTopicArn :: Prelude.Text
}
deriving (StartSupportDataExport -> StartSupportDataExport -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartSupportDataExport -> StartSupportDataExport -> Bool
$c/= :: StartSupportDataExport -> StartSupportDataExport -> Bool
== :: StartSupportDataExport -> StartSupportDataExport -> Bool
$c== :: StartSupportDataExport -> StartSupportDataExport -> Bool
Prelude.Eq, ReadPrec [StartSupportDataExport]
ReadPrec StartSupportDataExport
Int -> ReadS StartSupportDataExport
ReadS [StartSupportDataExport]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartSupportDataExport]
$creadListPrec :: ReadPrec [StartSupportDataExport]
readPrec :: ReadPrec StartSupportDataExport
$creadPrec :: ReadPrec StartSupportDataExport
readList :: ReadS [StartSupportDataExport]
$creadList :: ReadS [StartSupportDataExport]
readsPrec :: Int -> ReadS StartSupportDataExport
$creadsPrec :: Int -> ReadS StartSupportDataExport
Prelude.Read, Int -> StartSupportDataExport -> ShowS
[StartSupportDataExport] -> ShowS
StartSupportDataExport -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartSupportDataExport] -> ShowS
$cshowList :: [StartSupportDataExport] -> ShowS
show :: StartSupportDataExport -> String
$cshow :: StartSupportDataExport -> String
showsPrec :: Int -> StartSupportDataExport -> ShowS
$cshowsPrec :: Int -> StartSupportDataExport -> ShowS
Prelude.Show, forall x. Rep StartSupportDataExport x -> StartSupportDataExport
forall x. StartSupportDataExport -> Rep StartSupportDataExport x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep StartSupportDataExport x -> StartSupportDataExport
$cfrom :: forall x. StartSupportDataExport -> Rep StartSupportDataExport x
Prelude.Generic)
newStartSupportDataExport ::
SupportDataSetType ->
Prelude.UTCTime ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
StartSupportDataExport
newStartSupportDataExport :: SupportDataSetType
-> UTCTime -> Text -> Text -> Text -> StartSupportDataExport
newStartSupportDataExport
SupportDataSetType
pDataSetType_
UTCTime
pFromDate_
Text
pRoleNameArn_
Text
pDestinationS3BucketName_
Text
pSnsTopicArn_ =
StartSupportDataExport'
{ $sel:customerDefinedValues:StartSupportDataExport' :: Maybe (HashMap Text Text)
customerDefinedValues =
forall a. Maybe a
Prelude.Nothing,
$sel:destinationS3Prefix:StartSupportDataExport' :: Maybe Text
destinationS3Prefix = forall a. Maybe a
Prelude.Nothing,
$sel:dataSetType:StartSupportDataExport' :: SupportDataSetType
dataSetType = SupportDataSetType
pDataSetType_,
$sel:fromDate:StartSupportDataExport' :: POSIX
fromDate = forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pFromDate_,
$sel:roleNameArn:StartSupportDataExport' :: Text
roleNameArn = Text
pRoleNameArn_,
$sel:destinationS3BucketName:StartSupportDataExport' :: Text
destinationS3BucketName = Text
pDestinationS3BucketName_,
$sel:snsTopicArn:StartSupportDataExport' :: Text
snsTopicArn = Text
pSnsTopicArn_
}
startSupportDataExport_customerDefinedValues :: Lens.Lens' StartSupportDataExport (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
startSupportDataExport_customerDefinedValues :: Lens' StartSupportDataExport (Maybe (HashMap Text Text))
startSupportDataExport_customerDefinedValues = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartSupportDataExport' {Maybe (HashMap Text Text)
customerDefinedValues :: Maybe (HashMap Text Text)
$sel:customerDefinedValues:StartSupportDataExport' :: StartSupportDataExport -> Maybe (HashMap Text Text)
customerDefinedValues} -> Maybe (HashMap Text Text)
customerDefinedValues) (\s :: StartSupportDataExport
s@StartSupportDataExport' {} Maybe (HashMap Text Text)
a -> StartSupportDataExport
s {$sel:customerDefinedValues:StartSupportDataExport' :: Maybe (HashMap Text Text)
customerDefinedValues = Maybe (HashMap Text Text)
a} :: StartSupportDataExport) 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
startSupportDataExport_destinationS3Prefix :: Lens.Lens' StartSupportDataExport (Prelude.Maybe Prelude.Text)
startSupportDataExport_destinationS3Prefix :: Lens' StartSupportDataExport (Maybe Text)
startSupportDataExport_destinationS3Prefix = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartSupportDataExport' {Maybe Text
destinationS3Prefix :: Maybe Text
$sel:destinationS3Prefix:StartSupportDataExport' :: StartSupportDataExport -> Maybe Text
destinationS3Prefix} -> Maybe Text
destinationS3Prefix) (\s :: StartSupportDataExport
s@StartSupportDataExport' {} Maybe Text
a -> StartSupportDataExport
s {$sel:destinationS3Prefix:StartSupportDataExport' :: Maybe Text
destinationS3Prefix = Maybe Text
a} :: StartSupportDataExport)
startSupportDataExport_dataSetType :: Lens.Lens' StartSupportDataExport SupportDataSetType
startSupportDataExport_dataSetType :: Lens' StartSupportDataExport SupportDataSetType
startSupportDataExport_dataSetType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartSupportDataExport' {SupportDataSetType
dataSetType :: SupportDataSetType
$sel:dataSetType:StartSupportDataExport' :: StartSupportDataExport -> SupportDataSetType
dataSetType} -> SupportDataSetType
dataSetType) (\s :: StartSupportDataExport
s@StartSupportDataExport' {} SupportDataSetType
a -> StartSupportDataExport
s {$sel:dataSetType:StartSupportDataExport' :: SupportDataSetType
dataSetType = SupportDataSetType
a} :: StartSupportDataExport)
startSupportDataExport_fromDate :: Lens.Lens' StartSupportDataExport Prelude.UTCTime
startSupportDataExport_fromDate :: Lens' StartSupportDataExport UTCTime
startSupportDataExport_fromDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartSupportDataExport' {POSIX
fromDate :: POSIX
$sel:fromDate:StartSupportDataExport' :: StartSupportDataExport -> POSIX
fromDate} -> POSIX
fromDate) (\s :: StartSupportDataExport
s@StartSupportDataExport' {} POSIX
a -> StartSupportDataExport
s {$sel:fromDate:StartSupportDataExport' :: POSIX
fromDate = POSIX
a} :: StartSupportDataExport) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
startSupportDataExport_roleNameArn :: Lens.Lens' StartSupportDataExport Prelude.Text
startSupportDataExport_roleNameArn :: Lens' StartSupportDataExport Text
startSupportDataExport_roleNameArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartSupportDataExport' {Text
roleNameArn :: Text
$sel:roleNameArn:StartSupportDataExport' :: StartSupportDataExport -> Text
roleNameArn} -> Text
roleNameArn) (\s :: StartSupportDataExport
s@StartSupportDataExport' {} Text
a -> StartSupportDataExport
s {$sel:roleNameArn:StartSupportDataExport' :: Text
roleNameArn = Text
a} :: StartSupportDataExport)
startSupportDataExport_destinationS3BucketName :: Lens.Lens' StartSupportDataExport Prelude.Text
startSupportDataExport_destinationS3BucketName :: Lens' StartSupportDataExport Text
startSupportDataExport_destinationS3BucketName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartSupportDataExport' {Text
destinationS3BucketName :: Text
$sel:destinationS3BucketName:StartSupportDataExport' :: StartSupportDataExport -> Text
destinationS3BucketName} -> Text
destinationS3BucketName) (\s :: StartSupportDataExport
s@StartSupportDataExport' {} Text
a -> StartSupportDataExport
s {$sel:destinationS3BucketName:StartSupportDataExport' :: Text
destinationS3BucketName = Text
a} :: StartSupportDataExport)
startSupportDataExport_snsTopicArn :: Lens.Lens' StartSupportDataExport Prelude.Text
startSupportDataExport_snsTopicArn :: Lens' StartSupportDataExport Text
startSupportDataExport_snsTopicArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartSupportDataExport' {Text
snsTopicArn :: Text
$sel:snsTopicArn:StartSupportDataExport' :: StartSupportDataExport -> Text
snsTopicArn} -> Text
snsTopicArn) (\s :: StartSupportDataExport
s@StartSupportDataExport' {} Text
a -> StartSupportDataExport
s {$sel:snsTopicArn:StartSupportDataExport' :: Text
snsTopicArn = Text
a} :: StartSupportDataExport)
instance Core.AWSRequest StartSupportDataExport where
type
AWSResponse StartSupportDataExport =
StartSupportDataExportResponse
request :: (Service -> Service)
-> StartSupportDataExport -> Request StartSupportDataExport
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 StartSupportDataExport
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse StartSupportDataExport)))
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 Text -> Int -> StartSupportDataExportResponse
StartSupportDataExportResponse'
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
"dataSetRequestId")
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 StartSupportDataExport where
hashWithSalt :: Int -> StartSupportDataExport -> Int
hashWithSalt Int
_salt StartSupportDataExport' {Maybe Text
Maybe (HashMap Text Text)
Text
POSIX
SupportDataSetType
snsTopicArn :: Text
destinationS3BucketName :: Text
roleNameArn :: Text
fromDate :: POSIX
dataSetType :: SupportDataSetType
destinationS3Prefix :: Maybe Text
customerDefinedValues :: Maybe (HashMap Text Text)
$sel:snsTopicArn:StartSupportDataExport' :: StartSupportDataExport -> Text
$sel:destinationS3BucketName:StartSupportDataExport' :: StartSupportDataExport -> Text
$sel:roleNameArn:StartSupportDataExport' :: StartSupportDataExport -> Text
$sel:fromDate:StartSupportDataExport' :: StartSupportDataExport -> POSIX
$sel:dataSetType:StartSupportDataExport' :: StartSupportDataExport -> SupportDataSetType
$sel:destinationS3Prefix:StartSupportDataExport' :: StartSupportDataExport -> Maybe Text
$sel:customerDefinedValues:StartSupportDataExport' :: StartSupportDataExport -> Maybe (HashMap Text Text)
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
customerDefinedValues
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
destinationS3Prefix
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` SupportDataSetType
dataSetType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` POSIX
fromDate
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
roleNameArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
destinationS3BucketName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
snsTopicArn
instance Prelude.NFData StartSupportDataExport where
rnf :: StartSupportDataExport -> ()
rnf StartSupportDataExport' {Maybe Text
Maybe (HashMap Text Text)
Text
POSIX
SupportDataSetType
snsTopicArn :: Text
destinationS3BucketName :: Text
roleNameArn :: Text
fromDate :: POSIX
dataSetType :: SupportDataSetType
destinationS3Prefix :: Maybe Text
customerDefinedValues :: Maybe (HashMap Text Text)
$sel:snsTopicArn:StartSupportDataExport' :: StartSupportDataExport -> Text
$sel:destinationS3BucketName:StartSupportDataExport' :: StartSupportDataExport -> Text
$sel:roleNameArn:StartSupportDataExport' :: StartSupportDataExport -> Text
$sel:fromDate:StartSupportDataExport' :: StartSupportDataExport -> POSIX
$sel:dataSetType:StartSupportDataExport' :: StartSupportDataExport -> SupportDataSetType
$sel:destinationS3Prefix:StartSupportDataExport' :: StartSupportDataExport -> Maybe Text
$sel:customerDefinedValues:StartSupportDataExport' :: StartSupportDataExport -> Maybe (HashMap Text Text)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
customerDefinedValues
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
destinationS3Prefix
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf SupportDataSetType
dataSetType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf POSIX
fromDate
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
roleNameArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
destinationS3BucketName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
snsTopicArn
instance Data.ToHeaders StartSupportDataExport where
toHeaders :: StartSupportDataExport -> 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
"MarketplaceCommerceAnalytics20150701.StartSupportDataExport" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON StartSupportDataExport where
toJSON :: StartSupportDataExport -> Value
toJSON StartSupportDataExport' {Maybe Text
Maybe (HashMap Text Text)
Text
POSIX
SupportDataSetType
snsTopicArn :: Text
destinationS3BucketName :: Text
roleNameArn :: Text
fromDate :: POSIX
dataSetType :: SupportDataSetType
destinationS3Prefix :: Maybe Text
customerDefinedValues :: Maybe (HashMap Text Text)
$sel:snsTopicArn:StartSupportDataExport' :: StartSupportDataExport -> Text
$sel:destinationS3BucketName:StartSupportDataExport' :: StartSupportDataExport -> Text
$sel:roleNameArn:StartSupportDataExport' :: StartSupportDataExport -> Text
$sel:fromDate:StartSupportDataExport' :: StartSupportDataExport -> POSIX
$sel:dataSetType:StartSupportDataExport' :: StartSupportDataExport -> SupportDataSetType
$sel:destinationS3Prefix:StartSupportDataExport' :: StartSupportDataExport -> Maybe Text
$sel:customerDefinedValues:StartSupportDataExport' :: StartSupportDataExport -> Maybe (HashMap Text Text)
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"customerDefinedValues" 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)
customerDefinedValues,
(Key
"destinationS3Prefix" 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
destinationS3Prefix,
forall a. a -> Maybe a
Prelude.Just (Key
"dataSetType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= SupportDataSetType
dataSetType),
forall a. a -> Maybe a
Prelude.Just (Key
"fromDate" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= POSIX
fromDate),
forall a. a -> Maybe a
Prelude.Just (Key
"roleNameArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
roleNameArn),
forall a. a -> Maybe a
Prelude.Just
( Key
"destinationS3BucketName"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
destinationS3BucketName
),
forall a. a -> Maybe a
Prelude.Just (Key
"snsTopicArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
snsTopicArn)
]
)
instance Data.ToPath StartSupportDataExport where
toPath :: StartSupportDataExport -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery StartSupportDataExport where
toQuery :: StartSupportDataExport -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data StartSupportDataExportResponse = StartSupportDataExportResponse'
{
StartSupportDataExportResponse -> Maybe Text
dataSetRequestId :: Prelude.Maybe Prelude.Text,
StartSupportDataExportResponse -> Int
httpStatus :: Prelude.Int
}
deriving (StartSupportDataExportResponse
-> StartSupportDataExportResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartSupportDataExportResponse
-> StartSupportDataExportResponse -> Bool
$c/= :: StartSupportDataExportResponse
-> StartSupportDataExportResponse -> Bool
== :: StartSupportDataExportResponse
-> StartSupportDataExportResponse -> Bool
$c== :: StartSupportDataExportResponse
-> StartSupportDataExportResponse -> Bool
Prelude.Eq, ReadPrec [StartSupportDataExportResponse]
ReadPrec StartSupportDataExportResponse
Int -> ReadS StartSupportDataExportResponse
ReadS [StartSupportDataExportResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartSupportDataExportResponse]
$creadListPrec :: ReadPrec [StartSupportDataExportResponse]
readPrec :: ReadPrec StartSupportDataExportResponse
$creadPrec :: ReadPrec StartSupportDataExportResponse
readList :: ReadS [StartSupportDataExportResponse]
$creadList :: ReadS [StartSupportDataExportResponse]
readsPrec :: Int -> ReadS StartSupportDataExportResponse
$creadsPrec :: Int -> ReadS StartSupportDataExportResponse
Prelude.Read, Int -> StartSupportDataExportResponse -> ShowS
[StartSupportDataExportResponse] -> ShowS
StartSupportDataExportResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartSupportDataExportResponse] -> ShowS
$cshowList :: [StartSupportDataExportResponse] -> ShowS
show :: StartSupportDataExportResponse -> String
$cshow :: StartSupportDataExportResponse -> String
showsPrec :: Int -> StartSupportDataExportResponse -> ShowS
$cshowsPrec :: Int -> StartSupportDataExportResponse -> ShowS
Prelude.Show, forall x.
Rep StartSupportDataExportResponse x
-> StartSupportDataExportResponse
forall x.
StartSupportDataExportResponse
-> Rep StartSupportDataExportResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StartSupportDataExportResponse x
-> StartSupportDataExportResponse
$cfrom :: forall x.
StartSupportDataExportResponse
-> Rep StartSupportDataExportResponse x
Prelude.Generic)
newStartSupportDataExportResponse ::
Prelude.Int ->
StartSupportDataExportResponse
newStartSupportDataExportResponse :: Int -> StartSupportDataExportResponse
newStartSupportDataExportResponse Int
pHttpStatus_ =
StartSupportDataExportResponse'
{ $sel:dataSetRequestId:StartSupportDataExportResponse' :: Maybe Text
dataSetRequestId =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:StartSupportDataExportResponse' :: Int
httpStatus = Int
pHttpStatus_
}
startSupportDataExportResponse_dataSetRequestId :: Lens.Lens' StartSupportDataExportResponse (Prelude.Maybe Prelude.Text)
startSupportDataExportResponse_dataSetRequestId :: Lens' StartSupportDataExportResponse (Maybe Text)
startSupportDataExportResponse_dataSetRequestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartSupportDataExportResponse' {Maybe Text
dataSetRequestId :: Maybe Text
$sel:dataSetRequestId:StartSupportDataExportResponse' :: StartSupportDataExportResponse -> Maybe Text
dataSetRequestId} -> Maybe Text
dataSetRequestId) (\s :: StartSupportDataExportResponse
s@StartSupportDataExportResponse' {} Maybe Text
a -> StartSupportDataExportResponse
s {$sel:dataSetRequestId:StartSupportDataExportResponse' :: Maybe Text
dataSetRequestId = Maybe Text
a} :: StartSupportDataExportResponse)
startSupportDataExportResponse_httpStatus :: Lens.Lens' StartSupportDataExportResponse Prelude.Int
startSupportDataExportResponse_httpStatus :: Lens' StartSupportDataExportResponse Int
startSupportDataExportResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartSupportDataExportResponse' {Int
httpStatus :: Int
$sel:httpStatus:StartSupportDataExportResponse' :: StartSupportDataExportResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: StartSupportDataExportResponse
s@StartSupportDataExportResponse' {} Int
a -> StartSupportDataExportResponse
s {$sel:httpStatus:StartSupportDataExportResponse' :: Int
httpStatus = Int
a} :: StartSupportDataExportResponse)
instance
Prelude.NFData
StartSupportDataExportResponse
where
rnf :: StartSupportDataExportResponse -> ()
rnf StartSupportDataExportResponse' {Int
Maybe Text
httpStatus :: Int
dataSetRequestId :: Maybe Text
$sel:httpStatus:StartSupportDataExportResponse' :: StartSupportDataExportResponse -> Int
$sel:dataSetRequestId:StartSupportDataExportResponse' :: StartSupportDataExportResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dataSetRequestId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus