module Stratosphere.SageMaker.Model.HubAccessConfigProperty (
        HubAccessConfigProperty(..), mkHubAccessConfigProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data HubAccessConfigProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-s3datasource-hubaccessconfig.html>
    HubAccessConfigProperty {HubAccessConfigProperty -> ()
haddock_workaround_ :: (),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-model-s3datasource-hubaccessconfig.html#cfn-sagemaker-model-s3datasource-hubaccessconfig-hubcontentarn>
                             HubAccessConfigProperty -> Value Text
hubContentArn :: (Value Prelude.Text)}
  deriving stock (HubAccessConfigProperty -> HubAccessConfigProperty -> Bool
(HubAccessConfigProperty -> HubAccessConfigProperty -> Bool)
-> (HubAccessConfigProperty -> HubAccessConfigProperty -> Bool)
-> Eq HubAccessConfigProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HubAccessConfigProperty -> HubAccessConfigProperty -> Bool
== :: HubAccessConfigProperty -> HubAccessConfigProperty -> Bool
$c/= :: HubAccessConfigProperty -> HubAccessConfigProperty -> Bool
/= :: HubAccessConfigProperty -> HubAccessConfigProperty -> Bool
Prelude.Eq, Int -> HubAccessConfigProperty -> ShowS
[HubAccessConfigProperty] -> ShowS
HubAccessConfigProperty -> String
(Int -> HubAccessConfigProperty -> ShowS)
-> (HubAccessConfigProperty -> String)
-> ([HubAccessConfigProperty] -> ShowS)
-> Show HubAccessConfigProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> HubAccessConfigProperty -> ShowS
showsPrec :: Int -> HubAccessConfigProperty -> ShowS
$cshow :: HubAccessConfigProperty -> String
show :: HubAccessConfigProperty -> String
$cshowList :: [HubAccessConfigProperty] -> ShowS
showList :: [HubAccessConfigProperty] -> ShowS
Prelude.Show)
mkHubAccessConfigProperty ::
  Value Prelude.Text -> HubAccessConfigProperty
mkHubAccessConfigProperty :: Value Text -> HubAccessConfigProperty
mkHubAccessConfigProperty Value Text
hubContentArn
  = HubAccessConfigProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), hubContentArn :: Value Text
hubContentArn = Value Text
hubContentArn}
instance ToResourceProperties HubAccessConfigProperty where
  toResourceProperties :: HubAccessConfigProperty -> ResourceProperties
toResourceProperties HubAccessConfigProperty {()
Value Text
haddock_workaround_ :: HubAccessConfigProperty -> ()
hubContentArn :: HubAccessConfigProperty -> Value Text
haddock_workaround_ :: ()
hubContentArn :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::SageMaker::Model.HubAccessConfig",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"HubContentArn" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
hubContentArn]}
instance JSON.ToJSON HubAccessConfigProperty where
  toJSON :: HubAccessConfigProperty -> Value
toJSON HubAccessConfigProperty {()
Value Text
haddock_workaround_ :: HubAccessConfigProperty -> ()
hubContentArn :: HubAccessConfigProperty -> Value Text
haddock_workaround_ :: ()
hubContentArn :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"HubContentArn" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
hubContentArn]
instance Property "HubContentArn" HubAccessConfigProperty where
  type PropertyType "HubContentArn" HubAccessConfigProperty = Value Prelude.Text
  set :: PropertyType "HubContentArn" HubAccessConfigProperty
-> HubAccessConfigProperty -> HubAccessConfigProperty
set PropertyType "HubContentArn" HubAccessConfigProperty
newValue HubAccessConfigProperty {()
Value Text
haddock_workaround_ :: HubAccessConfigProperty -> ()
hubContentArn :: HubAccessConfigProperty -> Value Text
haddock_workaround_ :: ()
hubContentArn :: Value Text
..}
    = HubAccessConfigProperty {hubContentArn :: Value Text
hubContentArn = PropertyType "HubContentArn" HubAccessConfigProperty
Value Text
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}