module Stratosphere.SageMaker.UserProfile.AppLifecycleManagementProperty (
        module Exports, AppLifecycleManagementProperty(..),
        mkAppLifecycleManagementProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.SageMaker.UserProfile.IdleSettingsProperty as Exports
import Stratosphere.ResourceProperties
data AppLifecycleManagementProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-userprofile-applifecyclemanagement.html>
    AppLifecycleManagementProperty {AppLifecycleManagementProperty -> ()
haddock_workaround_ :: (),
                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-sagemaker-userprofile-applifecyclemanagement.html#cfn-sagemaker-userprofile-applifecyclemanagement-idlesettings>
                                    AppLifecycleManagementProperty -> Maybe IdleSettingsProperty
idleSettings :: (Prelude.Maybe IdleSettingsProperty)}
  deriving stock (AppLifecycleManagementProperty
-> AppLifecycleManagementProperty -> Bool
(AppLifecycleManagementProperty
 -> AppLifecycleManagementProperty -> Bool)
-> (AppLifecycleManagementProperty
    -> AppLifecycleManagementProperty -> Bool)
-> Eq AppLifecycleManagementProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AppLifecycleManagementProperty
-> AppLifecycleManagementProperty -> Bool
== :: AppLifecycleManagementProperty
-> AppLifecycleManagementProperty -> Bool
$c/= :: AppLifecycleManagementProperty
-> AppLifecycleManagementProperty -> Bool
/= :: AppLifecycleManagementProperty
-> AppLifecycleManagementProperty -> Bool
Prelude.Eq, Int -> AppLifecycleManagementProperty -> ShowS
[AppLifecycleManagementProperty] -> ShowS
AppLifecycleManagementProperty -> String
(Int -> AppLifecycleManagementProperty -> ShowS)
-> (AppLifecycleManagementProperty -> String)
-> ([AppLifecycleManagementProperty] -> ShowS)
-> Show AppLifecycleManagementProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AppLifecycleManagementProperty -> ShowS
showsPrec :: Int -> AppLifecycleManagementProperty -> ShowS
$cshow :: AppLifecycleManagementProperty -> String
show :: AppLifecycleManagementProperty -> String
$cshowList :: [AppLifecycleManagementProperty] -> ShowS
showList :: [AppLifecycleManagementProperty] -> ShowS
Prelude.Show)
mkAppLifecycleManagementProperty :: AppLifecycleManagementProperty
mkAppLifecycleManagementProperty :: AppLifecycleManagementProperty
mkAppLifecycleManagementProperty
  = AppLifecycleManagementProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), idleSettings :: Maybe IdleSettingsProperty
idleSettings = Maybe IdleSettingsProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties AppLifecycleManagementProperty where
  toResourceProperties :: AppLifecycleManagementProperty -> ResourceProperties
toResourceProperties AppLifecycleManagementProperty {Maybe IdleSettingsProperty
()
haddock_workaround_ :: AppLifecycleManagementProperty -> ()
idleSettings :: AppLifecycleManagementProperty -> Maybe IdleSettingsProperty
haddock_workaround_ :: ()
idleSettings :: Maybe IdleSettingsProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::SageMaker::UserProfile.AppLifecycleManagement",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> IdleSettingsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"IdleSettings" (IdleSettingsProperty -> (Key, Value))
-> Maybe IdleSettingsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe IdleSettingsProperty
idleSettings])}
instance JSON.ToJSON AppLifecycleManagementProperty where
  toJSON :: AppLifecycleManagementProperty -> Value
toJSON AppLifecycleManagementProperty {Maybe IdleSettingsProperty
()
haddock_workaround_ :: AppLifecycleManagementProperty -> ()
idleSettings :: AppLifecycleManagementProperty -> Maybe IdleSettingsProperty
haddock_workaround_ :: ()
idleSettings :: Maybe IdleSettingsProperty
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> IdleSettingsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"IdleSettings" (IdleSettingsProperty -> (Key, Value))
-> Maybe IdleSettingsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe IdleSettingsProperty
idleSettings]))
instance Property "IdleSettings" AppLifecycleManagementProperty where
  type PropertyType "IdleSettings" AppLifecycleManagementProperty = IdleSettingsProperty
  set :: PropertyType "IdleSettings" AppLifecycleManagementProperty
-> AppLifecycleManagementProperty -> AppLifecycleManagementProperty
set PropertyType "IdleSettings" AppLifecycleManagementProperty
newValue AppLifecycleManagementProperty {Maybe IdleSettingsProperty
()
haddock_workaround_ :: AppLifecycleManagementProperty -> ()
idleSettings :: AppLifecycleManagementProperty -> Maybe IdleSettingsProperty
haddock_workaround_ :: ()
idleSettings :: Maybe IdleSettingsProperty
..}
    = AppLifecycleManagementProperty
        {idleSettings :: Maybe IdleSettingsProperty
idleSettings = IdleSettingsProperty -> Maybe IdleSettingsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "IdleSettings" AppLifecycleManagementProperty
IdleSettingsProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}