{-# 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.UpdateModelVersionStatus
(
UpdateModelVersionStatus (..),
newUpdateModelVersionStatus,
updateModelVersionStatus_modelId,
updateModelVersionStatus_modelType,
updateModelVersionStatus_modelVersionNumber,
updateModelVersionStatus_status,
UpdateModelVersionStatusResponse (..),
newUpdateModelVersionStatusResponse,
updateModelVersionStatusResponse_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 UpdateModelVersionStatus = UpdateModelVersionStatus'
{
UpdateModelVersionStatus -> Text
modelId :: Prelude.Text,
UpdateModelVersionStatus -> ModelTypeEnum
modelType :: ModelTypeEnum,
UpdateModelVersionStatus -> Text
modelVersionNumber :: Prelude.Text,
UpdateModelVersionStatus -> ModelVersionStatus
status :: ModelVersionStatus
}
deriving (UpdateModelVersionStatus -> UpdateModelVersionStatus -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateModelVersionStatus -> UpdateModelVersionStatus -> Bool
$c/= :: UpdateModelVersionStatus -> UpdateModelVersionStatus -> Bool
== :: UpdateModelVersionStatus -> UpdateModelVersionStatus -> Bool
$c== :: UpdateModelVersionStatus -> UpdateModelVersionStatus -> Bool
Prelude.Eq, ReadPrec [UpdateModelVersionStatus]
ReadPrec UpdateModelVersionStatus
Int -> ReadS UpdateModelVersionStatus
ReadS [UpdateModelVersionStatus]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateModelVersionStatus]
$creadListPrec :: ReadPrec [UpdateModelVersionStatus]
readPrec :: ReadPrec UpdateModelVersionStatus
$creadPrec :: ReadPrec UpdateModelVersionStatus
readList :: ReadS [UpdateModelVersionStatus]
$creadList :: ReadS [UpdateModelVersionStatus]
readsPrec :: Int -> ReadS UpdateModelVersionStatus
$creadsPrec :: Int -> ReadS UpdateModelVersionStatus
Prelude.Read, Int -> UpdateModelVersionStatus -> ShowS
[UpdateModelVersionStatus] -> ShowS
UpdateModelVersionStatus -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateModelVersionStatus] -> ShowS
$cshowList :: [UpdateModelVersionStatus] -> ShowS
show :: UpdateModelVersionStatus -> String
$cshow :: UpdateModelVersionStatus -> String
showsPrec :: Int -> UpdateModelVersionStatus -> ShowS
$cshowsPrec :: Int -> UpdateModelVersionStatus -> ShowS
Prelude.Show, forall x.
Rep UpdateModelVersionStatus x -> UpdateModelVersionStatus
forall x.
UpdateModelVersionStatus -> Rep UpdateModelVersionStatus x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateModelVersionStatus x -> UpdateModelVersionStatus
$cfrom :: forall x.
UpdateModelVersionStatus -> Rep UpdateModelVersionStatus x
Prelude.Generic)
newUpdateModelVersionStatus ::
Prelude.Text ->
ModelTypeEnum ->
Prelude.Text ->
ModelVersionStatus ->
UpdateModelVersionStatus
newUpdateModelVersionStatus :: Text
-> ModelTypeEnum
-> Text
-> ModelVersionStatus
-> UpdateModelVersionStatus
newUpdateModelVersionStatus
Text
pModelId_
ModelTypeEnum
pModelType_
Text
pModelVersionNumber_
ModelVersionStatus
pStatus_ =
UpdateModelVersionStatus'
{ $sel:modelId:UpdateModelVersionStatus' :: Text
modelId = Text
pModelId_,
$sel:modelType:UpdateModelVersionStatus' :: ModelTypeEnum
modelType = ModelTypeEnum
pModelType_,
$sel:modelVersionNumber:UpdateModelVersionStatus' :: Text
modelVersionNumber = Text
pModelVersionNumber_,
$sel:status:UpdateModelVersionStatus' :: ModelVersionStatus
status = ModelVersionStatus
pStatus_
}
updateModelVersionStatus_modelId :: Lens.Lens' UpdateModelVersionStatus Prelude.Text
updateModelVersionStatus_modelId :: Lens' UpdateModelVersionStatus Text
updateModelVersionStatus_modelId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateModelVersionStatus' {Text
modelId :: Text
$sel:modelId:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> Text
modelId} -> Text
modelId) (\s :: UpdateModelVersionStatus
s@UpdateModelVersionStatus' {} Text
a -> UpdateModelVersionStatus
s {$sel:modelId:UpdateModelVersionStatus' :: Text
modelId = Text
a} :: UpdateModelVersionStatus)
updateModelVersionStatus_modelType :: Lens.Lens' UpdateModelVersionStatus ModelTypeEnum
updateModelVersionStatus_modelType :: Lens' UpdateModelVersionStatus ModelTypeEnum
updateModelVersionStatus_modelType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateModelVersionStatus' {ModelTypeEnum
modelType :: ModelTypeEnum
$sel:modelType:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> ModelTypeEnum
modelType} -> ModelTypeEnum
modelType) (\s :: UpdateModelVersionStatus
s@UpdateModelVersionStatus' {} ModelTypeEnum
a -> UpdateModelVersionStatus
s {$sel:modelType:UpdateModelVersionStatus' :: ModelTypeEnum
modelType = ModelTypeEnum
a} :: UpdateModelVersionStatus)
updateModelVersionStatus_modelVersionNumber :: Lens.Lens' UpdateModelVersionStatus Prelude.Text
updateModelVersionStatus_modelVersionNumber :: Lens' UpdateModelVersionStatus Text
updateModelVersionStatus_modelVersionNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateModelVersionStatus' {Text
modelVersionNumber :: Text
$sel:modelVersionNumber:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> Text
modelVersionNumber} -> Text
modelVersionNumber) (\s :: UpdateModelVersionStatus
s@UpdateModelVersionStatus' {} Text
a -> UpdateModelVersionStatus
s {$sel:modelVersionNumber:UpdateModelVersionStatus' :: Text
modelVersionNumber = Text
a} :: UpdateModelVersionStatus)
updateModelVersionStatus_status :: Lens.Lens' UpdateModelVersionStatus ModelVersionStatus
updateModelVersionStatus_status :: Lens' UpdateModelVersionStatus ModelVersionStatus
updateModelVersionStatus_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateModelVersionStatus' {ModelVersionStatus
status :: ModelVersionStatus
$sel:status:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> ModelVersionStatus
status} -> ModelVersionStatus
status) (\s :: UpdateModelVersionStatus
s@UpdateModelVersionStatus' {} ModelVersionStatus
a -> UpdateModelVersionStatus
s {$sel:status:UpdateModelVersionStatus' :: ModelVersionStatus
status = ModelVersionStatus
a} :: UpdateModelVersionStatus)
instance Core.AWSRequest UpdateModelVersionStatus where
type
AWSResponse UpdateModelVersionStatus =
UpdateModelVersionStatusResponse
request :: (Service -> Service)
-> UpdateModelVersionStatus -> Request UpdateModelVersionStatus
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 UpdateModelVersionStatus
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateModelVersionStatus)))
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 -> UpdateModelVersionStatusResponse
UpdateModelVersionStatusResponse'
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 UpdateModelVersionStatus where
hashWithSalt :: Int -> UpdateModelVersionStatus -> Int
hashWithSalt Int
_salt UpdateModelVersionStatus' {Text
ModelTypeEnum
ModelVersionStatus
status :: ModelVersionStatus
modelVersionNumber :: Text
modelType :: ModelTypeEnum
modelId :: Text
$sel:status:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> ModelVersionStatus
$sel:modelVersionNumber:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> Text
$sel:modelType:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> ModelTypeEnum
$sel:modelId:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
modelId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ModelTypeEnum
modelType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
modelVersionNumber
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ModelVersionStatus
status
instance Prelude.NFData UpdateModelVersionStatus where
rnf :: UpdateModelVersionStatus -> ()
rnf UpdateModelVersionStatus' {Text
ModelTypeEnum
ModelVersionStatus
status :: ModelVersionStatus
modelVersionNumber :: Text
modelType :: ModelTypeEnum
modelId :: Text
$sel:status:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> ModelVersionStatus
$sel:modelVersionNumber:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> Text
$sel:modelType:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> ModelTypeEnum
$sel:modelId:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
modelId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ModelTypeEnum
modelType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
modelVersionNumber
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ModelVersionStatus
status
instance Data.ToHeaders UpdateModelVersionStatus where
toHeaders :: UpdateModelVersionStatus -> 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.UpdateModelVersionStatus" ::
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 UpdateModelVersionStatus where
toJSON :: UpdateModelVersionStatus -> Value
toJSON UpdateModelVersionStatus' {Text
ModelTypeEnum
ModelVersionStatus
status :: ModelVersionStatus
modelVersionNumber :: Text
modelType :: ModelTypeEnum
modelId :: Text
$sel:status:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> ModelVersionStatus
$sel:modelVersionNumber:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> Text
$sel:modelType:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> ModelTypeEnum
$sel:modelId:UpdateModelVersionStatus' :: UpdateModelVersionStatus -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"modelId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
modelId),
forall a. a -> Maybe a
Prelude.Just (Key
"modelType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= ModelTypeEnum
modelType),
forall a. a -> Maybe a
Prelude.Just
(Key
"modelVersionNumber" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
modelVersionNumber),
forall a. a -> Maybe a
Prelude.Just (Key
"status" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= ModelVersionStatus
status)
]
)
instance Data.ToPath UpdateModelVersionStatus where
toPath :: UpdateModelVersionStatus -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery UpdateModelVersionStatus where
toQuery :: UpdateModelVersionStatus -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateModelVersionStatusResponse = UpdateModelVersionStatusResponse'
{
UpdateModelVersionStatusResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateModelVersionStatusResponse
-> UpdateModelVersionStatusResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateModelVersionStatusResponse
-> UpdateModelVersionStatusResponse -> Bool
$c/= :: UpdateModelVersionStatusResponse
-> UpdateModelVersionStatusResponse -> Bool
== :: UpdateModelVersionStatusResponse
-> UpdateModelVersionStatusResponse -> Bool
$c== :: UpdateModelVersionStatusResponse
-> UpdateModelVersionStatusResponse -> Bool
Prelude.Eq, ReadPrec [UpdateModelVersionStatusResponse]
ReadPrec UpdateModelVersionStatusResponse
Int -> ReadS UpdateModelVersionStatusResponse
ReadS [UpdateModelVersionStatusResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateModelVersionStatusResponse]
$creadListPrec :: ReadPrec [UpdateModelVersionStatusResponse]
readPrec :: ReadPrec UpdateModelVersionStatusResponse
$creadPrec :: ReadPrec UpdateModelVersionStatusResponse
readList :: ReadS [UpdateModelVersionStatusResponse]
$creadList :: ReadS [UpdateModelVersionStatusResponse]
readsPrec :: Int -> ReadS UpdateModelVersionStatusResponse
$creadsPrec :: Int -> ReadS UpdateModelVersionStatusResponse
Prelude.Read, Int -> UpdateModelVersionStatusResponse -> ShowS
[UpdateModelVersionStatusResponse] -> ShowS
UpdateModelVersionStatusResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateModelVersionStatusResponse] -> ShowS
$cshowList :: [UpdateModelVersionStatusResponse] -> ShowS
show :: UpdateModelVersionStatusResponse -> String
$cshow :: UpdateModelVersionStatusResponse -> String
showsPrec :: Int -> UpdateModelVersionStatusResponse -> ShowS
$cshowsPrec :: Int -> UpdateModelVersionStatusResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateModelVersionStatusResponse x
-> UpdateModelVersionStatusResponse
forall x.
UpdateModelVersionStatusResponse
-> Rep UpdateModelVersionStatusResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateModelVersionStatusResponse x
-> UpdateModelVersionStatusResponse
$cfrom :: forall x.
UpdateModelVersionStatusResponse
-> Rep UpdateModelVersionStatusResponse x
Prelude.Generic)
newUpdateModelVersionStatusResponse ::
Prelude.Int ->
UpdateModelVersionStatusResponse
newUpdateModelVersionStatusResponse :: Int -> UpdateModelVersionStatusResponse
newUpdateModelVersionStatusResponse Int
pHttpStatus_ =
UpdateModelVersionStatusResponse'
{ $sel:httpStatus:UpdateModelVersionStatusResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
updateModelVersionStatusResponse_httpStatus :: Lens.Lens' UpdateModelVersionStatusResponse Prelude.Int
updateModelVersionStatusResponse_httpStatus :: Lens' UpdateModelVersionStatusResponse Int
updateModelVersionStatusResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateModelVersionStatusResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateModelVersionStatusResponse' :: UpdateModelVersionStatusResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateModelVersionStatusResponse
s@UpdateModelVersionStatusResponse' {} Int
a -> UpdateModelVersionStatusResponse
s {$sel:httpStatus:UpdateModelVersionStatusResponse' :: Int
httpStatus = Int
a} :: UpdateModelVersionStatusResponse)
instance
Prelude.NFData
UpdateModelVersionStatusResponse
where
rnf :: UpdateModelVersionStatusResponse -> ()
rnf UpdateModelVersionStatusResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateModelVersionStatusResponse' :: UpdateModelVersionStatusResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus