{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Rekognition.Types.ProtectiveEquipmentSummarizationAttributes 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 Amazonka.Rekognition.Types.ProtectiveEquipmentType
data ProtectiveEquipmentSummarizationAttributes = ProtectiveEquipmentSummarizationAttributes'
{
ProtectiveEquipmentSummarizationAttributes -> Double
minConfidence :: Prelude.Double,
ProtectiveEquipmentSummarizationAttributes
-> [ProtectiveEquipmentType]
requiredEquipmentTypes :: [ProtectiveEquipmentType]
}
deriving (ProtectiveEquipmentSummarizationAttributes
-> ProtectiveEquipmentSummarizationAttributes -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ProtectiveEquipmentSummarizationAttributes
-> ProtectiveEquipmentSummarizationAttributes -> Bool
$c/= :: ProtectiveEquipmentSummarizationAttributes
-> ProtectiveEquipmentSummarizationAttributes -> Bool
== :: ProtectiveEquipmentSummarizationAttributes
-> ProtectiveEquipmentSummarizationAttributes -> Bool
$c== :: ProtectiveEquipmentSummarizationAttributes
-> ProtectiveEquipmentSummarizationAttributes -> Bool
Prelude.Eq, ReadPrec [ProtectiveEquipmentSummarizationAttributes]
ReadPrec ProtectiveEquipmentSummarizationAttributes
Int -> ReadS ProtectiveEquipmentSummarizationAttributes
ReadS [ProtectiveEquipmentSummarizationAttributes]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ProtectiveEquipmentSummarizationAttributes]
$creadListPrec :: ReadPrec [ProtectiveEquipmentSummarizationAttributes]
readPrec :: ReadPrec ProtectiveEquipmentSummarizationAttributes
$creadPrec :: ReadPrec ProtectiveEquipmentSummarizationAttributes
readList :: ReadS [ProtectiveEquipmentSummarizationAttributes]
$creadList :: ReadS [ProtectiveEquipmentSummarizationAttributes]
readsPrec :: Int -> ReadS ProtectiveEquipmentSummarizationAttributes
$creadsPrec :: Int -> ReadS ProtectiveEquipmentSummarizationAttributes
Prelude.Read, Int -> ProtectiveEquipmentSummarizationAttributes -> ShowS
[ProtectiveEquipmentSummarizationAttributes] -> ShowS
ProtectiveEquipmentSummarizationAttributes -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ProtectiveEquipmentSummarizationAttributes] -> ShowS
$cshowList :: [ProtectiveEquipmentSummarizationAttributes] -> ShowS
show :: ProtectiveEquipmentSummarizationAttributes -> String
$cshow :: ProtectiveEquipmentSummarizationAttributes -> String
showsPrec :: Int -> ProtectiveEquipmentSummarizationAttributes -> ShowS
$cshowsPrec :: Int -> ProtectiveEquipmentSummarizationAttributes -> ShowS
Prelude.Show, forall x.
Rep ProtectiveEquipmentSummarizationAttributes x
-> ProtectiveEquipmentSummarizationAttributes
forall x.
ProtectiveEquipmentSummarizationAttributes
-> Rep ProtectiveEquipmentSummarizationAttributes x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ProtectiveEquipmentSummarizationAttributes x
-> ProtectiveEquipmentSummarizationAttributes
$cfrom :: forall x.
ProtectiveEquipmentSummarizationAttributes
-> Rep ProtectiveEquipmentSummarizationAttributes x
Prelude.Generic)
newProtectiveEquipmentSummarizationAttributes ::
Prelude.Double ->
ProtectiveEquipmentSummarizationAttributes
newProtectiveEquipmentSummarizationAttributes :: Double -> ProtectiveEquipmentSummarizationAttributes
newProtectiveEquipmentSummarizationAttributes
Double
pMinConfidence_ =
ProtectiveEquipmentSummarizationAttributes'
{ $sel:minConfidence:ProtectiveEquipmentSummarizationAttributes' :: Double
minConfidence =
Double
pMinConfidence_,
$sel:requiredEquipmentTypes:ProtectiveEquipmentSummarizationAttributes' :: [ProtectiveEquipmentType]
requiredEquipmentTypes =
forall a. Monoid a => a
Prelude.mempty
}
protectiveEquipmentSummarizationAttributes_minConfidence :: Lens.Lens' ProtectiveEquipmentSummarizationAttributes Prelude.Double
protectiveEquipmentSummarizationAttributes_minConfidence :: Lens' ProtectiveEquipmentSummarizationAttributes Double
protectiveEquipmentSummarizationAttributes_minConfidence = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ProtectiveEquipmentSummarizationAttributes' {Double
minConfidence :: Double
$sel:minConfidence:ProtectiveEquipmentSummarizationAttributes' :: ProtectiveEquipmentSummarizationAttributes -> Double
minConfidence} -> Double
minConfidence) (\s :: ProtectiveEquipmentSummarizationAttributes
s@ProtectiveEquipmentSummarizationAttributes' {} Double
a -> ProtectiveEquipmentSummarizationAttributes
s {$sel:minConfidence:ProtectiveEquipmentSummarizationAttributes' :: Double
minConfidence = Double
a} :: ProtectiveEquipmentSummarizationAttributes)
protectiveEquipmentSummarizationAttributes_requiredEquipmentTypes :: Lens.Lens' ProtectiveEquipmentSummarizationAttributes [ProtectiveEquipmentType]
protectiveEquipmentSummarizationAttributes_requiredEquipmentTypes :: Lens'
ProtectiveEquipmentSummarizationAttributes
[ProtectiveEquipmentType]
protectiveEquipmentSummarizationAttributes_requiredEquipmentTypes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ProtectiveEquipmentSummarizationAttributes' {[ProtectiveEquipmentType]
requiredEquipmentTypes :: [ProtectiveEquipmentType]
$sel:requiredEquipmentTypes:ProtectiveEquipmentSummarizationAttributes' :: ProtectiveEquipmentSummarizationAttributes
-> [ProtectiveEquipmentType]
requiredEquipmentTypes} -> [ProtectiveEquipmentType]
requiredEquipmentTypes) (\s :: ProtectiveEquipmentSummarizationAttributes
s@ProtectiveEquipmentSummarizationAttributes' {} [ProtectiveEquipmentType]
a -> ProtectiveEquipmentSummarizationAttributes
s {$sel:requiredEquipmentTypes:ProtectiveEquipmentSummarizationAttributes' :: [ProtectiveEquipmentType]
requiredEquipmentTypes = [ProtectiveEquipmentType]
a} :: ProtectiveEquipmentSummarizationAttributes) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance
Prelude.Hashable
ProtectiveEquipmentSummarizationAttributes
where
hashWithSalt :: Int -> ProtectiveEquipmentSummarizationAttributes -> Int
hashWithSalt
Int
_salt
ProtectiveEquipmentSummarizationAttributes' {Double
[ProtectiveEquipmentType]
requiredEquipmentTypes :: [ProtectiveEquipmentType]
minConfidence :: Double
$sel:requiredEquipmentTypes:ProtectiveEquipmentSummarizationAttributes' :: ProtectiveEquipmentSummarizationAttributes
-> [ProtectiveEquipmentType]
$sel:minConfidence:ProtectiveEquipmentSummarizationAttributes' :: ProtectiveEquipmentSummarizationAttributes -> Double
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Double
minConfidence
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [ProtectiveEquipmentType]
requiredEquipmentTypes
instance
Prelude.NFData
ProtectiveEquipmentSummarizationAttributes
where
rnf :: ProtectiveEquipmentSummarizationAttributes -> ()
rnf ProtectiveEquipmentSummarizationAttributes' {Double
[ProtectiveEquipmentType]
requiredEquipmentTypes :: [ProtectiveEquipmentType]
minConfidence :: Double
$sel:requiredEquipmentTypes:ProtectiveEquipmentSummarizationAttributes' :: ProtectiveEquipmentSummarizationAttributes
-> [ProtectiveEquipmentType]
$sel:minConfidence:ProtectiveEquipmentSummarizationAttributes' :: ProtectiveEquipmentSummarizationAttributes -> Double
..} =
forall a. NFData a => a -> ()
Prelude.rnf Double
minConfidence
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [ProtectiveEquipmentType]
requiredEquipmentTypes
instance
Data.ToJSON
ProtectiveEquipmentSummarizationAttributes
where
toJSON :: ProtectiveEquipmentSummarizationAttributes -> Value
toJSON
ProtectiveEquipmentSummarizationAttributes' {Double
[ProtectiveEquipmentType]
requiredEquipmentTypes :: [ProtectiveEquipmentType]
minConfidence :: Double
$sel:requiredEquipmentTypes:ProtectiveEquipmentSummarizationAttributes' :: ProtectiveEquipmentSummarizationAttributes
-> [ProtectiveEquipmentType]
$sel:minConfidence:ProtectiveEquipmentSummarizationAttributes' :: ProtectiveEquipmentSummarizationAttributes -> Double
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
(Key
"MinConfidence" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Double
minConfidence),
forall a. a -> Maybe a
Prelude.Just
( Key
"RequiredEquipmentTypes"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [ProtectiveEquipmentType]
requiredEquipmentTypes
)
]
)