{-# 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.GetSensitiveDataOccurrencesAvailability
(
GetSensitiveDataOccurrencesAvailability (..),
newGetSensitiveDataOccurrencesAvailability,
getSensitiveDataOccurrencesAvailability_findingId,
GetSensitiveDataOccurrencesAvailabilityResponse (..),
newGetSensitiveDataOccurrencesAvailabilityResponse,
getSensitiveDataOccurrencesAvailabilityResponse_code,
getSensitiveDataOccurrencesAvailabilityResponse_reasons,
getSensitiveDataOccurrencesAvailabilityResponse_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 GetSensitiveDataOccurrencesAvailability = GetSensitiveDataOccurrencesAvailability'
{
GetSensitiveDataOccurrencesAvailability -> Text
findingId :: Prelude.Text
}
deriving (GetSensitiveDataOccurrencesAvailability
-> GetSensitiveDataOccurrencesAvailability -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSensitiveDataOccurrencesAvailability
-> GetSensitiveDataOccurrencesAvailability -> Bool
$c/= :: GetSensitiveDataOccurrencesAvailability
-> GetSensitiveDataOccurrencesAvailability -> Bool
== :: GetSensitiveDataOccurrencesAvailability
-> GetSensitiveDataOccurrencesAvailability -> Bool
$c== :: GetSensitiveDataOccurrencesAvailability
-> GetSensitiveDataOccurrencesAvailability -> Bool
Prelude.Eq, ReadPrec [GetSensitiveDataOccurrencesAvailability]
ReadPrec GetSensitiveDataOccurrencesAvailability
Int -> ReadS GetSensitiveDataOccurrencesAvailability
ReadS [GetSensitiveDataOccurrencesAvailability]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSensitiveDataOccurrencesAvailability]
$creadListPrec :: ReadPrec [GetSensitiveDataOccurrencesAvailability]
readPrec :: ReadPrec GetSensitiveDataOccurrencesAvailability
$creadPrec :: ReadPrec GetSensitiveDataOccurrencesAvailability
readList :: ReadS [GetSensitiveDataOccurrencesAvailability]
$creadList :: ReadS [GetSensitiveDataOccurrencesAvailability]
readsPrec :: Int -> ReadS GetSensitiveDataOccurrencesAvailability
$creadsPrec :: Int -> ReadS GetSensitiveDataOccurrencesAvailability
Prelude.Read, Int -> GetSensitiveDataOccurrencesAvailability -> ShowS
[GetSensitiveDataOccurrencesAvailability] -> ShowS
GetSensitiveDataOccurrencesAvailability -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSensitiveDataOccurrencesAvailability] -> ShowS
$cshowList :: [GetSensitiveDataOccurrencesAvailability] -> ShowS
show :: GetSensitiveDataOccurrencesAvailability -> String
$cshow :: GetSensitiveDataOccurrencesAvailability -> String
showsPrec :: Int -> GetSensitiveDataOccurrencesAvailability -> ShowS
$cshowsPrec :: Int -> GetSensitiveDataOccurrencesAvailability -> ShowS
Prelude.Show, forall x.
Rep GetSensitiveDataOccurrencesAvailability x
-> GetSensitiveDataOccurrencesAvailability
forall x.
GetSensitiveDataOccurrencesAvailability
-> Rep GetSensitiveDataOccurrencesAvailability x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetSensitiveDataOccurrencesAvailability x
-> GetSensitiveDataOccurrencesAvailability
$cfrom :: forall x.
GetSensitiveDataOccurrencesAvailability
-> Rep GetSensitiveDataOccurrencesAvailability x
Prelude.Generic)
newGetSensitiveDataOccurrencesAvailability ::
Prelude.Text ->
GetSensitiveDataOccurrencesAvailability
newGetSensitiveDataOccurrencesAvailability :: Text -> GetSensitiveDataOccurrencesAvailability
newGetSensitiveDataOccurrencesAvailability
Text
pFindingId_ =
GetSensitiveDataOccurrencesAvailability'
{ $sel:findingId:GetSensitiveDataOccurrencesAvailability' :: Text
findingId =
Text
pFindingId_
}
getSensitiveDataOccurrencesAvailability_findingId :: Lens.Lens' GetSensitiveDataOccurrencesAvailability Prelude.Text
getSensitiveDataOccurrencesAvailability_findingId :: Lens' GetSensitiveDataOccurrencesAvailability Text
getSensitiveDataOccurrencesAvailability_findingId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSensitiveDataOccurrencesAvailability' {Text
findingId :: Text
$sel:findingId:GetSensitiveDataOccurrencesAvailability' :: GetSensitiveDataOccurrencesAvailability -> Text
findingId} -> Text
findingId) (\s :: GetSensitiveDataOccurrencesAvailability
s@GetSensitiveDataOccurrencesAvailability' {} Text
a -> GetSensitiveDataOccurrencesAvailability
s {$sel:findingId:GetSensitiveDataOccurrencesAvailability' :: Text
findingId = Text
a} :: GetSensitiveDataOccurrencesAvailability)
instance
Core.AWSRequest
GetSensitiveDataOccurrencesAvailability
where
type
AWSResponse
GetSensitiveDataOccurrencesAvailability =
GetSensitiveDataOccurrencesAvailabilityResponse
request :: (Service -> Service)
-> GetSensitiveDataOccurrencesAvailability
-> Request GetSensitiveDataOccurrencesAvailability
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 GetSensitiveDataOccurrencesAvailability
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse GetSensitiveDataOccurrencesAvailability)))
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 AvailabilityCode
-> Maybe [UnavailabilityReasonCode]
-> Int
-> GetSensitiveDataOccurrencesAvailabilityResponse
GetSensitiveDataOccurrencesAvailabilityResponse'
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
"code")
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
"reasons" 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
GetSensitiveDataOccurrencesAvailability
where
hashWithSalt :: Int -> GetSensitiveDataOccurrencesAvailability -> Int
hashWithSalt
Int
_salt
GetSensitiveDataOccurrencesAvailability' {Text
findingId :: Text
$sel:findingId:GetSensitiveDataOccurrencesAvailability' :: GetSensitiveDataOccurrencesAvailability -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
findingId
instance
Prelude.NFData
GetSensitiveDataOccurrencesAvailability
where
rnf :: GetSensitiveDataOccurrencesAvailability -> ()
rnf GetSensitiveDataOccurrencesAvailability' {Text
findingId :: Text
$sel:findingId:GetSensitiveDataOccurrencesAvailability' :: GetSensitiveDataOccurrencesAvailability -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
findingId
instance
Data.ToHeaders
GetSensitiveDataOccurrencesAvailability
where
toHeaders :: GetSensitiveDataOccurrencesAvailability -> 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
GetSensitiveDataOccurrencesAvailability
where
toPath :: GetSensitiveDataOccurrencesAvailability -> ByteString
toPath GetSensitiveDataOccurrencesAvailability' {Text
findingId :: Text
$sel:findingId:GetSensitiveDataOccurrencesAvailability' :: GetSensitiveDataOccurrencesAvailability -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/findings/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
findingId,
ByteString
"/reveal/availability"
]
instance
Data.ToQuery
GetSensitiveDataOccurrencesAvailability
where
toQuery :: GetSensitiveDataOccurrencesAvailability -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetSensitiveDataOccurrencesAvailabilityResponse = GetSensitiveDataOccurrencesAvailabilityResponse'
{
GetSensitiveDataOccurrencesAvailabilityResponse
-> Maybe AvailabilityCode
code :: Prelude.Maybe AvailabilityCode,
GetSensitiveDataOccurrencesAvailabilityResponse
-> Maybe [UnavailabilityReasonCode]
reasons :: Prelude.Maybe [UnavailabilityReasonCode],
GetSensitiveDataOccurrencesAvailabilityResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetSensitiveDataOccurrencesAvailabilityResponse
-> GetSensitiveDataOccurrencesAvailabilityResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSensitiveDataOccurrencesAvailabilityResponse
-> GetSensitiveDataOccurrencesAvailabilityResponse -> Bool
$c/= :: GetSensitiveDataOccurrencesAvailabilityResponse
-> GetSensitiveDataOccurrencesAvailabilityResponse -> Bool
== :: GetSensitiveDataOccurrencesAvailabilityResponse
-> GetSensitiveDataOccurrencesAvailabilityResponse -> Bool
$c== :: GetSensitiveDataOccurrencesAvailabilityResponse
-> GetSensitiveDataOccurrencesAvailabilityResponse -> Bool
Prelude.Eq, ReadPrec [GetSensitiveDataOccurrencesAvailabilityResponse]
ReadPrec GetSensitiveDataOccurrencesAvailabilityResponse
Int -> ReadS GetSensitiveDataOccurrencesAvailabilityResponse
ReadS [GetSensitiveDataOccurrencesAvailabilityResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSensitiveDataOccurrencesAvailabilityResponse]
$creadListPrec :: ReadPrec [GetSensitiveDataOccurrencesAvailabilityResponse]
readPrec :: ReadPrec GetSensitiveDataOccurrencesAvailabilityResponse
$creadPrec :: ReadPrec GetSensitiveDataOccurrencesAvailabilityResponse
readList :: ReadS [GetSensitiveDataOccurrencesAvailabilityResponse]
$creadList :: ReadS [GetSensitiveDataOccurrencesAvailabilityResponse]
readsPrec :: Int -> ReadS GetSensitiveDataOccurrencesAvailabilityResponse
$creadsPrec :: Int -> ReadS GetSensitiveDataOccurrencesAvailabilityResponse
Prelude.Read, Int -> GetSensitiveDataOccurrencesAvailabilityResponse -> ShowS
[GetSensitiveDataOccurrencesAvailabilityResponse] -> ShowS
GetSensitiveDataOccurrencesAvailabilityResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSensitiveDataOccurrencesAvailabilityResponse] -> ShowS
$cshowList :: [GetSensitiveDataOccurrencesAvailabilityResponse] -> ShowS
show :: GetSensitiveDataOccurrencesAvailabilityResponse -> String
$cshow :: GetSensitiveDataOccurrencesAvailabilityResponse -> String
showsPrec :: Int -> GetSensitiveDataOccurrencesAvailabilityResponse -> ShowS
$cshowsPrec :: Int -> GetSensitiveDataOccurrencesAvailabilityResponse -> ShowS
Prelude.Show, forall x.
Rep GetSensitiveDataOccurrencesAvailabilityResponse x
-> GetSensitiveDataOccurrencesAvailabilityResponse
forall x.
GetSensitiveDataOccurrencesAvailabilityResponse
-> Rep GetSensitiveDataOccurrencesAvailabilityResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetSensitiveDataOccurrencesAvailabilityResponse x
-> GetSensitiveDataOccurrencesAvailabilityResponse
$cfrom :: forall x.
GetSensitiveDataOccurrencesAvailabilityResponse
-> Rep GetSensitiveDataOccurrencesAvailabilityResponse x
Prelude.Generic)
newGetSensitiveDataOccurrencesAvailabilityResponse ::
Prelude.Int ->
GetSensitiveDataOccurrencesAvailabilityResponse
newGetSensitiveDataOccurrencesAvailabilityResponse :: Int -> GetSensitiveDataOccurrencesAvailabilityResponse
newGetSensitiveDataOccurrencesAvailabilityResponse
Int
pHttpStatus_ =
GetSensitiveDataOccurrencesAvailabilityResponse'
{ $sel:code:GetSensitiveDataOccurrencesAvailabilityResponse' :: Maybe AvailabilityCode
code =
forall a. Maybe a
Prelude.Nothing,
$sel:reasons:GetSensitiveDataOccurrencesAvailabilityResponse' :: Maybe [UnavailabilityReasonCode]
reasons = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetSensitiveDataOccurrencesAvailabilityResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getSensitiveDataOccurrencesAvailabilityResponse_code :: Lens.Lens' GetSensitiveDataOccurrencesAvailabilityResponse (Prelude.Maybe AvailabilityCode)
getSensitiveDataOccurrencesAvailabilityResponse_code :: Lens'
GetSensitiveDataOccurrencesAvailabilityResponse
(Maybe AvailabilityCode)
getSensitiveDataOccurrencesAvailabilityResponse_code = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSensitiveDataOccurrencesAvailabilityResponse' {Maybe AvailabilityCode
code :: Maybe AvailabilityCode
$sel:code:GetSensitiveDataOccurrencesAvailabilityResponse' :: GetSensitiveDataOccurrencesAvailabilityResponse
-> Maybe AvailabilityCode
code} -> Maybe AvailabilityCode
code) (\s :: GetSensitiveDataOccurrencesAvailabilityResponse
s@GetSensitiveDataOccurrencesAvailabilityResponse' {} Maybe AvailabilityCode
a -> GetSensitiveDataOccurrencesAvailabilityResponse
s {$sel:code:GetSensitiveDataOccurrencesAvailabilityResponse' :: Maybe AvailabilityCode
code = Maybe AvailabilityCode
a} :: GetSensitiveDataOccurrencesAvailabilityResponse)
getSensitiveDataOccurrencesAvailabilityResponse_reasons :: Lens.Lens' GetSensitiveDataOccurrencesAvailabilityResponse (Prelude.Maybe [UnavailabilityReasonCode])
getSensitiveDataOccurrencesAvailabilityResponse_reasons :: Lens'
GetSensitiveDataOccurrencesAvailabilityResponse
(Maybe [UnavailabilityReasonCode])
getSensitiveDataOccurrencesAvailabilityResponse_reasons = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSensitiveDataOccurrencesAvailabilityResponse' {Maybe [UnavailabilityReasonCode]
reasons :: Maybe [UnavailabilityReasonCode]
$sel:reasons:GetSensitiveDataOccurrencesAvailabilityResponse' :: GetSensitiveDataOccurrencesAvailabilityResponse
-> Maybe [UnavailabilityReasonCode]
reasons} -> Maybe [UnavailabilityReasonCode]
reasons) (\s :: GetSensitiveDataOccurrencesAvailabilityResponse
s@GetSensitiveDataOccurrencesAvailabilityResponse' {} Maybe [UnavailabilityReasonCode]
a -> GetSensitiveDataOccurrencesAvailabilityResponse
s {$sel:reasons:GetSensitiveDataOccurrencesAvailabilityResponse' :: Maybe [UnavailabilityReasonCode]
reasons = Maybe [UnavailabilityReasonCode]
a} :: GetSensitiveDataOccurrencesAvailabilityResponse) 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
getSensitiveDataOccurrencesAvailabilityResponse_httpStatus :: Lens.Lens' GetSensitiveDataOccurrencesAvailabilityResponse Prelude.Int
getSensitiveDataOccurrencesAvailabilityResponse_httpStatus :: Lens' GetSensitiveDataOccurrencesAvailabilityResponse Int
getSensitiveDataOccurrencesAvailabilityResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSensitiveDataOccurrencesAvailabilityResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetSensitiveDataOccurrencesAvailabilityResponse' :: GetSensitiveDataOccurrencesAvailabilityResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetSensitiveDataOccurrencesAvailabilityResponse
s@GetSensitiveDataOccurrencesAvailabilityResponse' {} Int
a -> GetSensitiveDataOccurrencesAvailabilityResponse
s {$sel:httpStatus:GetSensitiveDataOccurrencesAvailabilityResponse' :: Int
httpStatus = Int
a} :: GetSensitiveDataOccurrencesAvailabilityResponse)
instance
Prelude.NFData
GetSensitiveDataOccurrencesAvailabilityResponse
where
rnf :: GetSensitiveDataOccurrencesAvailabilityResponse -> ()
rnf
GetSensitiveDataOccurrencesAvailabilityResponse' {Int
Maybe [UnavailabilityReasonCode]
Maybe AvailabilityCode
httpStatus :: Int
reasons :: Maybe [UnavailabilityReasonCode]
code :: Maybe AvailabilityCode
$sel:httpStatus:GetSensitiveDataOccurrencesAvailabilityResponse' :: GetSensitiveDataOccurrencesAvailabilityResponse -> Int
$sel:reasons:GetSensitiveDataOccurrencesAvailabilityResponse' :: GetSensitiveDataOccurrencesAvailabilityResponse
-> Maybe [UnavailabilityReasonCode]
$sel:code:GetSensitiveDataOccurrencesAvailabilityResponse' :: GetSensitiveDataOccurrencesAvailabilityResponse
-> Maybe AvailabilityCode
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AvailabilityCode
code
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [UnavailabilityReasonCode]
reasons
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus