{-# 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.CodeArtifact.DeletePackageVersions
(
DeletePackageVersions (..),
newDeletePackageVersions,
deletePackageVersions_domainOwner,
deletePackageVersions_expectedStatus,
deletePackageVersions_namespace,
deletePackageVersions_domain,
deletePackageVersions_repository,
deletePackageVersions_format,
deletePackageVersions_package,
deletePackageVersions_versions,
DeletePackageVersionsResponse (..),
newDeletePackageVersionsResponse,
deletePackageVersionsResponse_failedVersions,
deletePackageVersionsResponse_successfulVersions,
deletePackageVersionsResponse_httpStatus,
)
where
import Amazonka.CodeArtifact.Types
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
data DeletePackageVersions = DeletePackageVersions'
{
DeletePackageVersions -> Maybe Text
domainOwner :: Prelude.Maybe Prelude.Text,
DeletePackageVersions -> Maybe PackageVersionStatus
expectedStatus :: Prelude.Maybe PackageVersionStatus,
DeletePackageVersions -> Maybe Text
namespace :: Prelude.Maybe Prelude.Text,
DeletePackageVersions -> Text
domain :: Prelude.Text,
DeletePackageVersions -> Text
repository :: Prelude.Text,
DeletePackageVersions -> PackageFormat
format :: PackageFormat,
DeletePackageVersions -> Text
package :: Prelude.Text,
DeletePackageVersions -> [Text]
versions :: [Prelude.Text]
}
deriving (DeletePackageVersions -> DeletePackageVersions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeletePackageVersions -> DeletePackageVersions -> Bool
$c/= :: DeletePackageVersions -> DeletePackageVersions -> Bool
== :: DeletePackageVersions -> DeletePackageVersions -> Bool
$c== :: DeletePackageVersions -> DeletePackageVersions -> Bool
Prelude.Eq, ReadPrec [DeletePackageVersions]
ReadPrec DeletePackageVersions
Int -> ReadS DeletePackageVersions
ReadS [DeletePackageVersions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeletePackageVersions]
$creadListPrec :: ReadPrec [DeletePackageVersions]
readPrec :: ReadPrec DeletePackageVersions
$creadPrec :: ReadPrec DeletePackageVersions
readList :: ReadS [DeletePackageVersions]
$creadList :: ReadS [DeletePackageVersions]
readsPrec :: Int -> ReadS DeletePackageVersions
$creadsPrec :: Int -> ReadS DeletePackageVersions
Prelude.Read, Int -> DeletePackageVersions -> ShowS
[DeletePackageVersions] -> ShowS
DeletePackageVersions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeletePackageVersions] -> ShowS
$cshowList :: [DeletePackageVersions] -> ShowS
show :: DeletePackageVersions -> String
$cshow :: DeletePackageVersions -> String
showsPrec :: Int -> DeletePackageVersions -> ShowS
$cshowsPrec :: Int -> DeletePackageVersions -> ShowS
Prelude.Show, forall x. Rep DeletePackageVersions x -> DeletePackageVersions
forall x. DeletePackageVersions -> Rep DeletePackageVersions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeletePackageVersions x -> DeletePackageVersions
$cfrom :: forall x. DeletePackageVersions -> Rep DeletePackageVersions x
Prelude.Generic)
newDeletePackageVersions ::
Prelude.Text ->
Prelude.Text ->
PackageFormat ->
Prelude.Text ->
DeletePackageVersions
newDeletePackageVersions :: Text -> Text -> PackageFormat -> Text -> DeletePackageVersions
newDeletePackageVersions
Text
pDomain_
Text
pRepository_
PackageFormat
pFormat_
Text
pPackage_ =
DeletePackageVersions'
{ $sel:domainOwner:DeletePackageVersions' :: Maybe Text
domainOwner =
forall a. Maybe a
Prelude.Nothing,
$sel:expectedStatus:DeletePackageVersions' :: Maybe PackageVersionStatus
expectedStatus = forall a. Maybe a
Prelude.Nothing,
$sel:namespace:DeletePackageVersions' :: Maybe Text
namespace = forall a. Maybe a
Prelude.Nothing,
$sel:domain:DeletePackageVersions' :: Text
domain = Text
pDomain_,
$sel:repository:DeletePackageVersions' :: Text
repository = Text
pRepository_,
$sel:format:DeletePackageVersions' :: PackageFormat
format = PackageFormat
pFormat_,
$sel:package:DeletePackageVersions' :: Text
package = Text
pPackage_,
$sel:versions:DeletePackageVersions' :: [Text]
versions = forall a. Monoid a => a
Prelude.mempty
}
deletePackageVersions_domainOwner :: Lens.Lens' DeletePackageVersions (Prelude.Maybe Prelude.Text)
deletePackageVersions_domainOwner :: Lens' DeletePackageVersions (Maybe Text)
deletePackageVersions_domainOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeletePackageVersions' {Maybe Text
domainOwner :: Maybe Text
$sel:domainOwner:DeletePackageVersions' :: DeletePackageVersions -> Maybe Text
domainOwner} -> Maybe Text
domainOwner) (\s :: DeletePackageVersions
s@DeletePackageVersions' {} Maybe Text
a -> DeletePackageVersions
s {$sel:domainOwner:DeletePackageVersions' :: Maybe Text
domainOwner = Maybe Text
a} :: DeletePackageVersions)
deletePackageVersions_expectedStatus :: Lens.Lens' DeletePackageVersions (Prelude.Maybe PackageVersionStatus)
deletePackageVersions_expectedStatus :: Lens' DeletePackageVersions (Maybe PackageVersionStatus)
deletePackageVersions_expectedStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeletePackageVersions' {Maybe PackageVersionStatus
expectedStatus :: Maybe PackageVersionStatus
$sel:expectedStatus:DeletePackageVersions' :: DeletePackageVersions -> Maybe PackageVersionStatus
expectedStatus} -> Maybe PackageVersionStatus
expectedStatus) (\s :: DeletePackageVersions
s@DeletePackageVersions' {} Maybe PackageVersionStatus
a -> DeletePackageVersions
s {$sel:expectedStatus:DeletePackageVersions' :: Maybe PackageVersionStatus
expectedStatus = Maybe PackageVersionStatus
a} :: DeletePackageVersions)
deletePackageVersions_namespace :: Lens.Lens' DeletePackageVersions (Prelude.Maybe Prelude.Text)
deletePackageVersions_namespace :: Lens' DeletePackageVersions (Maybe Text)
deletePackageVersions_namespace = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeletePackageVersions' {Maybe Text
namespace :: Maybe Text
$sel:namespace:DeletePackageVersions' :: DeletePackageVersions -> Maybe Text
namespace} -> Maybe Text
namespace) (\s :: DeletePackageVersions
s@DeletePackageVersions' {} Maybe Text
a -> DeletePackageVersions
s {$sel:namespace:DeletePackageVersions' :: Maybe Text
namespace = Maybe Text
a} :: DeletePackageVersions)
deletePackageVersions_domain :: Lens.Lens' DeletePackageVersions Prelude.Text
deletePackageVersions_domain :: Lens' DeletePackageVersions Text
deletePackageVersions_domain = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeletePackageVersions' {Text
domain :: Text
$sel:domain:DeletePackageVersions' :: DeletePackageVersions -> Text
domain} -> Text
domain) (\s :: DeletePackageVersions
s@DeletePackageVersions' {} Text
a -> DeletePackageVersions
s {$sel:domain:DeletePackageVersions' :: Text
domain = Text
a} :: DeletePackageVersions)
deletePackageVersions_repository :: Lens.Lens' DeletePackageVersions Prelude.Text
deletePackageVersions_repository :: Lens' DeletePackageVersions Text
deletePackageVersions_repository = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeletePackageVersions' {Text
repository :: Text
$sel:repository:DeletePackageVersions' :: DeletePackageVersions -> Text
repository} -> Text
repository) (\s :: DeletePackageVersions
s@DeletePackageVersions' {} Text
a -> DeletePackageVersions
s {$sel:repository:DeletePackageVersions' :: Text
repository = Text
a} :: DeletePackageVersions)
deletePackageVersions_format :: Lens.Lens' DeletePackageVersions PackageFormat
deletePackageVersions_format :: Lens' DeletePackageVersions PackageFormat
deletePackageVersions_format = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeletePackageVersions' {PackageFormat
format :: PackageFormat
$sel:format:DeletePackageVersions' :: DeletePackageVersions -> PackageFormat
format} -> PackageFormat
format) (\s :: DeletePackageVersions
s@DeletePackageVersions' {} PackageFormat
a -> DeletePackageVersions
s {$sel:format:DeletePackageVersions' :: PackageFormat
format = PackageFormat
a} :: DeletePackageVersions)
deletePackageVersions_package :: Lens.Lens' DeletePackageVersions Prelude.Text
deletePackageVersions_package :: Lens' DeletePackageVersions Text
deletePackageVersions_package = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeletePackageVersions' {Text
package :: Text
$sel:package:DeletePackageVersions' :: DeletePackageVersions -> Text
package} -> Text
package) (\s :: DeletePackageVersions
s@DeletePackageVersions' {} Text
a -> DeletePackageVersions
s {$sel:package:DeletePackageVersions' :: Text
package = Text
a} :: DeletePackageVersions)
deletePackageVersions_versions :: Lens.Lens' DeletePackageVersions [Prelude.Text]
deletePackageVersions_versions :: Lens' DeletePackageVersions [Text]
deletePackageVersions_versions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeletePackageVersions' {[Text]
versions :: [Text]
$sel:versions:DeletePackageVersions' :: DeletePackageVersions -> [Text]
versions} -> [Text]
versions) (\s :: DeletePackageVersions
s@DeletePackageVersions' {} [Text]
a -> DeletePackageVersions
s {$sel:versions:DeletePackageVersions' :: [Text]
versions = [Text]
a} :: DeletePackageVersions) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Core.AWSRequest DeletePackageVersions where
type
AWSResponse DeletePackageVersions =
DeletePackageVersionsResponse
request :: (Service -> Service)
-> DeletePackageVersions -> Request DeletePackageVersions
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 DeletePackageVersions
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DeletePackageVersions)))
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 (HashMap Text PackageVersionError)
-> Maybe (HashMap Text SuccessfulPackageVersionInfo)
-> Int
-> DeletePackageVersionsResponse
DeletePackageVersionsResponse'
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
"failedVersions" 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
"successfulVersions"
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 DeletePackageVersions where
hashWithSalt :: Int -> DeletePackageVersions -> Int
hashWithSalt Int
_salt DeletePackageVersions' {[Text]
Maybe Text
Maybe PackageVersionStatus
Text
PackageFormat
versions :: [Text]
package :: Text
format :: PackageFormat
repository :: Text
domain :: Text
namespace :: Maybe Text
expectedStatus :: Maybe PackageVersionStatus
domainOwner :: Maybe Text
$sel:versions:DeletePackageVersions' :: DeletePackageVersions -> [Text]
$sel:package:DeletePackageVersions' :: DeletePackageVersions -> Text
$sel:format:DeletePackageVersions' :: DeletePackageVersions -> PackageFormat
$sel:repository:DeletePackageVersions' :: DeletePackageVersions -> Text
$sel:domain:DeletePackageVersions' :: DeletePackageVersions -> Text
$sel:namespace:DeletePackageVersions' :: DeletePackageVersions -> Maybe Text
$sel:expectedStatus:DeletePackageVersions' :: DeletePackageVersions -> Maybe PackageVersionStatus
$sel:domainOwner:DeletePackageVersions' :: DeletePackageVersions -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
domainOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PackageVersionStatus
expectedStatus
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
namespace
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
domain
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
repository
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` PackageFormat
format
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
package
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Text]
versions
instance Prelude.NFData DeletePackageVersions where
rnf :: DeletePackageVersions -> ()
rnf DeletePackageVersions' {[Text]
Maybe Text
Maybe PackageVersionStatus
Text
PackageFormat
versions :: [Text]
package :: Text
format :: PackageFormat
repository :: Text
domain :: Text
namespace :: Maybe Text
expectedStatus :: Maybe PackageVersionStatus
domainOwner :: Maybe Text
$sel:versions:DeletePackageVersions' :: DeletePackageVersions -> [Text]
$sel:package:DeletePackageVersions' :: DeletePackageVersions -> Text
$sel:format:DeletePackageVersions' :: DeletePackageVersions -> PackageFormat
$sel:repository:DeletePackageVersions' :: DeletePackageVersions -> Text
$sel:domain:DeletePackageVersions' :: DeletePackageVersions -> Text
$sel:namespace:DeletePackageVersions' :: DeletePackageVersions -> Maybe Text
$sel:expectedStatus:DeletePackageVersions' :: DeletePackageVersions -> Maybe PackageVersionStatus
$sel:domainOwner:DeletePackageVersions' :: DeletePackageVersions -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
domainOwner
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PackageVersionStatus
expectedStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
namespace
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
domain
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
repository
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf PackageFormat
format
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
package
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Text]
versions
instance Data.ToHeaders DeletePackageVersions where
toHeaders :: DeletePackageVersions -> 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.ToJSON DeletePackageVersions where
toJSON :: DeletePackageVersions -> Value
toJSON DeletePackageVersions' {[Text]
Maybe Text
Maybe PackageVersionStatus
Text
PackageFormat
versions :: [Text]
package :: Text
format :: PackageFormat
repository :: Text
domain :: Text
namespace :: Maybe Text
expectedStatus :: Maybe PackageVersionStatus
domainOwner :: Maybe Text
$sel:versions:DeletePackageVersions' :: DeletePackageVersions -> [Text]
$sel:package:DeletePackageVersions' :: DeletePackageVersions -> Text
$sel:format:DeletePackageVersions' :: DeletePackageVersions -> PackageFormat
$sel:repository:DeletePackageVersions' :: DeletePackageVersions -> Text
$sel:domain:DeletePackageVersions' :: DeletePackageVersions -> Text
$sel:namespace:DeletePackageVersions' :: DeletePackageVersions -> Maybe Text
$sel:expectedStatus:DeletePackageVersions' :: DeletePackageVersions -> Maybe PackageVersionStatus
$sel:domainOwner:DeletePackageVersions' :: DeletePackageVersions -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"expectedStatus" 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 PackageVersionStatus
expectedStatus,
forall a. a -> Maybe a
Prelude.Just (Key
"versions" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [Text]
versions)
]
)
instance Data.ToPath DeletePackageVersions where
toPath :: DeletePackageVersions -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/v1/package/versions/delete"
instance Data.ToQuery DeletePackageVersions where
toQuery :: DeletePackageVersions -> QueryString
toQuery DeletePackageVersions' {[Text]
Maybe Text
Maybe PackageVersionStatus
Text
PackageFormat
versions :: [Text]
package :: Text
format :: PackageFormat
repository :: Text
domain :: Text
namespace :: Maybe Text
expectedStatus :: Maybe PackageVersionStatus
domainOwner :: Maybe Text
$sel:versions:DeletePackageVersions' :: DeletePackageVersions -> [Text]
$sel:package:DeletePackageVersions' :: DeletePackageVersions -> Text
$sel:format:DeletePackageVersions' :: DeletePackageVersions -> PackageFormat
$sel:repository:DeletePackageVersions' :: DeletePackageVersions -> Text
$sel:domain:DeletePackageVersions' :: DeletePackageVersions -> Text
$sel:namespace:DeletePackageVersions' :: DeletePackageVersions -> Maybe Text
$sel:expectedStatus:DeletePackageVersions' :: DeletePackageVersions -> Maybe PackageVersionStatus
$sel:domainOwner:DeletePackageVersions' :: DeletePackageVersions -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"domain-owner" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
domainOwner,
ByteString
"namespace" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
namespace,
ByteString
"domain" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
domain,
ByteString
"repository" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
repository,
ByteString
"format" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: PackageFormat
format,
ByteString
"package" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
package
]
data DeletePackageVersionsResponse = DeletePackageVersionsResponse'
{
DeletePackageVersionsResponse
-> Maybe (HashMap Text PackageVersionError)
failedVersions :: Prelude.Maybe (Prelude.HashMap Prelude.Text PackageVersionError),
DeletePackageVersionsResponse
-> Maybe (HashMap Text SuccessfulPackageVersionInfo)
successfulVersions :: Prelude.Maybe (Prelude.HashMap Prelude.Text SuccessfulPackageVersionInfo),
DeletePackageVersionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DeletePackageVersionsResponse
-> DeletePackageVersionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeletePackageVersionsResponse
-> DeletePackageVersionsResponse -> Bool
$c/= :: DeletePackageVersionsResponse
-> DeletePackageVersionsResponse -> Bool
== :: DeletePackageVersionsResponse
-> DeletePackageVersionsResponse -> Bool
$c== :: DeletePackageVersionsResponse
-> DeletePackageVersionsResponse -> Bool
Prelude.Eq, ReadPrec [DeletePackageVersionsResponse]
ReadPrec DeletePackageVersionsResponse
Int -> ReadS DeletePackageVersionsResponse
ReadS [DeletePackageVersionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeletePackageVersionsResponse]
$creadListPrec :: ReadPrec [DeletePackageVersionsResponse]
readPrec :: ReadPrec DeletePackageVersionsResponse
$creadPrec :: ReadPrec DeletePackageVersionsResponse
readList :: ReadS [DeletePackageVersionsResponse]
$creadList :: ReadS [DeletePackageVersionsResponse]
readsPrec :: Int -> ReadS DeletePackageVersionsResponse
$creadsPrec :: Int -> ReadS DeletePackageVersionsResponse
Prelude.Read, Int -> DeletePackageVersionsResponse -> ShowS
[DeletePackageVersionsResponse] -> ShowS
DeletePackageVersionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeletePackageVersionsResponse] -> ShowS
$cshowList :: [DeletePackageVersionsResponse] -> ShowS
show :: DeletePackageVersionsResponse -> String
$cshow :: DeletePackageVersionsResponse -> String
showsPrec :: Int -> DeletePackageVersionsResponse -> ShowS
$cshowsPrec :: Int -> DeletePackageVersionsResponse -> ShowS
Prelude.Show, forall x.
Rep DeletePackageVersionsResponse x
-> DeletePackageVersionsResponse
forall x.
DeletePackageVersionsResponse
-> Rep DeletePackageVersionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DeletePackageVersionsResponse x
-> DeletePackageVersionsResponse
$cfrom :: forall x.
DeletePackageVersionsResponse
-> Rep DeletePackageVersionsResponse x
Prelude.Generic)
newDeletePackageVersionsResponse ::
Prelude.Int ->
DeletePackageVersionsResponse
newDeletePackageVersionsResponse :: Int -> DeletePackageVersionsResponse
newDeletePackageVersionsResponse Int
pHttpStatus_ =
DeletePackageVersionsResponse'
{ $sel:failedVersions:DeletePackageVersionsResponse' :: Maybe (HashMap Text PackageVersionError)
failedVersions =
forall a. Maybe a
Prelude.Nothing,
$sel:successfulVersions:DeletePackageVersionsResponse' :: Maybe (HashMap Text SuccessfulPackageVersionInfo)
successfulVersions = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DeletePackageVersionsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
deletePackageVersionsResponse_failedVersions :: Lens.Lens' DeletePackageVersionsResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text PackageVersionError))
deletePackageVersionsResponse_failedVersions :: Lens'
DeletePackageVersionsResponse
(Maybe (HashMap Text PackageVersionError))
deletePackageVersionsResponse_failedVersions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeletePackageVersionsResponse' {Maybe (HashMap Text PackageVersionError)
failedVersions :: Maybe (HashMap Text PackageVersionError)
$sel:failedVersions:DeletePackageVersionsResponse' :: DeletePackageVersionsResponse
-> Maybe (HashMap Text PackageVersionError)
failedVersions} -> Maybe (HashMap Text PackageVersionError)
failedVersions) (\s :: DeletePackageVersionsResponse
s@DeletePackageVersionsResponse' {} Maybe (HashMap Text PackageVersionError)
a -> DeletePackageVersionsResponse
s {$sel:failedVersions:DeletePackageVersionsResponse' :: Maybe (HashMap Text PackageVersionError)
failedVersions = Maybe (HashMap Text PackageVersionError)
a} :: DeletePackageVersionsResponse) 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
deletePackageVersionsResponse_successfulVersions :: Lens.Lens' DeletePackageVersionsResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text SuccessfulPackageVersionInfo))
deletePackageVersionsResponse_successfulVersions :: Lens'
DeletePackageVersionsResponse
(Maybe (HashMap Text SuccessfulPackageVersionInfo))
deletePackageVersionsResponse_successfulVersions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeletePackageVersionsResponse' {Maybe (HashMap Text SuccessfulPackageVersionInfo)
successfulVersions :: Maybe (HashMap Text SuccessfulPackageVersionInfo)
$sel:successfulVersions:DeletePackageVersionsResponse' :: DeletePackageVersionsResponse
-> Maybe (HashMap Text SuccessfulPackageVersionInfo)
successfulVersions} -> Maybe (HashMap Text SuccessfulPackageVersionInfo)
successfulVersions) (\s :: DeletePackageVersionsResponse
s@DeletePackageVersionsResponse' {} Maybe (HashMap Text SuccessfulPackageVersionInfo)
a -> DeletePackageVersionsResponse
s {$sel:successfulVersions:DeletePackageVersionsResponse' :: Maybe (HashMap Text SuccessfulPackageVersionInfo)
successfulVersions = Maybe (HashMap Text SuccessfulPackageVersionInfo)
a} :: DeletePackageVersionsResponse) 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
deletePackageVersionsResponse_httpStatus :: Lens.Lens' DeletePackageVersionsResponse Prelude.Int
deletePackageVersionsResponse_httpStatus :: Lens' DeletePackageVersionsResponse Int
deletePackageVersionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeletePackageVersionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DeletePackageVersionsResponse' :: DeletePackageVersionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DeletePackageVersionsResponse
s@DeletePackageVersionsResponse' {} Int
a -> DeletePackageVersionsResponse
s {$sel:httpStatus:DeletePackageVersionsResponse' :: Int
httpStatus = Int
a} :: DeletePackageVersionsResponse)
instance Prelude.NFData DeletePackageVersionsResponse where
rnf :: DeletePackageVersionsResponse -> ()
rnf DeletePackageVersionsResponse' {Int
Maybe (HashMap Text PackageVersionError)
Maybe (HashMap Text SuccessfulPackageVersionInfo)
httpStatus :: Int
successfulVersions :: Maybe (HashMap Text SuccessfulPackageVersionInfo)
failedVersions :: Maybe (HashMap Text PackageVersionError)
$sel:httpStatus:DeletePackageVersionsResponse' :: DeletePackageVersionsResponse -> Int
$sel:successfulVersions:DeletePackageVersionsResponse' :: DeletePackageVersionsResponse
-> Maybe (HashMap Text SuccessfulPackageVersionInfo)
$sel:failedVersions:DeletePackageVersionsResponse' :: DeletePackageVersionsResponse
-> Maybe (HashMap Text PackageVersionError)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text PackageVersionError)
failedVersions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text SuccessfulPackageVersionInfo)
successfulVersions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus