module Stratosphere.Bedrock.DataAutomationProject.ImageStandardExtractionProperty (
module Exports, ImageStandardExtractionProperty(..),
mkImageStandardExtractionProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Bedrock.DataAutomationProject.ImageBoundingBoxProperty as Exports
import {-# SOURCE #-} Stratosphere.Bedrock.DataAutomationProject.ImageExtractionCategoryProperty as Exports
import Stratosphere.ResourceProperties
data ImageStandardExtractionProperty
=
ImageStandardExtractionProperty {ImageStandardExtractionProperty -> ()
haddock_workaround_ :: (),
ImageStandardExtractionProperty -> ImageBoundingBoxProperty
boundingBox :: ImageBoundingBoxProperty,
ImageStandardExtractionProperty -> ImageExtractionCategoryProperty
category :: ImageExtractionCategoryProperty}
deriving stock (ImageStandardExtractionProperty
-> ImageStandardExtractionProperty -> Bool
(ImageStandardExtractionProperty
-> ImageStandardExtractionProperty -> Bool)
-> (ImageStandardExtractionProperty
-> ImageStandardExtractionProperty -> Bool)
-> Eq ImageStandardExtractionProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ImageStandardExtractionProperty
-> ImageStandardExtractionProperty -> Bool
== :: ImageStandardExtractionProperty
-> ImageStandardExtractionProperty -> Bool
$c/= :: ImageStandardExtractionProperty
-> ImageStandardExtractionProperty -> Bool
/= :: ImageStandardExtractionProperty
-> ImageStandardExtractionProperty -> Bool
Prelude.Eq, Int -> ImageStandardExtractionProperty -> ShowS
[ImageStandardExtractionProperty] -> ShowS
ImageStandardExtractionProperty -> String
(Int -> ImageStandardExtractionProperty -> ShowS)
-> (ImageStandardExtractionProperty -> String)
-> ([ImageStandardExtractionProperty] -> ShowS)
-> Show ImageStandardExtractionProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ImageStandardExtractionProperty -> ShowS
showsPrec :: Int -> ImageStandardExtractionProperty -> ShowS
$cshow :: ImageStandardExtractionProperty -> String
show :: ImageStandardExtractionProperty -> String
$cshowList :: [ImageStandardExtractionProperty] -> ShowS
showList :: [ImageStandardExtractionProperty] -> ShowS
Prelude.Show)
mkImageStandardExtractionProperty ::
ImageBoundingBoxProperty
-> ImageExtractionCategoryProperty
-> ImageStandardExtractionProperty
mkImageStandardExtractionProperty :: ImageBoundingBoxProperty
-> ImageExtractionCategoryProperty
-> ImageStandardExtractionProperty
mkImageStandardExtractionProperty ImageBoundingBoxProperty
boundingBox ImageExtractionCategoryProperty
category
= ImageStandardExtractionProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), boundingBox :: ImageBoundingBoxProperty
boundingBox = ImageBoundingBoxProperty
boundingBox,
category :: ImageExtractionCategoryProperty
category = ImageExtractionCategoryProperty
category}
instance ToResourceProperties ImageStandardExtractionProperty where
toResourceProperties :: ImageStandardExtractionProperty -> ResourceProperties
toResourceProperties ImageStandardExtractionProperty {()
ImageBoundingBoxProperty
ImageExtractionCategoryProperty
haddock_workaround_ :: ImageStandardExtractionProperty -> ()
boundingBox :: ImageStandardExtractionProperty -> ImageBoundingBoxProperty
category :: ImageStandardExtractionProperty -> ImageExtractionCategoryProperty
haddock_workaround_ :: ()
boundingBox :: ImageBoundingBoxProperty
category :: ImageExtractionCategoryProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Bedrock::DataAutomationProject.ImageStandardExtraction",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"BoundingBox" Key -> ImageBoundingBoxProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ImageBoundingBoxProperty
boundingBox,
Key
"Category" Key -> ImageExtractionCategoryProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ImageExtractionCategoryProperty
category]}
instance JSON.ToJSON ImageStandardExtractionProperty where
toJSON :: ImageStandardExtractionProperty -> Value
toJSON ImageStandardExtractionProperty {()
ImageBoundingBoxProperty
ImageExtractionCategoryProperty
haddock_workaround_ :: ImageStandardExtractionProperty -> ()
boundingBox :: ImageStandardExtractionProperty -> ImageBoundingBoxProperty
category :: ImageStandardExtractionProperty -> ImageExtractionCategoryProperty
haddock_workaround_ :: ()
boundingBox :: ImageBoundingBoxProperty
category :: ImageExtractionCategoryProperty
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"BoundingBox" Key -> ImageBoundingBoxProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ImageBoundingBoxProperty
boundingBox, Key
"Category" Key -> ImageExtractionCategoryProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ImageExtractionCategoryProperty
category]
instance Property "BoundingBox" ImageStandardExtractionProperty where
type PropertyType "BoundingBox" ImageStandardExtractionProperty = ImageBoundingBoxProperty
set :: PropertyType "BoundingBox" ImageStandardExtractionProperty
-> ImageStandardExtractionProperty
-> ImageStandardExtractionProperty
set PropertyType "BoundingBox" ImageStandardExtractionProperty
newValue ImageStandardExtractionProperty {()
ImageBoundingBoxProperty
ImageExtractionCategoryProperty
haddock_workaround_ :: ImageStandardExtractionProperty -> ()
boundingBox :: ImageStandardExtractionProperty -> ImageBoundingBoxProperty
category :: ImageStandardExtractionProperty -> ImageExtractionCategoryProperty
haddock_workaround_ :: ()
boundingBox :: ImageBoundingBoxProperty
category :: ImageExtractionCategoryProperty
..}
= ImageStandardExtractionProperty {boundingBox :: ImageBoundingBoxProperty
boundingBox = PropertyType "BoundingBox" ImageStandardExtractionProperty
ImageBoundingBoxProperty
newValue, ()
ImageExtractionCategoryProperty
haddock_workaround_ :: ()
category :: ImageExtractionCategoryProperty
haddock_workaround_ :: ()
category :: ImageExtractionCategoryProperty
..}
instance Property "Category" ImageStandardExtractionProperty where
type PropertyType "Category" ImageStandardExtractionProperty = ImageExtractionCategoryProperty
set :: PropertyType "Category" ImageStandardExtractionProperty
-> ImageStandardExtractionProperty
-> ImageStandardExtractionProperty
set PropertyType "Category" ImageStandardExtractionProperty
newValue ImageStandardExtractionProperty {()
ImageBoundingBoxProperty
ImageExtractionCategoryProperty
haddock_workaround_ :: ImageStandardExtractionProperty -> ()
boundingBox :: ImageStandardExtractionProperty -> ImageBoundingBoxProperty
category :: ImageStandardExtractionProperty -> ImageExtractionCategoryProperty
haddock_workaround_ :: ()
boundingBox :: ImageBoundingBoxProperty
category :: ImageExtractionCategoryProperty
..}
= ImageStandardExtractionProperty {category :: ImageExtractionCategoryProperty
category = PropertyType "Category" ImageStandardExtractionProperty
ImageExtractionCategoryProperty
newValue, ()
ImageBoundingBoxProperty
haddock_workaround_ :: ()
boundingBox :: ImageBoundingBoxProperty
haddock_workaround_ :: ()
boundingBox :: ImageBoundingBoxProperty
..}