module Stratosphere.IoTFleetWise.Campaign.DataPartitionStorageOptionsProperty (
module Exports, DataPartitionStorageOptionsProperty(..),
mkDataPartitionStorageOptionsProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.IoTFleetWise.Campaign.StorageMaximumSizeProperty as Exports
import {-# SOURCE #-} Stratosphere.IoTFleetWise.Campaign.StorageMinimumTimeToLiveProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data DataPartitionStorageOptionsProperty
=
DataPartitionStorageOptionsProperty {DataPartitionStorageOptionsProperty -> ()
haddock_workaround_ :: (),
DataPartitionStorageOptionsProperty -> StorageMaximumSizeProperty
maximumSize :: StorageMaximumSizeProperty,
DataPartitionStorageOptionsProperty
-> StorageMinimumTimeToLiveProperty
minimumTimeToLive :: StorageMinimumTimeToLiveProperty,
DataPartitionStorageOptionsProperty -> Value Text
storageLocation :: (Value Prelude.Text)}
deriving stock (DataPartitionStorageOptionsProperty
-> DataPartitionStorageOptionsProperty -> Bool
(DataPartitionStorageOptionsProperty
-> DataPartitionStorageOptionsProperty -> Bool)
-> (DataPartitionStorageOptionsProperty
-> DataPartitionStorageOptionsProperty -> Bool)
-> Eq DataPartitionStorageOptionsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DataPartitionStorageOptionsProperty
-> DataPartitionStorageOptionsProperty -> Bool
== :: DataPartitionStorageOptionsProperty
-> DataPartitionStorageOptionsProperty -> Bool
$c/= :: DataPartitionStorageOptionsProperty
-> DataPartitionStorageOptionsProperty -> Bool
/= :: DataPartitionStorageOptionsProperty
-> DataPartitionStorageOptionsProperty -> Bool
Prelude.Eq, Int -> DataPartitionStorageOptionsProperty -> ShowS
[DataPartitionStorageOptionsProperty] -> ShowS
DataPartitionStorageOptionsProperty -> String
(Int -> DataPartitionStorageOptionsProperty -> ShowS)
-> (DataPartitionStorageOptionsProperty -> String)
-> ([DataPartitionStorageOptionsProperty] -> ShowS)
-> Show DataPartitionStorageOptionsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DataPartitionStorageOptionsProperty -> ShowS
showsPrec :: Int -> DataPartitionStorageOptionsProperty -> ShowS
$cshow :: DataPartitionStorageOptionsProperty -> String
show :: DataPartitionStorageOptionsProperty -> String
$cshowList :: [DataPartitionStorageOptionsProperty] -> ShowS
showList :: [DataPartitionStorageOptionsProperty] -> ShowS
Prelude.Show)
mkDataPartitionStorageOptionsProperty ::
StorageMaximumSizeProperty
-> StorageMinimumTimeToLiveProperty
-> Value Prelude.Text -> DataPartitionStorageOptionsProperty
mkDataPartitionStorageOptionsProperty :: StorageMaximumSizeProperty
-> StorageMinimumTimeToLiveProperty
-> Value Text
-> DataPartitionStorageOptionsProperty
mkDataPartitionStorageOptionsProperty
StorageMaximumSizeProperty
maximumSize
StorageMinimumTimeToLiveProperty
minimumTimeToLive
Value Text
storageLocation
= DataPartitionStorageOptionsProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), maximumSize :: StorageMaximumSizeProperty
maximumSize = StorageMaximumSizeProperty
maximumSize,
minimumTimeToLive :: StorageMinimumTimeToLiveProperty
minimumTimeToLive = StorageMinimumTimeToLiveProperty
minimumTimeToLive,
storageLocation :: Value Text
storageLocation = Value Text
storageLocation}
instance ToResourceProperties DataPartitionStorageOptionsProperty where
toResourceProperties :: DataPartitionStorageOptionsProperty -> ResourceProperties
toResourceProperties DataPartitionStorageOptionsProperty {()
Value Text
StorageMaximumSizeProperty
StorageMinimumTimeToLiveProperty
haddock_workaround_ :: DataPartitionStorageOptionsProperty -> ()
maximumSize :: DataPartitionStorageOptionsProperty -> StorageMaximumSizeProperty
minimumTimeToLive :: DataPartitionStorageOptionsProperty
-> StorageMinimumTimeToLiveProperty
storageLocation :: DataPartitionStorageOptionsProperty -> Value Text
haddock_workaround_ :: ()
maximumSize :: StorageMaximumSizeProperty
minimumTimeToLive :: StorageMinimumTimeToLiveProperty
storageLocation :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::IoTFleetWise::Campaign.DataPartitionStorageOptions",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"MaximumSize" Key -> StorageMaximumSizeProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= StorageMaximumSizeProperty
maximumSize,
Key
"MinimumTimeToLive" Key -> StorageMinimumTimeToLiveProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= StorageMinimumTimeToLiveProperty
minimumTimeToLive,
Key
"StorageLocation" 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
storageLocation]}
instance JSON.ToJSON DataPartitionStorageOptionsProperty where
toJSON :: DataPartitionStorageOptionsProperty -> Value
toJSON DataPartitionStorageOptionsProperty {()
Value Text
StorageMaximumSizeProperty
StorageMinimumTimeToLiveProperty
haddock_workaround_ :: DataPartitionStorageOptionsProperty -> ()
maximumSize :: DataPartitionStorageOptionsProperty -> StorageMaximumSizeProperty
minimumTimeToLive :: DataPartitionStorageOptionsProperty
-> StorageMinimumTimeToLiveProperty
storageLocation :: DataPartitionStorageOptionsProperty -> Value Text
haddock_workaround_ :: ()
maximumSize :: StorageMaximumSizeProperty
minimumTimeToLive :: StorageMinimumTimeToLiveProperty
storageLocation :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"MaximumSize" Key -> StorageMaximumSizeProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= StorageMaximumSizeProperty
maximumSize,
Key
"MinimumTimeToLive" Key -> StorageMinimumTimeToLiveProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= StorageMinimumTimeToLiveProperty
minimumTimeToLive,
Key
"StorageLocation" 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
storageLocation]
instance Property "MaximumSize" DataPartitionStorageOptionsProperty where
type PropertyType "MaximumSize" DataPartitionStorageOptionsProperty = StorageMaximumSizeProperty
set :: PropertyType "MaximumSize" DataPartitionStorageOptionsProperty
-> DataPartitionStorageOptionsProperty
-> DataPartitionStorageOptionsProperty
set PropertyType "MaximumSize" DataPartitionStorageOptionsProperty
newValue DataPartitionStorageOptionsProperty {()
Value Text
StorageMaximumSizeProperty
StorageMinimumTimeToLiveProperty
haddock_workaround_ :: DataPartitionStorageOptionsProperty -> ()
maximumSize :: DataPartitionStorageOptionsProperty -> StorageMaximumSizeProperty
minimumTimeToLive :: DataPartitionStorageOptionsProperty
-> StorageMinimumTimeToLiveProperty
storageLocation :: DataPartitionStorageOptionsProperty -> Value Text
haddock_workaround_ :: ()
maximumSize :: StorageMaximumSizeProperty
minimumTimeToLive :: StorageMinimumTimeToLiveProperty
storageLocation :: Value Text
..}
= DataPartitionStorageOptionsProperty {maximumSize :: StorageMaximumSizeProperty
maximumSize = PropertyType "MaximumSize" DataPartitionStorageOptionsProperty
StorageMaximumSizeProperty
newValue, ()
Value Text
StorageMinimumTimeToLiveProperty
haddock_workaround_ :: ()
minimumTimeToLive :: StorageMinimumTimeToLiveProperty
storageLocation :: Value Text
haddock_workaround_ :: ()
minimumTimeToLive :: StorageMinimumTimeToLiveProperty
storageLocation :: Value Text
..}
instance Property "MinimumTimeToLive" DataPartitionStorageOptionsProperty where
type PropertyType "MinimumTimeToLive" DataPartitionStorageOptionsProperty = StorageMinimumTimeToLiveProperty
set :: PropertyType
"MinimumTimeToLive" DataPartitionStorageOptionsProperty
-> DataPartitionStorageOptionsProperty
-> DataPartitionStorageOptionsProperty
set PropertyType
"MinimumTimeToLive" DataPartitionStorageOptionsProperty
newValue DataPartitionStorageOptionsProperty {()
Value Text
StorageMaximumSizeProperty
StorageMinimumTimeToLiveProperty
haddock_workaround_ :: DataPartitionStorageOptionsProperty -> ()
maximumSize :: DataPartitionStorageOptionsProperty -> StorageMaximumSizeProperty
minimumTimeToLive :: DataPartitionStorageOptionsProperty
-> StorageMinimumTimeToLiveProperty
storageLocation :: DataPartitionStorageOptionsProperty -> Value Text
haddock_workaround_ :: ()
maximumSize :: StorageMaximumSizeProperty
minimumTimeToLive :: StorageMinimumTimeToLiveProperty
storageLocation :: Value Text
..}
= DataPartitionStorageOptionsProperty
{minimumTimeToLive :: StorageMinimumTimeToLiveProperty
minimumTimeToLive = PropertyType
"MinimumTimeToLive" DataPartitionStorageOptionsProperty
StorageMinimumTimeToLiveProperty
newValue, ()
Value Text
StorageMaximumSizeProperty
haddock_workaround_ :: ()
maximumSize :: StorageMaximumSizeProperty
storageLocation :: Value Text
haddock_workaround_ :: ()
maximumSize :: StorageMaximumSizeProperty
storageLocation :: Value Text
..}
instance Property "StorageLocation" DataPartitionStorageOptionsProperty where
type PropertyType "StorageLocation" DataPartitionStorageOptionsProperty = Value Prelude.Text
set :: PropertyType "StorageLocation" DataPartitionStorageOptionsProperty
-> DataPartitionStorageOptionsProperty
-> DataPartitionStorageOptionsProperty
set PropertyType "StorageLocation" DataPartitionStorageOptionsProperty
newValue DataPartitionStorageOptionsProperty {()
Value Text
StorageMaximumSizeProperty
StorageMinimumTimeToLiveProperty
haddock_workaround_ :: DataPartitionStorageOptionsProperty -> ()
maximumSize :: DataPartitionStorageOptionsProperty -> StorageMaximumSizeProperty
minimumTimeToLive :: DataPartitionStorageOptionsProperty
-> StorageMinimumTimeToLiveProperty
storageLocation :: DataPartitionStorageOptionsProperty -> Value Text
haddock_workaround_ :: ()
maximumSize :: StorageMaximumSizeProperty
minimumTimeToLive :: StorageMinimumTimeToLiveProperty
storageLocation :: Value Text
..}
= DataPartitionStorageOptionsProperty
{storageLocation :: Value Text
storageLocation = PropertyType "StorageLocation" DataPartitionStorageOptionsProperty
Value Text
newValue, ()
StorageMaximumSizeProperty
StorageMinimumTimeToLiveProperty
haddock_workaround_ :: ()
maximumSize :: StorageMaximumSizeProperty
minimumTimeToLive :: StorageMinimumTimeToLiveProperty
haddock_workaround_ :: ()
maximumSize :: StorageMaximumSizeProperty
minimumTimeToLive :: StorageMinimumTimeToLiveProperty
..}