{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.OpsWorks.Types.RaidArray where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
data RaidArray = RaidArray'
{
RaidArray -> Maybe Text
availabilityZone :: Prelude.Maybe Prelude.Text,
RaidArray -> Maybe Text
createdAt :: Prelude.Maybe Prelude.Text,
RaidArray -> Maybe Text
device :: Prelude.Maybe Prelude.Text,
RaidArray -> Maybe Text
instanceId :: Prelude.Maybe Prelude.Text,
RaidArray -> Maybe Int
iops :: Prelude.Maybe Prelude.Int,
RaidArray -> Maybe Text
mountPoint :: Prelude.Maybe Prelude.Text,
RaidArray -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
RaidArray -> Maybe Int
numberOfDisks :: Prelude.Maybe Prelude.Int,
RaidArray -> Maybe Text
raidArrayId :: Prelude.Maybe Prelude.Text,
RaidArray -> Maybe Int
raidLevel :: Prelude.Maybe Prelude.Int,
RaidArray -> Maybe Int
size :: Prelude.Maybe Prelude.Int,
RaidArray -> Maybe Text
stackId :: Prelude.Maybe Prelude.Text,
RaidArray -> Maybe Text
volumeType :: Prelude.Maybe Prelude.Text
}
deriving (RaidArray -> RaidArray -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RaidArray -> RaidArray -> Bool
$c/= :: RaidArray -> RaidArray -> Bool
== :: RaidArray -> RaidArray -> Bool
$c== :: RaidArray -> RaidArray -> Bool
Prelude.Eq, ReadPrec [RaidArray]
ReadPrec RaidArray
Int -> ReadS RaidArray
ReadS [RaidArray]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RaidArray]
$creadListPrec :: ReadPrec [RaidArray]
readPrec :: ReadPrec RaidArray
$creadPrec :: ReadPrec RaidArray
readList :: ReadS [RaidArray]
$creadList :: ReadS [RaidArray]
readsPrec :: Int -> ReadS RaidArray
$creadsPrec :: Int -> ReadS RaidArray
Prelude.Read, Int -> RaidArray -> ShowS
[RaidArray] -> ShowS
RaidArray -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RaidArray] -> ShowS
$cshowList :: [RaidArray] -> ShowS
show :: RaidArray -> String
$cshow :: RaidArray -> String
showsPrec :: Int -> RaidArray -> ShowS
$cshowsPrec :: Int -> RaidArray -> ShowS
Prelude.Show, forall x. Rep RaidArray x -> RaidArray
forall x. RaidArray -> Rep RaidArray x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RaidArray x -> RaidArray
$cfrom :: forall x. RaidArray -> Rep RaidArray x
Prelude.Generic)
newRaidArray ::
RaidArray
newRaidArray :: RaidArray
newRaidArray =
RaidArray'
{ $sel:availabilityZone:RaidArray' :: Maybe Text
availabilityZone = forall a. Maybe a
Prelude.Nothing,
$sel:createdAt:RaidArray' :: Maybe Text
createdAt = forall a. Maybe a
Prelude.Nothing,
$sel:device:RaidArray' :: Maybe Text
device = forall a. Maybe a
Prelude.Nothing,
$sel:instanceId:RaidArray' :: Maybe Text
instanceId = forall a. Maybe a
Prelude.Nothing,
$sel:iops:RaidArray' :: Maybe Int
iops = forall a. Maybe a
Prelude.Nothing,
$sel:mountPoint:RaidArray' :: Maybe Text
mountPoint = forall a. Maybe a
Prelude.Nothing,
$sel:name:RaidArray' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:numberOfDisks:RaidArray' :: Maybe Int
numberOfDisks = forall a. Maybe a
Prelude.Nothing,
$sel:raidArrayId:RaidArray' :: Maybe Text
raidArrayId = forall a. Maybe a
Prelude.Nothing,
$sel:raidLevel:RaidArray' :: Maybe Int
raidLevel = forall a. Maybe a
Prelude.Nothing,
$sel:size:RaidArray' :: Maybe Int
size = forall a. Maybe a
Prelude.Nothing,
$sel:stackId:RaidArray' :: Maybe Text
stackId = forall a. Maybe a
Prelude.Nothing,
$sel:volumeType:RaidArray' :: Maybe Text
volumeType = forall a. Maybe a
Prelude.Nothing
}
raidArray_availabilityZone :: Lens.Lens' RaidArray (Prelude.Maybe Prelude.Text)
raidArray_availabilityZone :: Lens' RaidArray (Maybe Text)
raidArray_availabilityZone = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RaidArray' {Maybe Text
availabilityZone :: Maybe Text
$sel:availabilityZone:RaidArray' :: RaidArray -> Maybe Text
availabilityZone} -> Maybe Text
availabilityZone) (\s :: RaidArray
s@RaidArray' {} Maybe Text
a -> RaidArray
s {$sel:availabilityZone:RaidArray' :: Maybe Text
availabilityZone = Maybe Text
a} :: RaidArray)
raidArray_createdAt :: Lens.Lens' RaidArray (Prelude.Maybe Prelude.Text)
raidArray_createdAt :: Lens' RaidArray (Maybe Text)
raidArray_createdAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RaidArray' {Maybe Text
createdAt :: Maybe Text
$sel:createdAt:RaidArray' :: RaidArray -> Maybe Text
createdAt} -> Maybe Text
createdAt) (\s :: RaidArray
s@RaidArray' {} Maybe Text
a -> RaidArray
s {$sel:createdAt:RaidArray' :: Maybe Text
createdAt = Maybe Text
a} :: RaidArray)
raidArray_device :: Lens.Lens' RaidArray (Prelude.Maybe Prelude.Text)
raidArray_device :: Lens' RaidArray (Maybe Text)
raidArray_device = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RaidArray' {Maybe Text
device :: Maybe Text
$sel:device:RaidArray' :: RaidArray -> Maybe Text
device} -> Maybe Text
device) (\s :: RaidArray
s@RaidArray' {} Maybe Text
a -> RaidArray
s {$sel:device:RaidArray' :: Maybe Text
device = Maybe Text
a} :: RaidArray)
raidArray_instanceId :: Lens.Lens' RaidArray (Prelude.Maybe Prelude.Text)
raidArray_instanceId :: Lens' RaidArray (Maybe Text)
raidArray_instanceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RaidArray' {Maybe Text
instanceId :: Maybe Text
$sel:instanceId:RaidArray' :: RaidArray -> Maybe Text
instanceId} -> Maybe Text
instanceId) (\s :: RaidArray
s@RaidArray' {} Maybe Text
a -> RaidArray
s {$sel:instanceId:RaidArray' :: Maybe Text
instanceId = Maybe Text
a} :: RaidArray)
raidArray_iops :: Lens.Lens' RaidArray (Prelude.Maybe Prelude.Int)
raidArray_iops :: Lens' RaidArray (Maybe Int)
raidArray_iops = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RaidArray' {Maybe Int
iops :: Maybe Int
$sel:iops:RaidArray' :: RaidArray -> Maybe Int
iops} -> Maybe Int
iops) (\s :: RaidArray
s@RaidArray' {} Maybe Int
a -> RaidArray
s {$sel:iops:RaidArray' :: Maybe Int
iops = Maybe Int
a} :: RaidArray)
raidArray_mountPoint :: Lens.Lens' RaidArray (Prelude.Maybe Prelude.Text)
raidArray_mountPoint :: Lens' RaidArray (Maybe Text)
raidArray_mountPoint = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RaidArray' {Maybe Text
mountPoint :: Maybe Text
$sel:mountPoint:RaidArray' :: RaidArray -> Maybe Text
mountPoint} -> Maybe Text
mountPoint) (\s :: RaidArray
s@RaidArray' {} Maybe Text
a -> RaidArray
s {$sel:mountPoint:RaidArray' :: Maybe Text
mountPoint = Maybe Text
a} :: RaidArray)
raidArray_name :: Lens.Lens' RaidArray (Prelude.Maybe Prelude.Text)
raidArray_name :: Lens' RaidArray (Maybe Text)
raidArray_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RaidArray' {Maybe Text
name :: Maybe Text
$sel:name:RaidArray' :: RaidArray -> Maybe Text
name} -> Maybe Text
name) (\s :: RaidArray
s@RaidArray' {} Maybe Text
a -> RaidArray
s {$sel:name:RaidArray' :: Maybe Text
name = Maybe Text
a} :: RaidArray)
raidArray_numberOfDisks :: Lens.Lens' RaidArray (Prelude.Maybe Prelude.Int)
raidArray_numberOfDisks :: Lens' RaidArray (Maybe Int)
raidArray_numberOfDisks = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RaidArray' {Maybe Int
numberOfDisks :: Maybe Int
$sel:numberOfDisks:RaidArray' :: RaidArray -> Maybe Int
numberOfDisks} -> Maybe Int
numberOfDisks) (\s :: RaidArray
s@RaidArray' {} Maybe Int
a -> RaidArray
s {$sel:numberOfDisks:RaidArray' :: Maybe Int
numberOfDisks = Maybe Int
a} :: RaidArray)
raidArray_raidArrayId :: Lens.Lens' RaidArray (Prelude.Maybe Prelude.Text)
raidArray_raidArrayId :: Lens' RaidArray (Maybe Text)
raidArray_raidArrayId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RaidArray' {Maybe Text
raidArrayId :: Maybe Text
$sel:raidArrayId:RaidArray' :: RaidArray -> Maybe Text
raidArrayId} -> Maybe Text
raidArrayId) (\s :: RaidArray
s@RaidArray' {} Maybe Text
a -> RaidArray
s {$sel:raidArrayId:RaidArray' :: Maybe Text
raidArrayId = Maybe Text
a} :: RaidArray)
raidArray_raidLevel :: Lens.Lens' RaidArray (Prelude.Maybe Prelude.Int)
raidArray_raidLevel :: Lens' RaidArray (Maybe Int)
raidArray_raidLevel = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RaidArray' {Maybe Int
raidLevel :: Maybe Int
$sel:raidLevel:RaidArray' :: RaidArray -> Maybe Int
raidLevel} -> Maybe Int
raidLevel) (\s :: RaidArray
s@RaidArray' {} Maybe Int
a -> RaidArray
s {$sel:raidLevel:RaidArray' :: Maybe Int
raidLevel = Maybe Int
a} :: RaidArray)
raidArray_size :: Lens.Lens' RaidArray (Prelude.Maybe Prelude.Int)
raidArray_size :: Lens' RaidArray (Maybe Int)
raidArray_size = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RaidArray' {Maybe Int
size :: Maybe Int
$sel:size:RaidArray' :: RaidArray -> Maybe Int
size} -> Maybe Int
size) (\s :: RaidArray
s@RaidArray' {} Maybe Int
a -> RaidArray
s {$sel:size:RaidArray' :: Maybe Int
size = Maybe Int
a} :: RaidArray)
raidArray_stackId :: Lens.Lens' RaidArray (Prelude.Maybe Prelude.Text)
raidArray_stackId :: Lens' RaidArray (Maybe Text)
raidArray_stackId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RaidArray' {Maybe Text
stackId :: Maybe Text
$sel:stackId:RaidArray' :: RaidArray -> Maybe Text
stackId} -> Maybe Text
stackId) (\s :: RaidArray
s@RaidArray' {} Maybe Text
a -> RaidArray
s {$sel:stackId:RaidArray' :: Maybe Text
stackId = Maybe Text
a} :: RaidArray)
raidArray_volumeType :: Lens.Lens' RaidArray (Prelude.Maybe Prelude.Text)
raidArray_volumeType :: Lens' RaidArray (Maybe Text)
raidArray_volumeType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RaidArray' {Maybe Text
volumeType :: Maybe Text
$sel:volumeType:RaidArray' :: RaidArray -> Maybe Text
volumeType} -> Maybe Text
volumeType) (\s :: RaidArray
s@RaidArray' {} Maybe Text
a -> RaidArray
s {$sel:volumeType:RaidArray' :: Maybe Text
volumeType = Maybe Text
a} :: RaidArray)
instance Data.FromJSON RaidArray where
parseJSON :: Value -> Parser RaidArray
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"RaidArray"
( \Object
x ->
Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Int
-> Maybe Text
-> Maybe Text
-> Maybe Int
-> Maybe Text
-> Maybe Int
-> Maybe Int
-> Maybe Text
-> Maybe Text
-> RaidArray
RaidArray'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"AvailabilityZone")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"CreatedAt")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Device")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"InstanceId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Iops")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"MountPoint")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Name")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"NumberOfDisks")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"RaidArrayId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"RaidLevel")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"Size")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"StackId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"VolumeType")
)
instance Prelude.Hashable RaidArray where
hashWithSalt :: Int -> RaidArray -> Int
hashWithSalt Int
_salt RaidArray' {Maybe Int
Maybe Text
volumeType :: Maybe Text
stackId :: Maybe Text
size :: Maybe Int
raidLevel :: Maybe Int
raidArrayId :: Maybe Text
numberOfDisks :: Maybe Int
name :: Maybe Text
mountPoint :: Maybe Text
iops :: Maybe Int
instanceId :: Maybe Text
device :: Maybe Text
createdAt :: Maybe Text
availabilityZone :: Maybe Text
$sel:volumeType:RaidArray' :: RaidArray -> Maybe Text
$sel:stackId:RaidArray' :: RaidArray -> Maybe Text
$sel:size:RaidArray' :: RaidArray -> Maybe Int
$sel:raidLevel:RaidArray' :: RaidArray -> Maybe Int
$sel:raidArrayId:RaidArray' :: RaidArray -> Maybe Text
$sel:numberOfDisks:RaidArray' :: RaidArray -> Maybe Int
$sel:name:RaidArray' :: RaidArray -> Maybe Text
$sel:mountPoint:RaidArray' :: RaidArray -> Maybe Text
$sel:iops:RaidArray' :: RaidArray -> Maybe Int
$sel:instanceId:RaidArray' :: RaidArray -> Maybe Text
$sel:device:RaidArray' :: RaidArray -> Maybe Text
$sel:createdAt:RaidArray' :: RaidArray -> Maybe Text
$sel:availabilityZone:RaidArray' :: RaidArray -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
availabilityZone
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
createdAt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
device
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
instanceId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
iops
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
mountPoint
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
numberOfDisks
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
raidArrayId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
raidLevel
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
size
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
stackId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
volumeType
instance Prelude.NFData RaidArray where
rnf :: RaidArray -> ()
rnf RaidArray' {Maybe Int
Maybe Text
volumeType :: Maybe Text
stackId :: Maybe Text
size :: Maybe Int
raidLevel :: Maybe Int
raidArrayId :: Maybe Text
numberOfDisks :: Maybe Int
name :: Maybe Text
mountPoint :: Maybe Text
iops :: Maybe Int
instanceId :: Maybe Text
device :: Maybe Text
createdAt :: Maybe Text
availabilityZone :: Maybe Text
$sel:volumeType:RaidArray' :: RaidArray -> Maybe Text
$sel:stackId:RaidArray' :: RaidArray -> Maybe Text
$sel:size:RaidArray' :: RaidArray -> Maybe Int
$sel:raidLevel:RaidArray' :: RaidArray -> Maybe Int
$sel:raidArrayId:RaidArray' :: RaidArray -> Maybe Text
$sel:numberOfDisks:RaidArray' :: RaidArray -> Maybe Int
$sel:name:RaidArray' :: RaidArray -> Maybe Text
$sel:mountPoint:RaidArray' :: RaidArray -> Maybe Text
$sel:iops:RaidArray' :: RaidArray -> Maybe Int
$sel:instanceId:RaidArray' :: RaidArray -> Maybe Text
$sel:device:RaidArray' :: RaidArray -> Maybe Text
$sel:createdAt:RaidArray' :: RaidArray -> Maybe Text
$sel:availabilityZone:RaidArray' :: RaidArray -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
availabilityZone
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
createdAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
device
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
instanceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
iops
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
mountPoint
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
numberOfDisks
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
raidArrayId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
raidLevel
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
size
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
stackId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
volumeType