{-# 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.MacieV2.ListResourceProfileArtifacts
(
ListResourceProfileArtifacts (..),
newListResourceProfileArtifacts,
listResourceProfileArtifacts_nextToken,
listResourceProfileArtifacts_resourceArn,
ListResourceProfileArtifactsResponse (..),
newListResourceProfileArtifactsResponse,
listResourceProfileArtifactsResponse_artifacts,
listResourceProfileArtifactsResponse_nextToken,
listResourceProfileArtifactsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MacieV2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListResourceProfileArtifacts = ListResourceProfileArtifacts'
{
ListResourceProfileArtifacts -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListResourceProfileArtifacts -> Text
resourceArn :: Prelude.Text
}
deriving (ListResourceProfileArtifacts
-> ListResourceProfileArtifacts -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListResourceProfileArtifacts
-> ListResourceProfileArtifacts -> Bool
$c/= :: ListResourceProfileArtifacts
-> ListResourceProfileArtifacts -> Bool
== :: ListResourceProfileArtifacts
-> ListResourceProfileArtifacts -> Bool
$c== :: ListResourceProfileArtifacts
-> ListResourceProfileArtifacts -> Bool
Prelude.Eq, ReadPrec [ListResourceProfileArtifacts]
ReadPrec ListResourceProfileArtifacts
Int -> ReadS ListResourceProfileArtifacts
ReadS [ListResourceProfileArtifacts]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListResourceProfileArtifacts]
$creadListPrec :: ReadPrec [ListResourceProfileArtifacts]
readPrec :: ReadPrec ListResourceProfileArtifacts
$creadPrec :: ReadPrec ListResourceProfileArtifacts
readList :: ReadS [ListResourceProfileArtifacts]
$creadList :: ReadS [ListResourceProfileArtifacts]
readsPrec :: Int -> ReadS ListResourceProfileArtifacts
$creadsPrec :: Int -> ReadS ListResourceProfileArtifacts
Prelude.Read, Int -> ListResourceProfileArtifacts -> ShowS
[ListResourceProfileArtifacts] -> ShowS
ListResourceProfileArtifacts -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListResourceProfileArtifacts] -> ShowS
$cshowList :: [ListResourceProfileArtifacts] -> ShowS
show :: ListResourceProfileArtifacts -> String
$cshow :: ListResourceProfileArtifacts -> String
showsPrec :: Int -> ListResourceProfileArtifacts -> ShowS
$cshowsPrec :: Int -> ListResourceProfileArtifacts -> ShowS
Prelude.Show, forall x.
Rep ListResourceProfileArtifacts x -> ListResourceProfileArtifacts
forall x.
ListResourceProfileArtifacts -> Rep ListResourceProfileArtifacts x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListResourceProfileArtifacts x -> ListResourceProfileArtifacts
$cfrom :: forall x.
ListResourceProfileArtifacts -> Rep ListResourceProfileArtifacts x
Prelude.Generic)
newListResourceProfileArtifacts ::
Prelude.Text ->
ListResourceProfileArtifacts
newListResourceProfileArtifacts :: Text -> ListResourceProfileArtifacts
newListResourceProfileArtifacts Text
pResourceArn_ =
ListResourceProfileArtifacts'
{ $sel:nextToken:ListResourceProfileArtifacts' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:resourceArn:ListResourceProfileArtifacts' :: Text
resourceArn = Text
pResourceArn_
}
listResourceProfileArtifacts_nextToken :: Lens.Lens' ListResourceProfileArtifacts (Prelude.Maybe Prelude.Text)
listResourceProfileArtifacts_nextToken :: Lens' ListResourceProfileArtifacts (Maybe Text)
listResourceProfileArtifacts_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceProfileArtifacts' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListResourceProfileArtifacts' :: ListResourceProfileArtifacts -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListResourceProfileArtifacts
s@ListResourceProfileArtifacts' {} Maybe Text
a -> ListResourceProfileArtifacts
s {$sel:nextToken:ListResourceProfileArtifacts' :: Maybe Text
nextToken = Maybe Text
a} :: ListResourceProfileArtifacts)
listResourceProfileArtifacts_resourceArn :: Lens.Lens' ListResourceProfileArtifacts Prelude.Text
listResourceProfileArtifacts_resourceArn :: Lens' ListResourceProfileArtifacts Text
listResourceProfileArtifacts_resourceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceProfileArtifacts' {Text
resourceArn :: Text
$sel:resourceArn:ListResourceProfileArtifacts' :: ListResourceProfileArtifacts -> Text
resourceArn} -> Text
resourceArn) (\s :: ListResourceProfileArtifacts
s@ListResourceProfileArtifacts' {} Text
a -> ListResourceProfileArtifacts
s {$sel:resourceArn:ListResourceProfileArtifacts' :: Text
resourceArn = Text
a} :: ListResourceProfileArtifacts)
instance Core.AWSPager ListResourceProfileArtifacts where
page :: ListResourceProfileArtifacts
-> AWSResponse ListResourceProfileArtifacts
-> Maybe ListResourceProfileArtifacts
page ListResourceProfileArtifacts
rq AWSResponse ListResourceProfileArtifacts
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListResourceProfileArtifacts
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListResourceProfileArtifactsResponse (Maybe Text)
listResourceProfileArtifactsResponse_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 ListResourceProfileArtifacts
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
ListResourceProfileArtifactsResponse
(Maybe [ResourceProfileArtifact])
listResourceProfileArtifactsResponse_artifacts
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.$ ListResourceProfileArtifacts
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListResourceProfileArtifacts (Maybe Text)
listResourceProfileArtifacts_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListResourceProfileArtifacts
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListResourceProfileArtifactsResponse (Maybe Text)
listResourceProfileArtifactsResponse_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 ListResourceProfileArtifacts where
type
AWSResponse ListResourceProfileArtifacts =
ListResourceProfileArtifactsResponse
request :: (Service -> Service)
-> ListResourceProfileArtifacts
-> Request ListResourceProfileArtifacts
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 ListResourceProfileArtifacts
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListResourceProfileArtifacts)))
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 [ResourceProfileArtifact]
-> Maybe Text -> Int -> ListResourceProfileArtifactsResponse
ListResourceProfileArtifactsResponse'
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
"artifacts" 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
ListResourceProfileArtifacts
where
hashWithSalt :: Int -> ListResourceProfileArtifacts -> Int
hashWithSalt Int
_salt ListResourceProfileArtifacts' {Maybe Text
Text
resourceArn :: Text
nextToken :: Maybe Text
$sel:resourceArn:ListResourceProfileArtifacts' :: ListResourceProfileArtifacts -> Text
$sel:nextToken:ListResourceProfileArtifacts' :: ListResourceProfileArtifacts -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
resourceArn
instance Prelude.NFData ListResourceProfileArtifacts where
rnf :: ListResourceProfileArtifacts -> ()
rnf ListResourceProfileArtifacts' {Maybe Text
Text
resourceArn :: Text
nextToken :: Maybe Text
$sel:resourceArn:ListResourceProfileArtifacts' :: ListResourceProfileArtifacts -> Text
$sel:nextToken:ListResourceProfileArtifacts' :: ListResourceProfileArtifacts -> 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 Text
resourceArn
instance Data.ToHeaders ListResourceProfileArtifacts where
toHeaders :: ListResourceProfileArtifacts -> 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 ListResourceProfileArtifacts where
toPath :: ListResourceProfileArtifacts -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/resource-profiles/artifacts"
instance Data.ToQuery ListResourceProfileArtifacts where
toQuery :: ListResourceProfileArtifacts -> QueryString
toQuery ListResourceProfileArtifacts' {Maybe Text
Text
resourceArn :: Text
nextToken :: Maybe Text
$sel:resourceArn:ListResourceProfileArtifacts' :: ListResourceProfileArtifacts -> Text
$sel:nextToken:ListResourceProfileArtifacts' :: ListResourceProfileArtifacts -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"nextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken,
ByteString
"resourceArn" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
resourceArn
]
data ListResourceProfileArtifactsResponse = ListResourceProfileArtifactsResponse'
{
ListResourceProfileArtifactsResponse
-> Maybe [ResourceProfileArtifact]
artifacts :: Prelude.Maybe [ResourceProfileArtifact],
ListResourceProfileArtifactsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListResourceProfileArtifactsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListResourceProfileArtifactsResponse
-> ListResourceProfileArtifactsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListResourceProfileArtifactsResponse
-> ListResourceProfileArtifactsResponse -> Bool
$c/= :: ListResourceProfileArtifactsResponse
-> ListResourceProfileArtifactsResponse -> Bool
== :: ListResourceProfileArtifactsResponse
-> ListResourceProfileArtifactsResponse -> Bool
$c== :: ListResourceProfileArtifactsResponse
-> ListResourceProfileArtifactsResponse -> Bool
Prelude.Eq, ReadPrec [ListResourceProfileArtifactsResponse]
ReadPrec ListResourceProfileArtifactsResponse
Int -> ReadS ListResourceProfileArtifactsResponse
ReadS [ListResourceProfileArtifactsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListResourceProfileArtifactsResponse]
$creadListPrec :: ReadPrec [ListResourceProfileArtifactsResponse]
readPrec :: ReadPrec ListResourceProfileArtifactsResponse
$creadPrec :: ReadPrec ListResourceProfileArtifactsResponse
readList :: ReadS [ListResourceProfileArtifactsResponse]
$creadList :: ReadS [ListResourceProfileArtifactsResponse]
readsPrec :: Int -> ReadS ListResourceProfileArtifactsResponse
$creadsPrec :: Int -> ReadS ListResourceProfileArtifactsResponse
Prelude.Read, Int -> ListResourceProfileArtifactsResponse -> ShowS
[ListResourceProfileArtifactsResponse] -> ShowS
ListResourceProfileArtifactsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListResourceProfileArtifactsResponse] -> ShowS
$cshowList :: [ListResourceProfileArtifactsResponse] -> ShowS
show :: ListResourceProfileArtifactsResponse -> String
$cshow :: ListResourceProfileArtifactsResponse -> String
showsPrec :: Int -> ListResourceProfileArtifactsResponse -> ShowS
$cshowsPrec :: Int -> ListResourceProfileArtifactsResponse -> ShowS
Prelude.Show, forall x.
Rep ListResourceProfileArtifactsResponse x
-> ListResourceProfileArtifactsResponse
forall x.
ListResourceProfileArtifactsResponse
-> Rep ListResourceProfileArtifactsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListResourceProfileArtifactsResponse x
-> ListResourceProfileArtifactsResponse
$cfrom :: forall x.
ListResourceProfileArtifactsResponse
-> Rep ListResourceProfileArtifactsResponse x
Prelude.Generic)
newListResourceProfileArtifactsResponse ::
Prelude.Int ->
ListResourceProfileArtifactsResponse
newListResourceProfileArtifactsResponse :: Int -> ListResourceProfileArtifactsResponse
newListResourceProfileArtifactsResponse Int
pHttpStatus_ =
ListResourceProfileArtifactsResponse'
{ $sel:artifacts:ListResourceProfileArtifactsResponse' :: Maybe [ResourceProfileArtifact]
artifacts =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListResourceProfileArtifactsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListResourceProfileArtifactsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listResourceProfileArtifactsResponse_artifacts :: Lens.Lens' ListResourceProfileArtifactsResponse (Prelude.Maybe [ResourceProfileArtifact])
listResourceProfileArtifactsResponse_artifacts :: Lens'
ListResourceProfileArtifactsResponse
(Maybe [ResourceProfileArtifact])
listResourceProfileArtifactsResponse_artifacts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceProfileArtifactsResponse' {Maybe [ResourceProfileArtifact]
artifacts :: Maybe [ResourceProfileArtifact]
$sel:artifacts:ListResourceProfileArtifactsResponse' :: ListResourceProfileArtifactsResponse
-> Maybe [ResourceProfileArtifact]
artifacts} -> Maybe [ResourceProfileArtifact]
artifacts) (\s :: ListResourceProfileArtifactsResponse
s@ListResourceProfileArtifactsResponse' {} Maybe [ResourceProfileArtifact]
a -> ListResourceProfileArtifactsResponse
s {$sel:artifacts:ListResourceProfileArtifactsResponse' :: Maybe [ResourceProfileArtifact]
artifacts = Maybe [ResourceProfileArtifact]
a} :: ListResourceProfileArtifactsResponse) 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
listResourceProfileArtifactsResponse_nextToken :: Lens.Lens' ListResourceProfileArtifactsResponse (Prelude.Maybe Prelude.Text)
listResourceProfileArtifactsResponse_nextToken :: Lens' ListResourceProfileArtifactsResponse (Maybe Text)
listResourceProfileArtifactsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceProfileArtifactsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListResourceProfileArtifactsResponse' :: ListResourceProfileArtifactsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListResourceProfileArtifactsResponse
s@ListResourceProfileArtifactsResponse' {} Maybe Text
a -> ListResourceProfileArtifactsResponse
s {$sel:nextToken:ListResourceProfileArtifactsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListResourceProfileArtifactsResponse)
listResourceProfileArtifactsResponse_httpStatus :: Lens.Lens' ListResourceProfileArtifactsResponse Prelude.Int
listResourceProfileArtifactsResponse_httpStatus :: Lens' ListResourceProfileArtifactsResponse Int
listResourceProfileArtifactsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResourceProfileArtifactsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListResourceProfileArtifactsResponse' :: ListResourceProfileArtifactsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListResourceProfileArtifactsResponse
s@ListResourceProfileArtifactsResponse' {} Int
a -> ListResourceProfileArtifactsResponse
s {$sel:httpStatus:ListResourceProfileArtifactsResponse' :: Int
httpStatus = Int
a} :: ListResourceProfileArtifactsResponse)
instance
Prelude.NFData
ListResourceProfileArtifactsResponse
where
rnf :: ListResourceProfileArtifactsResponse -> ()
rnf ListResourceProfileArtifactsResponse' {Int
Maybe [ResourceProfileArtifact]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
artifacts :: Maybe [ResourceProfileArtifact]
$sel:httpStatus:ListResourceProfileArtifactsResponse' :: ListResourceProfileArtifactsResponse -> Int
$sel:nextToken:ListResourceProfileArtifactsResponse' :: ListResourceProfileArtifactsResponse -> Maybe Text
$sel:artifacts:ListResourceProfileArtifactsResponse' :: ListResourceProfileArtifactsResponse
-> Maybe [ResourceProfileArtifact]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [ResourceProfileArtifact]
artifacts
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