{-# 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.FraudDetector.UpdateDetectorVersionMetadata
(
UpdateDetectorVersionMetadata (..),
newUpdateDetectorVersionMetadata,
updateDetectorVersionMetadata_detectorId,
updateDetectorVersionMetadata_detectorVersionId,
updateDetectorVersionMetadata_description,
UpdateDetectorVersionMetadataResponse (..),
newUpdateDetectorVersionMetadataResponse,
updateDetectorVersionMetadataResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.FraudDetector.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateDetectorVersionMetadata = UpdateDetectorVersionMetadata'
{
UpdateDetectorVersionMetadata -> Text
detectorId :: Prelude.Text,
UpdateDetectorVersionMetadata -> Text
detectorVersionId :: Prelude.Text,
UpdateDetectorVersionMetadata -> Text
description :: Prelude.Text
}
deriving (UpdateDetectorVersionMetadata
-> UpdateDetectorVersionMetadata -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateDetectorVersionMetadata
-> UpdateDetectorVersionMetadata -> Bool
$c/= :: UpdateDetectorVersionMetadata
-> UpdateDetectorVersionMetadata -> Bool
== :: UpdateDetectorVersionMetadata
-> UpdateDetectorVersionMetadata -> Bool
$c== :: UpdateDetectorVersionMetadata
-> UpdateDetectorVersionMetadata -> Bool
Prelude.Eq, ReadPrec [UpdateDetectorVersionMetadata]
ReadPrec UpdateDetectorVersionMetadata
Int -> ReadS UpdateDetectorVersionMetadata
ReadS [UpdateDetectorVersionMetadata]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateDetectorVersionMetadata]
$creadListPrec :: ReadPrec [UpdateDetectorVersionMetadata]
readPrec :: ReadPrec UpdateDetectorVersionMetadata
$creadPrec :: ReadPrec UpdateDetectorVersionMetadata
readList :: ReadS [UpdateDetectorVersionMetadata]
$creadList :: ReadS [UpdateDetectorVersionMetadata]
readsPrec :: Int -> ReadS UpdateDetectorVersionMetadata
$creadsPrec :: Int -> ReadS UpdateDetectorVersionMetadata
Prelude.Read, Int -> UpdateDetectorVersionMetadata -> ShowS
[UpdateDetectorVersionMetadata] -> ShowS
UpdateDetectorVersionMetadata -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateDetectorVersionMetadata] -> ShowS
$cshowList :: [UpdateDetectorVersionMetadata] -> ShowS
show :: UpdateDetectorVersionMetadata -> String
$cshow :: UpdateDetectorVersionMetadata -> String
showsPrec :: Int -> UpdateDetectorVersionMetadata -> ShowS
$cshowsPrec :: Int -> UpdateDetectorVersionMetadata -> ShowS
Prelude.Show, forall x.
Rep UpdateDetectorVersionMetadata x
-> UpdateDetectorVersionMetadata
forall x.
UpdateDetectorVersionMetadata
-> Rep UpdateDetectorVersionMetadata x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateDetectorVersionMetadata x
-> UpdateDetectorVersionMetadata
$cfrom :: forall x.
UpdateDetectorVersionMetadata
-> Rep UpdateDetectorVersionMetadata x
Prelude.Generic)
newUpdateDetectorVersionMetadata ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
UpdateDetectorVersionMetadata
newUpdateDetectorVersionMetadata :: Text -> Text -> Text -> UpdateDetectorVersionMetadata
newUpdateDetectorVersionMetadata
Text
pDetectorId_
Text
pDetectorVersionId_
Text
pDescription_ =
UpdateDetectorVersionMetadata'
{ $sel:detectorId:UpdateDetectorVersionMetadata' :: Text
detectorId =
Text
pDetectorId_,
$sel:detectorVersionId:UpdateDetectorVersionMetadata' :: Text
detectorVersionId = Text
pDetectorVersionId_,
$sel:description:UpdateDetectorVersionMetadata' :: Text
description = Text
pDescription_
}
updateDetectorVersionMetadata_detectorId :: Lens.Lens' UpdateDetectorVersionMetadata Prelude.Text
updateDetectorVersionMetadata_detectorId :: Lens' UpdateDetectorVersionMetadata Text
updateDetectorVersionMetadata_detectorId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDetectorVersionMetadata' {Text
detectorId :: Text
$sel:detectorId:UpdateDetectorVersionMetadata' :: UpdateDetectorVersionMetadata -> Text
detectorId} -> Text
detectorId) (\s :: UpdateDetectorVersionMetadata
s@UpdateDetectorVersionMetadata' {} Text
a -> UpdateDetectorVersionMetadata
s {$sel:detectorId:UpdateDetectorVersionMetadata' :: Text
detectorId = Text
a} :: UpdateDetectorVersionMetadata)
updateDetectorVersionMetadata_detectorVersionId :: Lens.Lens' UpdateDetectorVersionMetadata Prelude.Text
updateDetectorVersionMetadata_detectorVersionId :: Lens' UpdateDetectorVersionMetadata Text
updateDetectorVersionMetadata_detectorVersionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDetectorVersionMetadata' {Text
detectorVersionId :: Text
$sel:detectorVersionId:UpdateDetectorVersionMetadata' :: UpdateDetectorVersionMetadata -> Text
detectorVersionId} -> Text
detectorVersionId) (\s :: UpdateDetectorVersionMetadata
s@UpdateDetectorVersionMetadata' {} Text
a -> UpdateDetectorVersionMetadata
s {$sel:detectorVersionId:UpdateDetectorVersionMetadata' :: Text
detectorVersionId = Text
a} :: UpdateDetectorVersionMetadata)
updateDetectorVersionMetadata_description :: Lens.Lens' UpdateDetectorVersionMetadata Prelude.Text
updateDetectorVersionMetadata_description :: Lens' UpdateDetectorVersionMetadata Text
updateDetectorVersionMetadata_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDetectorVersionMetadata' {Text
description :: Text
$sel:description:UpdateDetectorVersionMetadata' :: UpdateDetectorVersionMetadata -> Text
description} -> Text
description) (\s :: UpdateDetectorVersionMetadata
s@UpdateDetectorVersionMetadata' {} Text
a -> UpdateDetectorVersionMetadata
s {$sel:description:UpdateDetectorVersionMetadata' :: Text
description = Text
a} :: UpdateDetectorVersionMetadata)
instance
Core.AWSRequest
UpdateDetectorVersionMetadata
where
type
AWSResponse UpdateDetectorVersionMetadata =
UpdateDetectorVersionMetadataResponse
request :: (Service -> Service)
-> UpdateDetectorVersionMetadata
-> Request UpdateDetectorVersionMetadata
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 UpdateDetectorVersionMetadata
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateDetectorVersionMetadata)))
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 -> UpdateDetectorVersionMetadataResponse
UpdateDetectorVersionMetadataResponse'
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
UpdateDetectorVersionMetadata
where
hashWithSalt :: Int -> UpdateDetectorVersionMetadata -> Int
hashWithSalt Int
_salt UpdateDetectorVersionMetadata' {Text
description :: Text
detectorVersionId :: Text
detectorId :: Text
$sel:description:UpdateDetectorVersionMetadata' :: UpdateDetectorVersionMetadata -> Text
$sel:detectorVersionId:UpdateDetectorVersionMetadata' :: UpdateDetectorVersionMetadata -> Text
$sel:detectorId:UpdateDetectorVersionMetadata' :: UpdateDetectorVersionMetadata -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
detectorId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
detectorVersionId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
description
instance Prelude.NFData UpdateDetectorVersionMetadata where
rnf :: UpdateDetectorVersionMetadata -> ()
rnf UpdateDetectorVersionMetadata' {Text
description :: Text
detectorVersionId :: Text
detectorId :: Text
$sel:description:UpdateDetectorVersionMetadata' :: UpdateDetectorVersionMetadata -> Text
$sel:detectorVersionId:UpdateDetectorVersionMetadata' :: UpdateDetectorVersionMetadata -> Text
$sel:detectorId:UpdateDetectorVersionMetadata' :: UpdateDetectorVersionMetadata -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
detectorId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
detectorVersionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
description
instance Data.ToHeaders UpdateDetectorVersionMetadata where
toHeaders :: UpdateDetectorVersionMetadata -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"AWSHawksNestServiceFacade.UpdateDetectorVersionMetadata" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdateDetectorVersionMetadata where
toJSON :: UpdateDetectorVersionMetadata -> Value
toJSON UpdateDetectorVersionMetadata' {Text
description :: Text
detectorVersionId :: Text
detectorId :: Text
$sel:description:UpdateDetectorVersionMetadata' :: UpdateDetectorVersionMetadata -> Text
$sel:detectorVersionId:UpdateDetectorVersionMetadata' :: UpdateDetectorVersionMetadata -> Text
$sel:detectorId:UpdateDetectorVersionMetadata' :: UpdateDetectorVersionMetadata -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"detectorId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
detectorId),
forall a. a -> Maybe a
Prelude.Just
(Key
"detectorVersionId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
detectorVersionId),
forall a. a -> Maybe a
Prelude.Just (Key
"description" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
description)
]
)
instance Data.ToPath UpdateDetectorVersionMetadata where
toPath :: UpdateDetectorVersionMetadata -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdateDetectorVersionMetadata where
toQuery :: UpdateDetectorVersionMetadata -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateDetectorVersionMetadataResponse = UpdateDetectorVersionMetadataResponse'
{
UpdateDetectorVersionMetadataResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateDetectorVersionMetadataResponse
-> UpdateDetectorVersionMetadataResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateDetectorVersionMetadataResponse
-> UpdateDetectorVersionMetadataResponse -> Bool
$c/= :: UpdateDetectorVersionMetadataResponse
-> UpdateDetectorVersionMetadataResponse -> Bool
== :: UpdateDetectorVersionMetadataResponse
-> UpdateDetectorVersionMetadataResponse -> Bool
$c== :: UpdateDetectorVersionMetadataResponse
-> UpdateDetectorVersionMetadataResponse -> Bool
Prelude.Eq, ReadPrec [UpdateDetectorVersionMetadataResponse]
ReadPrec UpdateDetectorVersionMetadataResponse
Int -> ReadS UpdateDetectorVersionMetadataResponse
ReadS [UpdateDetectorVersionMetadataResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateDetectorVersionMetadataResponse]
$creadListPrec :: ReadPrec [UpdateDetectorVersionMetadataResponse]
readPrec :: ReadPrec UpdateDetectorVersionMetadataResponse
$creadPrec :: ReadPrec UpdateDetectorVersionMetadataResponse
readList :: ReadS [UpdateDetectorVersionMetadataResponse]
$creadList :: ReadS [UpdateDetectorVersionMetadataResponse]
readsPrec :: Int -> ReadS UpdateDetectorVersionMetadataResponse
$creadsPrec :: Int -> ReadS UpdateDetectorVersionMetadataResponse
Prelude.Read, Int -> UpdateDetectorVersionMetadataResponse -> ShowS
[UpdateDetectorVersionMetadataResponse] -> ShowS
UpdateDetectorVersionMetadataResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateDetectorVersionMetadataResponse] -> ShowS
$cshowList :: [UpdateDetectorVersionMetadataResponse] -> ShowS
show :: UpdateDetectorVersionMetadataResponse -> String
$cshow :: UpdateDetectorVersionMetadataResponse -> String
showsPrec :: Int -> UpdateDetectorVersionMetadataResponse -> ShowS
$cshowsPrec :: Int -> UpdateDetectorVersionMetadataResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateDetectorVersionMetadataResponse x
-> UpdateDetectorVersionMetadataResponse
forall x.
UpdateDetectorVersionMetadataResponse
-> Rep UpdateDetectorVersionMetadataResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateDetectorVersionMetadataResponse x
-> UpdateDetectorVersionMetadataResponse
$cfrom :: forall x.
UpdateDetectorVersionMetadataResponse
-> Rep UpdateDetectorVersionMetadataResponse x
Prelude.Generic)
newUpdateDetectorVersionMetadataResponse ::
Prelude.Int ->
UpdateDetectorVersionMetadataResponse
newUpdateDetectorVersionMetadataResponse :: Int -> UpdateDetectorVersionMetadataResponse
newUpdateDetectorVersionMetadataResponse Int
pHttpStatus_ =
UpdateDetectorVersionMetadataResponse'
{ $sel:httpStatus:UpdateDetectorVersionMetadataResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
updateDetectorVersionMetadataResponse_httpStatus :: Lens.Lens' UpdateDetectorVersionMetadataResponse Prelude.Int
updateDetectorVersionMetadataResponse_httpStatus :: Lens' UpdateDetectorVersionMetadataResponse Int
updateDetectorVersionMetadataResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDetectorVersionMetadataResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateDetectorVersionMetadataResponse' :: UpdateDetectorVersionMetadataResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateDetectorVersionMetadataResponse
s@UpdateDetectorVersionMetadataResponse' {} Int
a -> UpdateDetectorVersionMetadataResponse
s {$sel:httpStatus:UpdateDetectorVersionMetadataResponse' :: Int
httpStatus = Int
a} :: UpdateDetectorVersionMetadataResponse)
instance
Prelude.NFData
UpdateDetectorVersionMetadataResponse
where
rnf :: UpdateDetectorVersionMetadataResponse -> ()
rnf UpdateDetectorVersionMetadataResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateDetectorVersionMetadataResponse' :: UpdateDetectorVersionMetadataResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus