{-# 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.FinSpaceData.ListChangesets
(
ListChangesets (..),
newListChangesets,
listChangesets_maxResults,
listChangesets_nextToken,
listChangesets_datasetId,
ListChangesetsResponse (..),
newListChangesetsResponse,
listChangesetsResponse_changesets,
listChangesetsResponse_nextToken,
listChangesetsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.FinSpaceData.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListChangesets = ListChangesets'
{
ListChangesets -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListChangesets -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListChangesets -> Text
datasetId :: Prelude.Text
}
deriving (ListChangesets -> ListChangesets -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListChangesets -> ListChangesets -> Bool
$c/= :: ListChangesets -> ListChangesets -> Bool
== :: ListChangesets -> ListChangesets -> Bool
$c== :: ListChangesets -> ListChangesets -> Bool
Prelude.Eq, ReadPrec [ListChangesets]
ReadPrec ListChangesets
Int -> ReadS ListChangesets
ReadS [ListChangesets]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListChangesets]
$creadListPrec :: ReadPrec [ListChangesets]
readPrec :: ReadPrec ListChangesets
$creadPrec :: ReadPrec ListChangesets
readList :: ReadS [ListChangesets]
$creadList :: ReadS [ListChangesets]
readsPrec :: Int -> ReadS ListChangesets
$creadsPrec :: Int -> ReadS ListChangesets
Prelude.Read, Int -> ListChangesets -> ShowS
[ListChangesets] -> ShowS
ListChangesets -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListChangesets] -> ShowS
$cshowList :: [ListChangesets] -> ShowS
show :: ListChangesets -> String
$cshow :: ListChangesets -> String
showsPrec :: Int -> ListChangesets -> ShowS
$cshowsPrec :: Int -> ListChangesets -> ShowS
Prelude.Show, forall x. Rep ListChangesets x -> ListChangesets
forall x. ListChangesets -> Rep ListChangesets x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListChangesets x -> ListChangesets
$cfrom :: forall x. ListChangesets -> Rep ListChangesets x
Prelude.Generic)
newListChangesets ::
Prelude.Text ->
ListChangesets
newListChangesets :: Text -> ListChangesets
newListChangesets Text
pDatasetId_ =
ListChangesets'
{ $sel:maxResults:ListChangesets' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListChangesets' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:datasetId:ListChangesets' :: Text
datasetId = Text
pDatasetId_
}
listChangesets_maxResults :: Lens.Lens' ListChangesets (Prelude.Maybe Prelude.Natural)
listChangesets_maxResults :: Lens' ListChangesets (Maybe Natural)
listChangesets_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListChangesets' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListChangesets' :: ListChangesets -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListChangesets
s@ListChangesets' {} Maybe Natural
a -> ListChangesets
s {$sel:maxResults:ListChangesets' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListChangesets)
listChangesets_nextToken :: Lens.Lens' ListChangesets (Prelude.Maybe Prelude.Text)
listChangesets_nextToken :: Lens' ListChangesets (Maybe Text)
listChangesets_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListChangesets' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListChangesets' :: ListChangesets -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListChangesets
s@ListChangesets' {} Maybe Text
a -> ListChangesets
s {$sel:nextToken:ListChangesets' :: Maybe Text
nextToken = Maybe Text
a} :: ListChangesets)
listChangesets_datasetId :: Lens.Lens' ListChangesets Prelude.Text
listChangesets_datasetId :: Lens' ListChangesets Text
listChangesets_datasetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListChangesets' {Text
datasetId :: Text
$sel:datasetId:ListChangesets' :: ListChangesets -> Text
datasetId} -> Text
datasetId) (\s :: ListChangesets
s@ListChangesets' {} Text
a -> ListChangesets
s {$sel:datasetId:ListChangesets' :: Text
datasetId = Text
a} :: ListChangesets)
instance Core.AWSPager ListChangesets where
page :: ListChangesets
-> AWSResponse ListChangesets -> Maybe ListChangesets
page ListChangesets
rq AWSResponse ListChangesets
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListChangesets
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListChangesetsResponse (Maybe Text)
listChangesetsResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListChangesets
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListChangesetsResponse (Maybe [ChangesetSummary])
listChangesetsResponse_changesets
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListChangesets
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListChangesets (Maybe Text)
listChangesets_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListChangesets
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListChangesetsResponse (Maybe Text)
listChangesetsResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest ListChangesets where
type
AWSResponse ListChangesets =
ListChangesetsResponse
request :: (Service -> Service) -> ListChangesets -> Request ListChangesets
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListChangesets
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ListChangesets)))
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 [ChangesetSummary]
-> Maybe Text -> Int -> ListChangesetsResponse
ListChangesetsResponse'
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
"changesets" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ 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 -> Either String (Maybe a)
Data..?> Key
"nextToken")
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 ListChangesets where
hashWithSalt :: Int -> ListChangesets -> Int
hashWithSalt Int
_salt ListChangesets' {Maybe Natural
Maybe Text
Text
datasetId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:datasetId:ListChangesets' :: ListChangesets -> Text
$sel:nextToken:ListChangesets' :: ListChangesets -> Maybe Text
$sel:maxResults:ListChangesets' :: ListChangesets -> Maybe Natural
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
datasetId
instance Prelude.NFData ListChangesets where
rnf :: ListChangesets -> ()
rnf ListChangesets' {Maybe Natural
Maybe Text
Text
datasetId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:datasetId:ListChangesets' :: ListChangesets -> Text
$sel:nextToken:ListChangesets' :: ListChangesets -> Maybe Text
$sel:maxResults:ListChangesets' :: ListChangesets -> Maybe Natural
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
datasetId
instance Data.ToHeaders ListChangesets where
toHeaders :: ListChangesets -> 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.ToPath ListChangesets where
toPath :: ListChangesets -> ByteString
toPath ListChangesets' {Maybe Natural
Maybe Text
Text
datasetId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:datasetId:ListChangesets' :: ListChangesets -> Text
$sel:nextToken:ListChangesets' :: ListChangesets -> Maybe Text
$sel:maxResults:ListChangesets' :: ListChangesets -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/datasets/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
datasetId, ByteString
"/changesetsv2"]
instance Data.ToQuery ListChangesets where
toQuery :: ListChangesets -> QueryString
toQuery ListChangesets' {Maybe Natural
Maybe Text
Text
datasetId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:datasetId:ListChangesets' :: ListChangesets -> Text
$sel:nextToken:ListChangesets' :: ListChangesets -> Maybe Text
$sel:maxResults:ListChangesets' :: ListChangesets -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"maxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
ByteString
"nextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken
]
data ListChangesetsResponse = ListChangesetsResponse'
{
ListChangesetsResponse -> Maybe [ChangesetSummary]
changesets :: Prelude.Maybe [ChangesetSummary],
ListChangesetsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListChangesetsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListChangesetsResponse -> ListChangesetsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListChangesetsResponse -> ListChangesetsResponse -> Bool
$c/= :: ListChangesetsResponse -> ListChangesetsResponse -> Bool
== :: ListChangesetsResponse -> ListChangesetsResponse -> Bool
$c== :: ListChangesetsResponse -> ListChangesetsResponse -> Bool
Prelude.Eq, ReadPrec [ListChangesetsResponse]
ReadPrec ListChangesetsResponse
Int -> ReadS ListChangesetsResponse
ReadS [ListChangesetsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListChangesetsResponse]
$creadListPrec :: ReadPrec [ListChangesetsResponse]
readPrec :: ReadPrec ListChangesetsResponse
$creadPrec :: ReadPrec ListChangesetsResponse
readList :: ReadS [ListChangesetsResponse]
$creadList :: ReadS [ListChangesetsResponse]
readsPrec :: Int -> ReadS ListChangesetsResponse
$creadsPrec :: Int -> ReadS ListChangesetsResponse
Prelude.Read, Int -> ListChangesetsResponse -> ShowS
[ListChangesetsResponse] -> ShowS
ListChangesetsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListChangesetsResponse] -> ShowS
$cshowList :: [ListChangesetsResponse] -> ShowS
show :: ListChangesetsResponse -> String
$cshow :: ListChangesetsResponse -> String
showsPrec :: Int -> ListChangesetsResponse -> ShowS
$cshowsPrec :: Int -> ListChangesetsResponse -> ShowS
Prelude.Show, forall x. Rep ListChangesetsResponse x -> ListChangesetsResponse
forall x. ListChangesetsResponse -> Rep ListChangesetsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListChangesetsResponse x -> ListChangesetsResponse
$cfrom :: forall x. ListChangesetsResponse -> Rep ListChangesetsResponse x
Prelude.Generic)
newListChangesetsResponse ::
Prelude.Int ->
ListChangesetsResponse
newListChangesetsResponse :: Int -> ListChangesetsResponse
newListChangesetsResponse Int
pHttpStatus_ =
ListChangesetsResponse'
{ $sel:changesets:ListChangesetsResponse' :: Maybe [ChangesetSummary]
changesets =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListChangesetsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListChangesetsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listChangesetsResponse_changesets :: Lens.Lens' ListChangesetsResponse (Prelude.Maybe [ChangesetSummary])
listChangesetsResponse_changesets :: Lens' ListChangesetsResponse (Maybe [ChangesetSummary])
listChangesetsResponse_changesets = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListChangesetsResponse' {Maybe [ChangesetSummary]
changesets :: Maybe [ChangesetSummary]
$sel:changesets:ListChangesetsResponse' :: ListChangesetsResponse -> Maybe [ChangesetSummary]
changesets} -> Maybe [ChangesetSummary]
changesets) (\s :: ListChangesetsResponse
s@ListChangesetsResponse' {} Maybe [ChangesetSummary]
a -> ListChangesetsResponse
s {$sel:changesets:ListChangesetsResponse' :: Maybe [ChangesetSummary]
changesets = Maybe [ChangesetSummary]
a} :: ListChangesetsResponse) 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
listChangesetsResponse_nextToken :: Lens.Lens' ListChangesetsResponse (Prelude.Maybe Prelude.Text)
listChangesetsResponse_nextToken :: Lens' ListChangesetsResponse (Maybe Text)
listChangesetsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListChangesetsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListChangesetsResponse' :: ListChangesetsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListChangesetsResponse
s@ListChangesetsResponse' {} Maybe Text
a -> ListChangesetsResponse
s {$sel:nextToken:ListChangesetsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListChangesetsResponse)
listChangesetsResponse_httpStatus :: Lens.Lens' ListChangesetsResponse Prelude.Int
listChangesetsResponse_httpStatus :: Lens' ListChangesetsResponse Int
listChangesetsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListChangesetsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListChangesetsResponse' :: ListChangesetsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListChangesetsResponse
s@ListChangesetsResponse' {} Int
a -> ListChangesetsResponse
s {$sel:httpStatus:ListChangesetsResponse' :: Int
httpStatus = Int
a} :: ListChangesetsResponse)
instance Prelude.NFData ListChangesetsResponse where
rnf :: ListChangesetsResponse -> ()
rnf ListChangesetsResponse' {Int
Maybe [ChangesetSummary]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
changesets :: Maybe [ChangesetSummary]
$sel:httpStatus:ListChangesetsResponse' :: ListChangesetsResponse -> Int
$sel:nextToken:ListChangesetsResponse' :: ListChangesetsResponse -> Maybe Text
$sel:changesets:ListChangesetsResponse' :: ListChangesetsResponse -> Maybe [ChangesetSummary]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [ChangesetSummary]
changesets
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus