{-# 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.OpenSearch.GetPackageVersionHistory
(
GetPackageVersionHistory (..),
newGetPackageVersionHistory,
getPackageVersionHistory_maxResults,
getPackageVersionHistory_nextToken,
getPackageVersionHistory_packageID,
GetPackageVersionHistoryResponse (..),
newGetPackageVersionHistoryResponse,
getPackageVersionHistoryResponse_nextToken,
getPackageVersionHistoryResponse_packageID,
getPackageVersionHistoryResponse_packageVersionHistoryList,
getPackageVersionHistoryResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.OpenSearch.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetPackageVersionHistory = GetPackageVersionHistory'
{
GetPackageVersionHistory -> Maybe Int
maxResults :: Prelude.Maybe Prelude.Int,
GetPackageVersionHistory -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetPackageVersionHistory -> Text
packageID :: Prelude.Text
}
deriving (GetPackageVersionHistory -> GetPackageVersionHistory -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetPackageVersionHistory -> GetPackageVersionHistory -> Bool
$c/= :: GetPackageVersionHistory -> GetPackageVersionHistory -> Bool
== :: GetPackageVersionHistory -> GetPackageVersionHistory -> Bool
$c== :: GetPackageVersionHistory -> GetPackageVersionHistory -> Bool
Prelude.Eq, ReadPrec [GetPackageVersionHistory]
ReadPrec GetPackageVersionHistory
Int -> ReadS GetPackageVersionHistory
ReadS [GetPackageVersionHistory]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetPackageVersionHistory]
$creadListPrec :: ReadPrec [GetPackageVersionHistory]
readPrec :: ReadPrec GetPackageVersionHistory
$creadPrec :: ReadPrec GetPackageVersionHistory
readList :: ReadS [GetPackageVersionHistory]
$creadList :: ReadS [GetPackageVersionHistory]
readsPrec :: Int -> ReadS GetPackageVersionHistory
$creadsPrec :: Int -> ReadS GetPackageVersionHistory
Prelude.Read, Int -> GetPackageVersionHistory -> ShowS
[GetPackageVersionHistory] -> ShowS
GetPackageVersionHistory -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetPackageVersionHistory] -> ShowS
$cshowList :: [GetPackageVersionHistory] -> ShowS
show :: GetPackageVersionHistory -> String
$cshow :: GetPackageVersionHistory -> String
showsPrec :: Int -> GetPackageVersionHistory -> ShowS
$cshowsPrec :: Int -> GetPackageVersionHistory -> ShowS
Prelude.Show, forall x.
Rep GetPackageVersionHistory x -> GetPackageVersionHistory
forall x.
GetPackageVersionHistory -> Rep GetPackageVersionHistory x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetPackageVersionHistory x -> GetPackageVersionHistory
$cfrom :: forall x.
GetPackageVersionHistory -> Rep GetPackageVersionHistory x
Prelude.Generic)
newGetPackageVersionHistory ::
Prelude.Text ->
GetPackageVersionHistory
newGetPackageVersionHistory :: Text -> GetPackageVersionHistory
newGetPackageVersionHistory Text
pPackageID_ =
GetPackageVersionHistory'
{ $sel:maxResults:GetPackageVersionHistory' :: Maybe Int
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:GetPackageVersionHistory' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:packageID:GetPackageVersionHistory' :: Text
packageID = Text
pPackageID_
}
getPackageVersionHistory_maxResults :: Lens.Lens' GetPackageVersionHistory (Prelude.Maybe Prelude.Int)
getPackageVersionHistory_maxResults :: Lens' GetPackageVersionHistory (Maybe Int)
getPackageVersionHistory_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetPackageVersionHistory' {Maybe Int
maxResults :: Maybe Int
$sel:maxResults:GetPackageVersionHistory' :: GetPackageVersionHistory -> Maybe Int
maxResults} -> Maybe Int
maxResults) (\s :: GetPackageVersionHistory
s@GetPackageVersionHistory' {} Maybe Int
a -> GetPackageVersionHistory
s {$sel:maxResults:GetPackageVersionHistory' :: Maybe Int
maxResults = Maybe Int
a} :: GetPackageVersionHistory)
getPackageVersionHistory_nextToken :: Lens.Lens' GetPackageVersionHistory (Prelude.Maybe Prelude.Text)
getPackageVersionHistory_nextToken :: Lens' GetPackageVersionHistory (Maybe Text)
getPackageVersionHistory_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetPackageVersionHistory' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetPackageVersionHistory' :: GetPackageVersionHistory -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetPackageVersionHistory
s@GetPackageVersionHistory' {} Maybe Text
a -> GetPackageVersionHistory
s {$sel:nextToken:GetPackageVersionHistory' :: Maybe Text
nextToken = Maybe Text
a} :: GetPackageVersionHistory)
getPackageVersionHistory_packageID :: Lens.Lens' GetPackageVersionHistory Prelude.Text
getPackageVersionHistory_packageID :: Lens' GetPackageVersionHistory Text
getPackageVersionHistory_packageID = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetPackageVersionHistory' {Text
packageID :: Text
$sel:packageID:GetPackageVersionHistory' :: GetPackageVersionHistory -> Text
packageID} -> Text
packageID) (\s :: GetPackageVersionHistory
s@GetPackageVersionHistory' {} Text
a -> GetPackageVersionHistory
s {$sel:packageID:GetPackageVersionHistory' :: Text
packageID = Text
a} :: GetPackageVersionHistory)
instance Core.AWSRequest GetPackageVersionHistory where
type
AWSResponse GetPackageVersionHistory =
GetPackageVersionHistoryResponse
request :: (Service -> Service)
-> GetPackageVersionHistory -> Request GetPackageVersionHistory
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 GetPackageVersionHistory
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetPackageVersionHistory)))
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
-> Maybe Text
-> Maybe [PackageVersionHistory]
-> Int
-> GetPackageVersionHistoryResponse
GetPackageVersionHistoryResponse'
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
"NextToken")
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
"PackageID")
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
"PackageVersionHistoryList"
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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable GetPackageVersionHistory where
hashWithSalt :: Int -> GetPackageVersionHistory -> Int
hashWithSalt Int
_salt GetPackageVersionHistory' {Maybe Int
Maybe Text
Text
packageID :: Text
nextToken :: Maybe Text
maxResults :: Maybe Int
$sel:packageID:GetPackageVersionHistory' :: GetPackageVersionHistory -> Text
$sel:nextToken:GetPackageVersionHistory' :: GetPackageVersionHistory -> Maybe Text
$sel:maxResults:GetPackageVersionHistory' :: GetPackageVersionHistory -> Maybe Int
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
packageID
instance Prelude.NFData GetPackageVersionHistory where
rnf :: GetPackageVersionHistory -> ()
rnf GetPackageVersionHistory' {Maybe Int
Maybe Text
Text
packageID :: Text
nextToken :: Maybe Text
maxResults :: Maybe Int
$sel:packageID:GetPackageVersionHistory' :: GetPackageVersionHistory -> Text
$sel:nextToken:GetPackageVersionHistory' :: GetPackageVersionHistory -> Maybe Text
$sel:maxResults:GetPackageVersionHistory' :: GetPackageVersionHistory -> Maybe Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
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
packageID
instance Data.ToHeaders GetPackageVersionHistory where
toHeaders :: GetPackageVersionHistory -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath GetPackageVersionHistory where
toPath :: GetPackageVersionHistory -> ByteString
toPath GetPackageVersionHistory' {Maybe Int
Maybe Text
Text
packageID :: Text
nextToken :: Maybe Text
maxResults :: Maybe Int
$sel:packageID:GetPackageVersionHistory' :: GetPackageVersionHistory -> Text
$sel:nextToken:GetPackageVersionHistory' :: GetPackageVersionHistory -> Maybe Text
$sel:maxResults:GetPackageVersionHistory' :: GetPackageVersionHistory -> Maybe Int
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/2021-01-01/packages/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
packageID,
ByteString
"/history"
]
instance Data.ToQuery GetPackageVersionHistory where
toQuery :: GetPackageVersionHistory -> QueryString
toQuery GetPackageVersionHistory' {Maybe Int
Maybe Text
Text
packageID :: Text
nextToken :: Maybe Text
maxResults :: Maybe Int
$sel:packageID:GetPackageVersionHistory' :: GetPackageVersionHistory -> Text
$sel:nextToken:GetPackageVersionHistory' :: GetPackageVersionHistory -> Maybe Text
$sel:maxResults:GetPackageVersionHistory' :: GetPackageVersionHistory -> Maybe Int
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"maxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
maxResults,
ByteString
"nextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken
]
data GetPackageVersionHistoryResponse = GetPackageVersionHistoryResponse'
{
GetPackageVersionHistoryResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetPackageVersionHistoryResponse -> Maybe Text
packageID :: Prelude.Maybe Prelude.Text,
GetPackageVersionHistoryResponse -> Maybe [PackageVersionHistory]
packageVersionHistoryList :: Prelude.Maybe [PackageVersionHistory],
GetPackageVersionHistoryResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetPackageVersionHistoryResponse
-> GetPackageVersionHistoryResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetPackageVersionHistoryResponse
-> GetPackageVersionHistoryResponse -> Bool
$c/= :: GetPackageVersionHistoryResponse
-> GetPackageVersionHistoryResponse -> Bool
== :: GetPackageVersionHistoryResponse
-> GetPackageVersionHistoryResponse -> Bool
$c== :: GetPackageVersionHistoryResponse
-> GetPackageVersionHistoryResponse -> Bool
Prelude.Eq, ReadPrec [GetPackageVersionHistoryResponse]
ReadPrec GetPackageVersionHistoryResponse
Int -> ReadS GetPackageVersionHistoryResponse
ReadS [GetPackageVersionHistoryResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetPackageVersionHistoryResponse]
$creadListPrec :: ReadPrec [GetPackageVersionHistoryResponse]
readPrec :: ReadPrec GetPackageVersionHistoryResponse
$creadPrec :: ReadPrec GetPackageVersionHistoryResponse
readList :: ReadS [GetPackageVersionHistoryResponse]
$creadList :: ReadS [GetPackageVersionHistoryResponse]
readsPrec :: Int -> ReadS GetPackageVersionHistoryResponse
$creadsPrec :: Int -> ReadS GetPackageVersionHistoryResponse
Prelude.Read, Int -> GetPackageVersionHistoryResponse -> ShowS
[GetPackageVersionHistoryResponse] -> ShowS
GetPackageVersionHistoryResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetPackageVersionHistoryResponse] -> ShowS
$cshowList :: [GetPackageVersionHistoryResponse] -> ShowS
show :: GetPackageVersionHistoryResponse -> String
$cshow :: GetPackageVersionHistoryResponse -> String
showsPrec :: Int -> GetPackageVersionHistoryResponse -> ShowS
$cshowsPrec :: Int -> GetPackageVersionHistoryResponse -> ShowS
Prelude.Show, forall x.
Rep GetPackageVersionHistoryResponse x
-> GetPackageVersionHistoryResponse
forall x.
GetPackageVersionHistoryResponse
-> Rep GetPackageVersionHistoryResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetPackageVersionHistoryResponse x
-> GetPackageVersionHistoryResponse
$cfrom :: forall x.
GetPackageVersionHistoryResponse
-> Rep GetPackageVersionHistoryResponse x
Prelude.Generic)
newGetPackageVersionHistoryResponse ::
Prelude.Int ->
GetPackageVersionHistoryResponse
newGetPackageVersionHistoryResponse :: Int -> GetPackageVersionHistoryResponse
newGetPackageVersionHistoryResponse Int
pHttpStatus_ =
GetPackageVersionHistoryResponse'
{ $sel:nextToken:GetPackageVersionHistoryResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:packageID:GetPackageVersionHistoryResponse' :: Maybe Text
packageID = forall a. Maybe a
Prelude.Nothing,
$sel:packageVersionHistoryList:GetPackageVersionHistoryResponse' :: Maybe [PackageVersionHistory]
packageVersionHistoryList =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetPackageVersionHistoryResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getPackageVersionHistoryResponse_nextToken :: Lens.Lens' GetPackageVersionHistoryResponse (Prelude.Maybe Prelude.Text)
getPackageVersionHistoryResponse_nextToken :: Lens' GetPackageVersionHistoryResponse (Maybe Text)
getPackageVersionHistoryResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetPackageVersionHistoryResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetPackageVersionHistoryResponse' :: GetPackageVersionHistoryResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetPackageVersionHistoryResponse
s@GetPackageVersionHistoryResponse' {} Maybe Text
a -> GetPackageVersionHistoryResponse
s {$sel:nextToken:GetPackageVersionHistoryResponse' :: Maybe Text
nextToken = Maybe Text
a} :: GetPackageVersionHistoryResponse)
getPackageVersionHistoryResponse_packageID :: Lens.Lens' GetPackageVersionHistoryResponse (Prelude.Maybe Prelude.Text)
getPackageVersionHistoryResponse_packageID :: Lens' GetPackageVersionHistoryResponse (Maybe Text)
getPackageVersionHistoryResponse_packageID = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetPackageVersionHistoryResponse' {Maybe Text
packageID :: Maybe Text
$sel:packageID:GetPackageVersionHistoryResponse' :: GetPackageVersionHistoryResponse -> Maybe Text
packageID} -> Maybe Text
packageID) (\s :: GetPackageVersionHistoryResponse
s@GetPackageVersionHistoryResponse' {} Maybe Text
a -> GetPackageVersionHistoryResponse
s {$sel:packageID:GetPackageVersionHistoryResponse' :: Maybe Text
packageID = Maybe Text
a} :: GetPackageVersionHistoryResponse)
getPackageVersionHistoryResponse_packageVersionHistoryList :: Lens.Lens' GetPackageVersionHistoryResponse (Prelude.Maybe [PackageVersionHistory])
getPackageVersionHistoryResponse_packageVersionHistoryList :: Lens'
GetPackageVersionHistoryResponse (Maybe [PackageVersionHistory])
getPackageVersionHistoryResponse_packageVersionHistoryList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetPackageVersionHistoryResponse' {Maybe [PackageVersionHistory]
packageVersionHistoryList :: Maybe [PackageVersionHistory]
$sel:packageVersionHistoryList:GetPackageVersionHistoryResponse' :: GetPackageVersionHistoryResponse -> Maybe [PackageVersionHistory]
packageVersionHistoryList} -> Maybe [PackageVersionHistory]
packageVersionHistoryList) (\s :: GetPackageVersionHistoryResponse
s@GetPackageVersionHistoryResponse' {} Maybe [PackageVersionHistory]
a -> GetPackageVersionHistoryResponse
s {$sel:packageVersionHistoryList:GetPackageVersionHistoryResponse' :: Maybe [PackageVersionHistory]
packageVersionHistoryList = Maybe [PackageVersionHistory]
a} :: GetPackageVersionHistoryResponse) 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
getPackageVersionHistoryResponse_httpStatus :: Lens.Lens' GetPackageVersionHistoryResponse Prelude.Int
getPackageVersionHistoryResponse_httpStatus :: Lens' GetPackageVersionHistoryResponse Int
getPackageVersionHistoryResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetPackageVersionHistoryResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetPackageVersionHistoryResponse' :: GetPackageVersionHistoryResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetPackageVersionHistoryResponse
s@GetPackageVersionHistoryResponse' {} Int
a -> GetPackageVersionHistoryResponse
s {$sel:httpStatus:GetPackageVersionHistoryResponse' :: Int
httpStatus = Int
a} :: GetPackageVersionHistoryResponse)
instance
Prelude.NFData
GetPackageVersionHistoryResponse
where
rnf :: GetPackageVersionHistoryResponse -> ()
rnf GetPackageVersionHistoryResponse' {Int
Maybe [PackageVersionHistory]
Maybe Text
httpStatus :: Int
packageVersionHistoryList :: Maybe [PackageVersionHistory]
packageID :: Maybe Text
nextToken :: Maybe Text
$sel:httpStatus:GetPackageVersionHistoryResponse' :: GetPackageVersionHistoryResponse -> Int
$sel:packageVersionHistoryList:GetPackageVersionHistoryResponse' :: GetPackageVersionHistoryResponse -> Maybe [PackageVersionHistory]
$sel:packageID:GetPackageVersionHistoryResponse' :: GetPackageVersionHistoryResponse -> Maybe Text
$sel:nextToken:GetPackageVersionHistoryResponse' :: GetPackageVersionHistoryResponse -> Maybe Text
..} =
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 Maybe Text
packageID
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [PackageVersionHistory]
packageVersionHistoryList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus