module Stratosphere.Wisdom.KnowledgeBase.HierarchicalChunkingLevelConfigurationProperty (
        HierarchicalChunkingLevelConfigurationProperty(..),
        mkHierarchicalChunkingLevelConfigurationProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data HierarchicalChunkingLevelConfigurationProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wisdom-knowledgebase-hierarchicalchunkinglevelconfiguration.html>
    HierarchicalChunkingLevelConfigurationProperty {HierarchicalChunkingLevelConfigurationProperty -> ()
haddock_workaround_ :: (),
                                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-wisdom-knowledgebase-hierarchicalchunkinglevelconfiguration.html#cfn-wisdom-knowledgebase-hierarchicalchunkinglevelconfiguration-maxtokens>
                                                    HierarchicalChunkingLevelConfigurationProperty -> Value Double
maxTokens :: (Value Prelude.Double)}
  deriving stock (HierarchicalChunkingLevelConfigurationProperty
-> HierarchicalChunkingLevelConfigurationProperty -> Bool
(HierarchicalChunkingLevelConfigurationProperty
 -> HierarchicalChunkingLevelConfigurationProperty -> Bool)
-> (HierarchicalChunkingLevelConfigurationProperty
    -> HierarchicalChunkingLevelConfigurationProperty -> Bool)
-> Eq HierarchicalChunkingLevelConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HierarchicalChunkingLevelConfigurationProperty
-> HierarchicalChunkingLevelConfigurationProperty -> Bool
== :: HierarchicalChunkingLevelConfigurationProperty
-> HierarchicalChunkingLevelConfigurationProperty -> Bool
$c/= :: HierarchicalChunkingLevelConfigurationProperty
-> HierarchicalChunkingLevelConfigurationProperty -> Bool
/= :: HierarchicalChunkingLevelConfigurationProperty
-> HierarchicalChunkingLevelConfigurationProperty -> Bool
Prelude.Eq, Int -> HierarchicalChunkingLevelConfigurationProperty -> ShowS
[HierarchicalChunkingLevelConfigurationProperty] -> ShowS
HierarchicalChunkingLevelConfigurationProperty -> String
(Int -> HierarchicalChunkingLevelConfigurationProperty -> ShowS)
-> (HierarchicalChunkingLevelConfigurationProperty -> String)
-> ([HierarchicalChunkingLevelConfigurationProperty] -> ShowS)
-> Show HierarchicalChunkingLevelConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> HierarchicalChunkingLevelConfigurationProperty -> ShowS
showsPrec :: Int -> HierarchicalChunkingLevelConfigurationProperty -> ShowS
$cshow :: HierarchicalChunkingLevelConfigurationProperty -> String
show :: HierarchicalChunkingLevelConfigurationProperty -> String
$cshowList :: [HierarchicalChunkingLevelConfigurationProperty] -> ShowS
showList :: [HierarchicalChunkingLevelConfigurationProperty] -> ShowS
Prelude.Show)
mkHierarchicalChunkingLevelConfigurationProperty ::
  Value Prelude.Double
  -> HierarchicalChunkingLevelConfigurationProperty
mkHierarchicalChunkingLevelConfigurationProperty :: Value Double -> HierarchicalChunkingLevelConfigurationProperty
mkHierarchicalChunkingLevelConfigurationProperty Value Double
maxTokens
  = HierarchicalChunkingLevelConfigurationProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), maxTokens :: Value Double
maxTokens = Value Double
maxTokens}
instance ToResourceProperties HierarchicalChunkingLevelConfigurationProperty where
  toResourceProperties :: HierarchicalChunkingLevelConfigurationProperty
-> ResourceProperties
toResourceProperties
    HierarchicalChunkingLevelConfigurationProperty {()
Value Double
haddock_workaround_ :: HierarchicalChunkingLevelConfigurationProperty -> ()
maxTokens :: HierarchicalChunkingLevelConfigurationProperty -> Value Double
haddock_workaround_ :: ()
maxTokens :: Value Double
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Wisdom::KnowledgeBase.HierarchicalChunkingLevelConfiguration",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"MaxTokens" Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Double
maxTokens]}
instance JSON.ToJSON HierarchicalChunkingLevelConfigurationProperty where
  toJSON :: HierarchicalChunkingLevelConfigurationProperty -> Value
toJSON HierarchicalChunkingLevelConfigurationProperty {()
Value Double
haddock_workaround_ :: HierarchicalChunkingLevelConfigurationProperty -> ()
maxTokens :: HierarchicalChunkingLevelConfigurationProperty -> Value Double
haddock_workaround_ :: ()
maxTokens :: Value Double
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"MaxTokens" Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Double
maxTokens]
instance Property "MaxTokens" HierarchicalChunkingLevelConfigurationProperty where
  type PropertyType "MaxTokens" HierarchicalChunkingLevelConfigurationProperty = Value Prelude.Double
  set :: PropertyType
  "MaxTokens" HierarchicalChunkingLevelConfigurationProperty
-> HierarchicalChunkingLevelConfigurationProperty
-> HierarchicalChunkingLevelConfigurationProperty
set PropertyType
  "MaxTokens" HierarchicalChunkingLevelConfigurationProperty
newValue HierarchicalChunkingLevelConfigurationProperty {()
Value Double
haddock_workaround_ :: HierarchicalChunkingLevelConfigurationProperty -> ()
maxTokens :: HierarchicalChunkingLevelConfigurationProperty -> Value Double
haddock_workaround_ :: ()
maxTokens :: Value Double
..}
    = HierarchicalChunkingLevelConfigurationProperty
        {maxTokens :: Value Double
maxTokens = PropertyType
  "MaxTokens" HierarchicalChunkingLevelConfigurationProperty
Value Double
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}