module Stratosphere.Batch.JobDefinition.LinuxParametersProperty (
        module Exports, LinuxParametersProperty(..),
        mkLinuxParametersProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Batch.JobDefinition.DeviceProperty as Exports
import {-# SOURCE #-} Stratosphere.Batch.JobDefinition.TmpfsProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data LinuxParametersProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-linuxparameters.html>
    LinuxParametersProperty {LinuxParametersProperty -> ()
haddock_workaround_ :: (),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-linuxparameters.html#cfn-batch-jobdefinition-linuxparameters-devices>
                             LinuxParametersProperty -> Maybe [DeviceProperty]
devices :: (Prelude.Maybe [DeviceProperty]),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-linuxparameters.html#cfn-batch-jobdefinition-linuxparameters-initprocessenabled>
                             LinuxParametersProperty -> Maybe (Value Bool)
initProcessEnabled :: (Prelude.Maybe (Value Prelude.Bool)),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-linuxparameters.html#cfn-batch-jobdefinition-linuxparameters-maxswap>
                             LinuxParametersProperty -> Maybe (Value Integer)
maxSwap :: (Prelude.Maybe (Value Prelude.Integer)),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-linuxparameters.html#cfn-batch-jobdefinition-linuxparameters-sharedmemorysize>
                             LinuxParametersProperty -> Maybe (Value Integer)
sharedMemorySize :: (Prelude.Maybe (Value Prelude.Integer)),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-linuxparameters.html#cfn-batch-jobdefinition-linuxparameters-swappiness>
                             LinuxParametersProperty -> Maybe (Value Integer)
swappiness :: (Prelude.Maybe (Value Prelude.Integer)),
                             -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-batch-jobdefinition-linuxparameters.html#cfn-batch-jobdefinition-linuxparameters-tmpfs>
                             LinuxParametersProperty -> Maybe [TmpfsProperty]
tmpfs :: (Prelude.Maybe [TmpfsProperty])}
  deriving stock (LinuxParametersProperty -> LinuxParametersProperty -> Bool
(LinuxParametersProperty -> LinuxParametersProperty -> Bool)
-> (LinuxParametersProperty -> LinuxParametersProperty -> Bool)
-> Eq LinuxParametersProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LinuxParametersProperty -> LinuxParametersProperty -> Bool
== :: LinuxParametersProperty -> LinuxParametersProperty -> Bool
$c/= :: LinuxParametersProperty -> LinuxParametersProperty -> Bool
/= :: LinuxParametersProperty -> LinuxParametersProperty -> Bool
Prelude.Eq, Int -> LinuxParametersProperty -> ShowS
[LinuxParametersProperty] -> ShowS
LinuxParametersProperty -> String
(Int -> LinuxParametersProperty -> ShowS)
-> (LinuxParametersProperty -> String)
-> ([LinuxParametersProperty] -> ShowS)
-> Show LinuxParametersProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LinuxParametersProperty -> ShowS
showsPrec :: Int -> LinuxParametersProperty -> ShowS
$cshow :: LinuxParametersProperty -> String
show :: LinuxParametersProperty -> String
$cshowList :: [LinuxParametersProperty] -> ShowS
showList :: [LinuxParametersProperty] -> ShowS
Prelude.Show)
mkLinuxParametersProperty :: LinuxParametersProperty
mkLinuxParametersProperty :: LinuxParametersProperty
mkLinuxParametersProperty
  = LinuxParametersProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), devices :: Maybe [DeviceProperty]
devices = Maybe [DeviceProperty]
forall a. Maybe a
Prelude.Nothing,
       initProcessEnabled :: Maybe (Value Bool)
initProcessEnabled = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing, maxSwap :: Maybe (Value Integer)
maxSwap = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       sharedMemorySize :: Maybe (Value Integer)
sharedMemorySize = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing, swappiness :: Maybe (Value Integer)
swappiness = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       tmpfs :: Maybe [TmpfsProperty]
tmpfs = Maybe [TmpfsProperty]
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties LinuxParametersProperty where
  toResourceProperties :: LinuxParametersProperty -> ResourceProperties
toResourceProperties LinuxParametersProperty {Maybe [DeviceProperty]
Maybe [TmpfsProperty]
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: LinuxParametersProperty -> ()
devices :: LinuxParametersProperty -> Maybe [DeviceProperty]
initProcessEnabled :: LinuxParametersProperty -> Maybe (Value Bool)
maxSwap :: LinuxParametersProperty -> Maybe (Value Integer)
sharedMemorySize :: LinuxParametersProperty -> Maybe (Value Integer)
swappiness :: LinuxParametersProperty -> Maybe (Value Integer)
tmpfs :: LinuxParametersProperty -> Maybe [TmpfsProperty]
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Batch::JobDefinition.LinuxParameters",
         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 -> [DeviceProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Devices" ([DeviceProperty] -> (Key, Value))
-> Maybe [DeviceProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [DeviceProperty]
devices,
                            Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InitProcessEnabled" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
initProcessEnabled,
                            Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"MaxSwap" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
maxSwap,
                            Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SharedMemorySize" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
sharedMemorySize,
                            Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Swappiness" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
swappiness,
                            Key -> [TmpfsProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tmpfs" ([TmpfsProperty] -> (Key, Value))
-> Maybe [TmpfsProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [TmpfsProperty]
tmpfs])}
instance JSON.ToJSON LinuxParametersProperty where
  toJSON :: LinuxParametersProperty -> Value
toJSON LinuxParametersProperty {Maybe [DeviceProperty]
Maybe [TmpfsProperty]
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: LinuxParametersProperty -> ()
devices :: LinuxParametersProperty -> Maybe [DeviceProperty]
initProcessEnabled :: LinuxParametersProperty -> Maybe (Value Bool)
maxSwap :: LinuxParametersProperty -> Maybe (Value Integer)
sharedMemorySize :: LinuxParametersProperty -> Maybe (Value Integer)
swappiness :: LinuxParametersProperty -> Maybe (Value Integer)
tmpfs :: LinuxParametersProperty -> Maybe [TmpfsProperty]
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
..}
    = [(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 -> [DeviceProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Devices" ([DeviceProperty] -> (Key, Value))
-> Maybe [DeviceProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [DeviceProperty]
devices,
               Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InitProcessEnabled" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
initProcessEnabled,
               Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"MaxSwap" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
maxSwap,
               Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SharedMemorySize" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
sharedMemorySize,
               Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Swappiness" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
swappiness,
               Key -> [TmpfsProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tmpfs" ([TmpfsProperty] -> (Key, Value))
-> Maybe [TmpfsProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [TmpfsProperty]
tmpfs]))
instance Property "Devices" LinuxParametersProperty where
  type PropertyType "Devices" LinuxParametersProperty = [DeviceProperty]
  set :: PropertyType "Devices" LinuxParametersProperty
-> LinuxParametersProperty -> LinuxParametersProperty
set PropertyType "Devices" LinuxParametersProperty
newValue LinuxParametersProperty {Maybe [DeviceProperty]
Maybe [TmpfsProperty]
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: LinuxParametersProperty -> ()
devices :: LinuxParametersProperty -> Maybe [DeviceProperty]
initProcessEnabled :: LinuxParametersProperty -> Maybe (Value Bool)
maxSwap :: LinuxParametersProperty -> Maybe (Value Integer)
sharedMemorySize :: LinuxParametersProperty -> Maybe (Value Integer)
swappiness :: LinuxParametersProperty -> Maybe (Value Integer)
tmpfs :: LinuxParametersProperty -> Maybe [TmpfsProperty]
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
..}
    = LinuxParametersProperty {devices :: Maybe [DeviceProperty]
devices = [DeviceProperty] -> Maybe [DeviceProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [DeviceProperty]
PropertyType "Devices" LinuxParametersProperty
newValue, Maybe [TmpfsProperty]
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: ()
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
haddock_workaround_ :: ()
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
..}
instance Property "InitProcessEnabled" LinuxParametersProperty where
  type PropertyType "InitProcessEnabled" LinuxParametersProperty = Value Prelude.Bool
  set :: PropertyType "InitProcessEnabled" LinuxParametersProperty
-> LinuxParametersProperty -> LinuxParametersProperty
set PropertyType "InitProcessEnabled" LinuxParametersProperty
newValue LinuxParametersProperty {Maybe [DeviceProperty]
Maybe [TmpfsProperty]
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: LinuxParametersProperty -> ()
devices :: LinuxParametersProperty -> Maybe [DeviceProperty]
initProcessEnabled :: LinuxParametersProperty -> Maybe (Value Bool)
maxSwap :: LinuxParametersProperty -> Maybe (Value Integer)
sharedMemorySize :: LinuxParametersProperty -> Maybe (Value Integer)
swappiness :: LinuxParametersProperty -> Maybe (Value Integer)
tmpfs :: LinuxParametersProperty -> Maybe [TmpfsProperty]
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
..}
    = LinuxParametersProperty
        {initProcessEnabled :: Maybe (Value Bool)
initProcessEnabled = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "InitProcessEnabled" LinuxParametersProperty
Value Bool
newValue, Maybe [DeviceProperty]
Maybe [TmpfsProperty]
Maybe (Value Integer)
()
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
..}
instance Property "MaxSwap" LinuxParametersProperty where
  type PropertyType "MaxSwap" LinuxParametersProperty = Value Prelude.Integer
  set :: PropertyType "MaxSwap" LinuxParametersProperty
-> LinuxParametersProperty -> LinuxParametersProperty
set PropertyType "MaxSwap" LinuxParametersProperty
newValue LinuxParametersProperty {Maybe [DeviceProperty]
Maybe [TmpfsProperty]
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: LinuxParametersProperty -> ()
devices :: LinuxParametersProperty -> Maybe [DeviceProperty]
initProcessEnabled :: LinuxParametersProperty -> Maybe (Value Bool)
maxSwap :: LinuxParametersProperty -> Maybe (Value Integer)
sharedMemorySize :: LinuxParametersProperty -> Maybe (Value Integer)
swappiness :: LinuxParametersProperty -> Maybe (Value Integer)
tmpfs :: LinuxParametersProperty -> Maybe [TmpfsProperty]
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
..}
    = LinuxParametersProperty {maxSwap :: Maybe (Value Integer)
maxSwap = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "MaxSwap" LinuxParametersProperty
Value Integer
newValue, Maybe [DeviceProperty]
Maybe [TmpfsProperty]
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
..}
instance Property "SharedMemorySize" LinuxParametersProperty where
  type PropertyType "SharedMemorySize" LinuxParametersProperty = Value Prelude.Integer
  set :: PropertyType "SharedMemorySize" LinuxParametersProperty
-> LinuxParametersProperty -> LinuxParametersProperty
set PropertyType "SharedMemorySize" LinuxParametersProperty
newValue LinuxParametersProperty {Maybe [DeviceProperty]
Maybe [TmpfsProperty]
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: LinuxParametersProperty -> ()
devices :: LinuxParametersProperty -> Maybe [DeviceProperty]
initProcessEnabled :: LinuxParametersProperty -> Maybe (Value Bool)
maxSwap :: LinuxParametersProperty -> Maybe (Value Integer)
sharedMemorySize :: LinuxParametersProperty -> Maybe (Value Integer)
swappiness :: LinuxParametersProperty -> Maybe (Value Integer)
tmpfs :: LinuxParametersProperty -> Maybe [TmpfsProperty]
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
..}
    = LinuxParametersProperty
        {sharedMemorySize :: Maybe (Value Integer)
sharedMemorySize = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SharedMemorySize" LinuxParametersProperty
Value Integer
newValue, Maybe [DeviceProperty]
Maybe [TmpfsProperty]
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
..}
instance Property "Swappiness" LinuxParametersProperty where
  type PropertyType "Swappiness" LinuxParametersProperty = Value Prelude.Integer
  set :: PropertyType "Swappiness" LinuxParametersProperty
-> LinuxParametersProperty -> LinuxParametersProperty
set PropertyType "Swappiness" LinuxParametersProperty
newValue LinuxParametersProperty {Maybe [DeviceProperty]
Maybe [TmpfsProperty]
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: LinuxParametersProperty -> ()
devices :: LinuxParametersProperty -> Maybe [DeviceProperty]
initProcessEnabled :: LinuxParametersProperty -> Maybe (Value Bool)
maxSwap :: LinuxParametersProperty -> Maybe (Value Integer)
sharedMemorySize :: LinuxParametersProperty -> Maybe (Value Integer)
swappiness :: LinuxParametersProperty -> Maybe (Value Integer)
tmpfs :: LinuxParametersProperty -> Maybe [TmpfsProperty]
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
..}
    = LinuxParametersProperty {swappiness :: Maybe (Value Integer)
swappiness = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Swappiness" LinuxParametersProperty
Value Integer
newValue, Maybe [DeviceProperty]
Maybe [TmpfsProperty]
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
..}
instance Property "Tmpfs" LinuxParametersProperty where
  type PropertyType "Tmpfs" LinuxParametersProperty = [TmpfsProperty]
  set :: PropertyType "Tmpfs" LinuxParametersProperty
-> LinuxParametersProperty -> LinuxParametersProperty
set PropertyType "Tmpfs" LinuxParametersProperty
newValue LinuxParametersProperty {Maybe [DeviceProperty]
Maybe [TmpfsProperty]
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: LinuxParametersProperty -> ()
devices :: LinuxParametersProperty -> Maybe [DeviceProperty]
initProcessEnabled :: LinuxParametersProperty -> Maybe (Value Bool)
maxSwap :: LinuxParametersProperty -> Maybe (Value Integer)
sharedMemorySize :: LinuxParametersProperty -> Maybe (Value Integer)
swappiness :: LinuxParametersProperty -> Maybe (Value Integer)
tmpfs :: LinuxParametersProperty -> Maybe [TmpfsProperty]
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
tmpfs :: Maybe [TmpfsProperty]
..}
    = LinuxParametersProperty {tmpfs :: Maybe [TmpfsProperty]
tmpfs = [TmpfsProperty] -> Maybe [TmpfsProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [TmpfsProperty]
PropertyType "Tmpfs" LinuxParametersProperty
newValue, Maybe [DeviceProperty]
Maybe (Value Bool)
Maybe (Value Integer)
()
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
haddock_workaround_ :: ()
devices :: Maybe [DeviceProperty]
initProcessEnabled :: Maybe (Value Bool)
maxSwap :: Maybe (Value Integer)
sharedMemorySize :: Maybe (Value Integer)
swappiness :: Maybe (Value Integer)
..}