{-# 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.SecurityLake.UpdateDatalakeExceptionsExpiry
(
UpdateDatalakeExceptionsExpiry (..),
newUpdateDatalakeExceptionsExpiry,
updateDatalakeExceptionsExpiry_exceptionMessageExpiry,
UpdateDatalakeExceptionsExpiryResponse (..),
newUpdateDatalakeExceptionsExpiryResponse,
updateDatalakeExceptionsExpiryResponse_httpStatus,
)
where
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
import Amazonka.SecurityLake.Types
data UpdateDatalakeExceptionsExpiry = UpdateDatalakeExceptionsExpiry'
{
UpdateDatalakeExceptionsExpiry -> Natural
exceptionMessageExpiry :: Prelude.Natural
}
deriving (UpdateDatalakeExceptionsExpiry
-> UpdateDatalakeExceptionsExpiry -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateDatalakeExceptionsExpiry
-> UpdateDatalakeExceptionsExpiry -> Bool
$c/= :: UpdateDatalakeExceptionsExpiry
-> UpdateDatalakeExceptionsExpiry -> Bool
== :: UpdateDatalakeExceptionsExpiry
-> UpdateDatalakeExceptionsExpiry -> Bool
$c== :: UpdateDatalakeExceptionsExpiry
-> UpdateDatalakeExceptionsExpiry -> Bool
Prelude.Eq, ReadPrec [UpdateDatalakeExceptionsExpiry]
ReadPrec UpdateDatalakeExceptionsExpiry
Int -> ReadS UpdateDatalakeExceptionsExpiry
ReadS [UpdateDatalakeExceptionsExpiry]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateDatalakeExceptionsExpiry]
$creadListPrec :: ReadPrec [UpdateDatalakeExceptionsExpiry]
readPrec :: ReadPrec UpdateDatalakeExceptionsExpiry
$creadPrec :: ReadPrec UpdateDatalakeExceptionsExpiry
readList :: ReadS [UpdateDatalakeExceptionsExpiry]
$creadList :: ReadS [UpdateDatalakeExceptionsExpiry]
readsPrec :: Int -> ReadS UpdateDatalakeExceptionsExpiry
$creadsPrec :: Int -> ReadS UpdateDatalakeExceptionsExpiry
Prelude.Read, Int -> UpdateDatalakeExceptionsExpiry -> ShowS
[UpdateDatalakeExceptionsExpiry] -> ShowS
UpdateDatalakeExceptionsExpiry -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateDatalakeExceptionsExpiry] -> ShowS
$cshowList :: [UpdateDatalakeExceptionsExpiry] -> ShowS
show :: UpdateDatalakeExceptionsExpiry -> String
$cshow :: UpdateDatalakeExceptionsExpiry -> String
showsPrec :: Int -> UpdateDatalakeExceptionsExpiry -> ShowS
$cshowsPrec :: Int -> UpdateDatalakeExceptionsExpiry -> ShowS
Prelude.Show, forall x.
Rep UpdateDatalakeExceptionsExpiry x
-> UpdateDatalakeExceptionsExpiry
forall x.
UpdateDatalakeExceptionsExpiry
-> Rep UpdateDatalakeExceptionsExpiry x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateDatalakeExceptionsExpiry x
-> UpdateDatalakeExceptionsExpiry
$cfrom :: forall x.
UpdateDatalakeExceptionsExpiry
-> Rep UpdateDatalakeExceptionsExpiry x
Prelude.Generic)
newUpdateDatalakeExceptionsExpiry ::
Prelude.Natural ->
UpdateDatalakeExceptionsExpiry
newUpdateDatalakeExceptionsExpiry :: Natural -> UpdateDatalakeExceptionsExpiry
newUpdateDatalakeExceptionsExpiry
Natural
pExceptionMessageExpiry_ =
UpdateDatalakeExceptionsExpiry'
{ $sel:exceptionMessageExpiry:UpdateDatalakeExceptionsExpiry' :: Natural
exceptionMessageExpiry =
Natural
pExceptionMessageExpiry_
}
updateDatalakeExceptionsExpiry_exceptionMessageExpiry :: Lens.Lens' UpdateDatalakeExceptionsExpiry Prelude.Natural
updateDatalakeExceptionsExpiry_exceptionMessageExpiry :: Lens' UpdateDatalakeExceptionsExpiry Natural
updateDatalakeExceptionsExpiry_exceptionMessageExpiry = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDatalakeExceptionsExpiry' {Natural
exceptionMessageExpiry :: Natural
$sel:exceptionMessageExpiry:UpdateDatalakeExceptionsExpiry' :: UpdateDatalakeExceptionsExpiry -> Natural
exceptionMessageExpiry} -> Natural
exceptionMessageExpiry) (\s :: UpdateDatalakeExceptionsExpiry
s@UpdateDatalakeExceptionsExpiry' {} Natural
a -> UpdateDatalakeExceptionsExpiry
s {$sel:exceptionMessageExpiry:UpdateDatalakeExceptionsExpiry' :: Natural
exceptionMessageExpiry = Natural
a} :: UpdateDatalakeExceptionsExpiry)
instance
Core.AWSRequest
UpdateDatalakeExceptionsExpiry
where
type
AWSResponse UpdateDatalakeExceptionsExpiry =
UpdateDatalakeExceptionsExpiryResponse
request :: (Service -> Service)
-> UpdateDatalakeExceptionsExpiry
-> Request UpdateDatalakeExceptionsExpiry
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdateDatalakeExceptionsExpiry
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse UpdateDatalakeExceptionsExpiry)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> UpdateDatalakeExceptionsExpiryResponse
UpdateDatalakeExceptionsExpiryResponse'
forall (f :: * -> *) a b. Functor 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
UpdateDatalakeExceptionsExpiry
where
hashWithSalt :: Int -> UpdateDatalakeExceptionsExpiry -> Int
hashWithSalt
Int
_salt
UpdateDatalakeExceptionsExpiry' {Natural
exceptionMessageExpiry :: Natural
$sel:exceptionMessageExpiry:UpdateDatalakeExceptionsExpiry' :: UpdateDatalakeExceptionsExpiry -> Natural
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Natural
exceptionMessageExpiry
instance
Prelude.NFData
UpdateDatalakeExceptionsExpiry
where
rnf :: UpdateDatalakeExceptionsExpiry -> ()
rnf UpdateDatalakeExceptionsExpiry' {Natural
exceptionMessageExpiry :: Natural
$sel:exceptionMessageExpiry:UpdateDatalakeExceptionsExpiry' :: UpdateDatalakeExceptionsExpiry -> Natural
..} =
forall a. NFData a => a -> ()
Prelude.rnf Natural
exceptionMessageExpiry
instance
Data.ToHeaders
UpdateDatalakeExceptionsExpiry
where
toHeaders :: UpdateDatalakeExceptionsExpiry -> 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 UpdateDatalakeExceptionsExpiry where
toJSON :: UpdateDatalakeExceptionsExpiry -> Value
toJSON UpdateDatalakeExceptionsExpiry' {Natural
exceptionMessageExpiry :: Natural
$sel:exceptionMessageExpiry:UpdateDatalakeExceptionsExpiry' :: UpdateDatalakeExceptionsExpiry -> Natural
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"exceptionMessageExpiry"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Natural
exceptionMessageExpiry
)
]
)
instance Data.ToPath UpdateDatalakeExceptionsExpiry where
toPath :: UpdateDatalakeExceptionsExpiry -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const ByteString
"/v1/datalake/exceptions/expiry"
instance Data.ToQuery UpdateDatalakeExceptionsExpiry where
toQuery :: UpdateDatalakeExceptionsExpiry -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateDatalakeExceptionsExpiryResponse = UpdateDatalakeExceptionsExpiryResponse'
{
UpdateDatalakeExceptionsExpiryResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateDatalakeExceptionsExpiryResponse
-> UpdateDatalakeExceptionsExpiryResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateDatalakeExceptionsExpiryResponse
-> UpdateDatalakeExceptionsExpiryResponse -> Bool
$c/= :: UpdateDatalakeExceptionsExpiryResponse
-> UpdateDatalakeExceptionsExpiryResponse -> Bool
== :: UpdateDatalakeExceptionsExpiryResponse
-> UpdateDatalakeExceptionsExpiryResponse -> Bool
$c== :: UpdateDatalakeExceptionsExpiryResponse
-> UpdateDatalakeExceptionsExpiryResponse -> Bool
Prelude.Eq, ReadPrec [UpdateDatalakeExceptionsExpiryResponse]
ReadPrec UpdateDatalakeExceptionsExpiryResponse
Int -> ReadS UpdateDatalakeExceptionsExpiryResponse
ReadS [UpdateDatalakeExceptionsExpiryResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateDatalakeExceptionsExpiryResponse]
$creadListPrec :: ReadPrec [UpdateDatalakeExceptionsExpiryResponse]
readPrec :: ReadPrec UpdateDatalakeExceptionsExpiryResponse
$creadPrec :: ReadPrec UpdateDatalakeExceptionsExpiryResponse
readList :: ReadS [UpdateDatalakeExceptionsExpiryResponse]
$creadList :: ReadS [UpdateDatalakeExceptionsExpiryResponse]
readsPrec :: Int -> ReadS UpdateDatalakeExceptionsExpiryResponse
$creadsPrec :: Int -> ReadS UpdateDatalakeExceptionsExpiryResponse
Prelude.Read, Int -> UpdateDatalakeExceptionsExpiryResponse -> ShowS
[UpdateDatalakeExceptionsExpiryResponse] -> ShowS
UpdateDatalakeExceptionsExpiryResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateDatalakeExceptionsExpiryResponse] -> ShowS
$cshowList :: [UpdateDatalakeExceptionsExpiryResponse] -> ShowS
show :: UpdateDatalakeExceptionsExpiryResponse -> String
$cshow :: UpdateDatalakeExceptionsExpiryResponse -> String
showsPrec :: Int -> UpdateDatalakeExceptionsExpiryResponse -> ShowS
$cshowsPrec :: Int -> UpdateDatalakeExceptionsExpiryResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateDatalakeExceptionsExpiryResponse x
-> UpdateDatalakeExceptionsExpiryResponse
forall x.
UpdateDatalakeExceptionsExpiryResponse
-> Rep UpdateDatalakeExceptionsExpiryResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateDatalakeExceptionsExpiryResponse x
-> UpdateDatalakeExceptionsExpiryResponse
$cfrom :: forall x.
UpdateDatalakeExceptionsExpiryResponse
-> Rep UpdateDatalakeExceptionsExpiryResponse x
Prelude.Generic)
newUpdateDatalakeExceptionsExpiryResponse ::
Prelude.Int ->
UpdateDatalakeExceptionsExpiryResponse
newUpdateDatalakeExceptionsExpiryResponse :: Int -> UpdateDatalakeExceptionsExpiryResponse
newUpdateDatalakeExceptionsExpiryResponse
Int
pHttpStatus_ =
UpdateDatalakeExceptionsExpiryResponse'
{ $sel:httpStatus:UpdateDatalakeExceptionsExpiryResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
updateDatalakeExceptionsExpiryResponse_httpStatus :: Lens.Lens' UpdateDatalakeExceptionsExpiryResponse Prelude.Int
updateDatalakeExceptionsExpiryResponse_httpStatus :: Lens' UpdateDatalakeExceptionsExpiryResponse Int
updateDatalakeExceptionsExpiryResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDatalakeExceptionsExpiryResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateDatalakeExceptionsExpiryResponse' :: UpdateDatalakeExceptionsExpiryResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateDatalakeExceptionsExpiryResponse
s@UpdateDatalakeExceptionsExpiryResponse' {} Int
a -> UpdateDatalakeExceptionsExpiryResponse
s {$sel:httpStatus:UpdateDatalakeExceptionsExpiryResponse' :: Int
httpStatus = Int
a} :: UpdateDatalakeExceptionsExpiryResponse)
instance
Prelude.NFData
UpdateDatalakeExceptionsExpiryResponse
where
rnf :: UpdateDatalakeExceptionsExpiryResponse -> ()
rnf UpdateDatalakeExceptionsExpiryResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateDatalakeExceptionsExpiryResponse' :: UpdateDatalakeExceptionsExpiryResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus