{-# 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.StorageGateway.Types.CachediSCSIVolume where
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import Amazonka.StorageGateway.Types.VolumeiSCSIAttributes
data CachediSCSIVolume = CachediSCSIVolume'
{
CachediSCSIVolume -> Maybe VolumeiSCSIAttributes
volumeiSCSIAttributes :: Prelude.Maybe VolumeiSCSIAttributes,
CachediSCSIVolume -> Maybe Text
volumeStatus :: Prelude.Maybe Prelude.Text,
CachediSCSIVolume -> Maybe Text
sourceSnapshotId :: Prelude.Maybe Prelude.Text,
CachediSCSIVolume -> Maybe Text
kmsKey :: Prelude.Maybe Prelude.Text,
CachediSCSIVolume -> Maybe Text
volumeAttachmentStatus :: Prelude.Maybe Prelude.Text,
CachediSCSIVolume -> Maybe Text
volumeARN :: Prelude.Maybe Prelude.Text,
CachediSCSIVolume -> Maybe Double
volumeProgress :: Prelude.Maybe Prelude.Double,
CachediSCSIVolume -> Maybe Integer
volumeSizeInBytes :: Prelude.Maybe Prelude.Integer,
CachediSCSIVolume -> Maybe Integer
volumeUsedInBytes :: Prelude.Maybe Prelude.Integer,
CachediSCSIVolume -> Maybe POSIX
createdDate :: Prelude.Maybe Core.POSIX,
CachediSCSIVolume -> Maybe Text
volumeId :: Prelude.Maybe Prelude.Text,
CachediSCSIVolume -> Maybe Text
volumeType :: Prelude.Maybe Prelude.Text,
CachediSCSIVolume -> Maybe Text
targetName :: Prelude.Maybe Prelude.Text
}
deriving (CachediSCSIVolume -> CachediSCSIVolume -> Bool
(CachediSCSIVolume -> CachediSCSIVolume -> Bool)
-> (CachediSCSIVolume -> CachediSCSIVolume -> Bool)
-> Eq CachediSCSIVolume
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CachediSCSIVolume -> CachediSCSIVolume -> Bool
$c/= :: CachediSCSIVolume -> CachediSCSIVolume -> Bool
== :: CachediSCSIVolume -> CachediSCSIVolume -> Bool
$c== :: CachediSCSIVolume -> CachediSCSIVolume -> Bool
Prelude.Eq, ReadPrec [CachediSCSIVolume]
ReadPrec CachediSCSIVolume
Int -> ReadS CachediSCSIVolume
ReadS [CachediSCSIVolume]
(Int -> ReadS CachediSCSIVolume)
-> ReadS [CachediSCSIVolume]
-> ReadPrec CachediSCSIVolume
-> ReadPrec [CachediSCSIVolume]
-> Read CachediSCSIVolume
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CachediSCSIVolume]
$creadListPrec :: ReadPrec [CachediSCSIVolume]
readPrec :: ReadPrec CachediSCSIVolume
$creadPrec :: ReadPrec CachediSCSIVolume
readList :: ReadS [CachediSCSIVolume]
$creadList :: ReadS [CachediSCSIVolume]
readsPrec :: Int -> ReadS CachediSCSIVolume
$creadsPrec :: Int -> ReadS CachediSCSIVolume
Prelude.Read, Int -> CachediSCSIVolume -> ShowS
[CachediSCSIVolume] -> ShowS
CachediSCSIVolume -> String
(Int -> CachediSCSIVolume -> ShowS)
-> (CachediSCSIVolume -> String)
-> ([CachediSCSIVolume] -> ShowS)
-> Show CachediSCSIVolume
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CachediSCSIVolume] -> ShowS
$cshowList :: [CachediSCSIVolume] -> ShowS
show :: CachediSCSIVolume -> String
$cshow :: CachediSCSIVolume -> String
showsPrec :: Int -> CachediSCSIVolume -> ShowS
$cshowsPrec :: Int -> CachediSCSIVolume -> ShowS
Prelude.Show, (forall x. CachediSCSIVolume -> Rep CachediSCSIVolume x)
-> (forall x. Rep CachediSCSIVolume x -> CachediSCSIVolume)
-> Generic CachediSCSIVolume
forall x. Rep CachediSCSIVolume x -> CachediSCSIVolume
forall x. CachediSCSIVolume -> Rep CachediSCSIVolume x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CachediSCSIVolume x -> CachediSCSIVolume
$cfrom :: forall x. CachediSCSIVolume -> Rep CachediSCSIVolume x
Prelude.Generic)
newCachediSCSIVolume ::
CachediSCSIVolume
newCachediSCSIVolume :: CachediSCSIVolume
newCachediSCSIVolume =
CachediSCSIVolume' :: Maybe VolumeiSCSIAttributes
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume
CachediSCSIVolume'
{ $sel:volumeiSCSIAttributes:CachediSCSIVolume' :: Maybe VolumeiSCSIAttributes
volumeiSCSIAttributes =
Maybe VolumeiSCSIAttributes
forall a. Maybe a
Prelude.Nothing,
$sel:volumeStatus:CachediSCSIVolume' :: Maybe Text
volumeStatus = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:sourceSnapshotId:CachediSCSIVolume' :: Maybe Text
sourceSnapshotId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:kmsKey:CachediSCSIVolume' :: Maybe Text
kmsKey = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:volumeAttachmentStatus:CachediSCSIVolume' :: Maybe Text
volumeAttachmentStatus = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:volumeARN:CachediSCSIVolume' :: Maybe Text
volumeARN = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:volumeProgress:CachediSCSIVolume' :: Maybe Double
volumeProgress = Maybe Double
forall a. Maybe a
Prelude.Nothing,
$sel:volumeSizeInBytes:CachediSCSIVolume' :: Maybe Integer
volumeSizeInBytes = Maybe Integer
forall a. Maybe a
Prelude.Nothing,
$sel:volumeUsedInBytes:CachediSCSIVolume' :: Maybe Integer
volumeUsedInBytes = Maybe Integer
forall a. Maybe a
Prelude.Nothing,
$sel:createdDate:CachediSCSIVolume' :: Maybe POSIX
createdDate = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
$sel:volumeId:CachediSCSIVolume' :: Maybe Text
volumeId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:volumeType:CachediSCSIVolume' :: Maybe Text
volumeType = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:targetName:CachediSCSIVolume' :: Maybe Text
targetName = Maybe Text
forall a. Maybe a
Prelude.Nothing
}
cachediSCSIVolume_volumeiSCSIAttributes :: Lens.Lens' CachediSCSIVolume (Prelude.Maybe VolumeiSCSIAttributes)
cachediSCSIVolume_volumeiSCSIAttributes :: (Maybe VolumeiSCSIAttributes -> f (Maybe VolumeiSCSIAttributes))
-> CachediSCSIVolume -> f CachediSCSIVolume
cachediSCSIVolume_volumeiSCSIAttributes = (CachediSCSIVolume -> Maybe VolumeiSCSIAttributes)
-> (CachediSCSIVolume
-> Maybe VolumeiSCSIAttributes -> CachediSCSIVolume)
-> Lens
CachediSCSIVolume
CachediSCSIVolume
(Maybe VolumeiSCSIAttributes)
(Maybe VolumeiSCSIAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CachediSCSIVolume' {Maybe VolumeiSCSIAttributes
volumeiSCSIAttributes :: Maybe VolumeiSCSIAttributes
$sel:volumeiSCSIAttributes:CachediSCSIVolume' :: CachediSCSIVolume -> Maybe VolumeiSCSIAttributes
volumeiSCSIAttributes} -> Maybe VolumeiSCSIAttributes
volumeiSCSIAttributes) (\s :: CachediSCSIVolume
s@CachediSCSIVolume' {} Maybe VolumeiSCSIAttributes
a -> CachediSCSIVolume
s {$sel:volumeiSCSIAttributes:CachediSCSIVolume' :: Maybe VolumeiSCSIAttributes
volumeiSCSIAttributes = Maybe VolumeiSCSIAttributes
a} :: CachediSCSIVolume)
cachediSCSIVolume_volumeStatus :: Lens.Lens' CachediSCSIVolume (Prelude.Maybe Prelude.Text)
cachediSCSIVolume_volumeStatus :: (Maybe Text -> f (Maybe Text))
-> CachediSCSIVolume -> f CachediSCSIVolume
cachediSCSIVolume_volumeStatus = (CachediSCSIVolume -> Maybe Text)
-> (CachediSCSIVolume -> Maybe Text -> CachediSCSIVolume)
-> Lens
CachediSCSIVolume CachediSCSIVolume (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CachediSCSIVolume' {Maybe Text
volumeStatus :: Maybe Text
$sel:volumeStatus:CachediSCSIVolume' :: CachediSCSIVolume -> Maybe Text
volumeStatus} -> Maybe Text
volumeStatus) (\s :: CachediSCSIVolume
s@CachediSCSIVolume' {} Maybe Text
a -> CachediSCSIVolume
s {$sel:volumeStatus:CachediSCSIVolume' :: Maybe Text
volumeStatus = Maybe Text
a} :: CachediSCSIVolume)
cachediSCSIVolume_sourceSnapshotId :: Lens.Lens' CachediSCSIVolume (Prelude.Maybe Prelude.Text)
cachediSCSIVolume_sourceSnapshotId :: (Maybe Text -> f (Maybe Text))
-> CachediSCSIVolume -> f CachediSCSIVolume
cachediSCSIVolume_sourceSnapshotId = (CachediSCSIVolume -> Maybe Text)
-> (CachediSCSIVolume -> Maybe Text -> CachediSCSIVolume)
-> Lens
CachediSCSIVolume CachediSCSIVolume (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CachediSCSIVolume' {Maybe Text
sourceSnapshotId :: Maybe Text
$sel:sourceSnapshotId:CachediSCSIVolume' :: CachediSCSIVolume -> Maybe Text
sourceSnapshotId} -> Maybe Text
sourceSnapshotId) (\s :: CachediSCSIVolume
s@CachediSCSIVolume' {} Maybe Text
a -> CachediSCSIVolume
s {$sel:sourceSnapshotId:CachediSCSIVolume' :: Maybe Text
sourceSnapshotId = Maybe Text
a} :: CachediSCSIVolume)
cachediSCSIVolume_kmsKey :: Lens.Lens' CachediSCSIVolume (Prelude.Maybe Prelude.Text)
cachediSCSIVolume_kmsKey :: (Maybe Text -> f (Maybe Text))
-> CachediSCSIVolume -> f CachediSCSIVolume
cachediSCSIVolume_kmsKey = (CachediSCSIVolume -> Maybe Text)
-> (CachediSCSIVolume -> Maybe Text -> CachediSCSIVolume)
-> Lens
CachediSCSIVolume CachediSCSIVolume (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CachediSCSIVolume' {Maybe Text
kmsKey :: Maybe Text
$sel:kmsKey:CachediSCSIVolume' :: CachediSCSIVolume -> Maybe Text
kmsKey} -> Maybe Text
kmsKey) (\s :: CachediSCSIVolume
s@CachediSCSIVolume' {} Maybe Text
a -> CachediSCSIVolume
s {$sel:kmsKey:CachediSCSIVolume' :: Maybe Text
kmsKey = Maybe Text
a} :: CachediSCSIVolume)
cachediSCSIVolume_volumeAttachmentStatus :: Lens.Lens' CachediSCSIVolume (Prelude.Maybe Prelude.Text)
cachediSCSIVolume_volumeAttachmentStatus :: (Maybe Text -> f (Maybe Text))
-> CachediSCSIVolume -> f CachediSCSIVolume
cachediSCSIVolume_volumeAttachmentStatus = (CachediSCSIVolume -> Maybe Text)
-> (CachediSCSIVolume -> Maybe Text -> CachediSCSIVolume)
-> Lens
CachediSCSIVolume CachediSCSIVolume (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CachediSCSIVolume' {Maybe Text
volumeAttachmentStatus :: Maybe Text
$sel:volumeAttachmentStatus:CachediSCSIVolume' :: CachediSCSIVolume -> Maybe Text
volumeAttachmentStatus} -> Maybe Text
volumeAttachmentStatus) (\s :: CachediSCSIVolume
s@CachediSCSIVolume' {} Maybe Text
a -> CachediSCSIVolume
s {$sel:volumeAttachmentStatus:CachediSCSIVolume' :: Maybe Text
volumeAttachmentStatus = Maybe Text
a} :: CachediSCSIVolume)
cachediSCSIVolume_volumeARN :: Lens.Lens' CachediSCSIVolume (Prelude.Maybe Prelude.Text)
cachediSCSIVolume_volumeARN :: (Maybe Text -> f (Maybe Text))
-> CachediSCSIVolume -> f CachediSCSIVolume
cachediSCSIVolume_volumeARN = (CachediSCSIVolume -> Maybe Text)
-> (CachediSCSIVolume -> Maybe Text -> CachediSCSIVolume)
-> Lens
CachediSCSIVolume CachediSCSIVolume (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CachediSCSIVolume' {Maybe Text
volumeARN :: Maybe Text
$sel:volumeARN:CachediSCSIVolume' :: CachediSCSIVolume -> Maybe Text
volumeARN} -> Maybe Text
volumeARN) (\s :: CachediSCSIVolume
s@CachediSCSIVolume' {} Maybe Text
a -> CachediSCSIVolume
s {$sel:volumeARN:CachediSCSIVolume' :: Maybe Text
volumeARN = Maybe Text
a} :: CachediSCSIVolume)
cachediSCSIVolume_volumeProgress :: Lens.Lens' CachediSCSIVolume (Prelude.Maybe Prelude.Double)
cachediSCSIVolume_volumeProgress :: (Maybe Double -> f (Maybe Double))
-> CachediSCSIVolume -> f CachediSCSIVolume
cachediSCSIVolume_volumeProgress = (CachediSCSIVolume -> Maybe Double)
-> (CachediSCSIVolume -> Maybe Double -> CachediSCSIVolume)
-> Lens
CachediSCSIVolume CachediSCSIVolume (Maybe Double) (Maybe Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CachediSCSIVolume' {Maybe Double
volumeProgress :: Maybe Double
$sel:volumeProgress:CachediSCSIVolume' :: CachediSCSIVolume -> Maybe Double
volumeProgress} -> Maybe Double
volumeProgress) (\s :: CachediSCSIVolume
s@CachediSCSIVolume' {} Maybe Double
a -> CachediSCSIVolume
s {$sel:volumeProgress:CachediSCSIVolume' :: Maybe Double
volumeProgress = Maybe Double
a} :: CachediSCSIVolume)
cachediSCSIVolume_volumeSizeInBytes :: Lens.Lens' CachediSCSIVolume (Prelude.Maybe Prelude.Integer)
cachediSCSIVolume_volumeSizeInBytes :: (Maybe Integer -> f (Maybe Integer))
-> CachediSCSIVolume -> f CachediSCSIVolume
cachediSCSIVolume_volumeSizeInBytes = (CachediSCSIVolume -> Maybe Integer)
-> (CachediSCSIVolume -> Maybe Integer -> CachediSCSIVolume)
-> Lens
CachediSCSIVolume CachediSCSIVolume (Maybe Integer) (Maybe Integer)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CachediSCSIVolume' {Maybe Integer
volumeSizeInBytes :: Maybe Integer
$sel:volumeSizeInBytes:CachediSCSIVolume' :: CachediSCSIVolume -> Maybe Integer
volumeSizeInBytes} -> Maybe Integer
volumeSizeInBytes) (\s :: CachediSCSIVolume
s@CachediSCSIVolume' {} Maybe Integer
a -> CachediSCSIVolume
s {$sel:volumeSizeInBytes:CachediSCSIVolume' :: Maybe Integer
volumeSizeInBytes = Maybe Integer
a} :: CachediSCSIVolume)
cachediSCSIVolume_volumeUsedInBytes :: Lens.Lens' CachediSCSIVolume (Prelude.Maybe Prelude.Integer)
cachediSCSIVolume_volumeUsedInBytes :: (Maybe Integer -> f (Maybe Integer))
-> CachediSCSIVolume -> f CachediSCSIVolume
cachediSCSIVolume_volumeUsedInBytes = (CachediSCSIVolume -> Maybe Integer)
-> (CachediSCSIVolume -> Maybe Integer -> CachediSCSIVolume)
-> Lens
CachediSCSIVolume CachediSCSIVolume (Maybe Integer) (Maybe Integer)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CachediSCSIVolume' {Maybe Integer
volumeUsedInBytes :: Maybe Integer
$sel:volumeUsedInBytes:CachediSCSIVolume' :: CachediSCSIVolume -> Maybe Integer
volumeUsedInBytes} -> Maybe Integer
volumeUsedInBytes) (\s :: CachediSCSIVolume
s@CachediSCSIVolume' {} Maybe Integer
a -> CachediSCSIVolume
s {$sel:volumeUsedInBytes:CachediSCSIVolume' :: Maybe Integer
volumeUsedInBytes = Maybe Integer
a} :: CachediSCSIVolume)
cachediSCSIVolume_createdDate :: Lens.Lens' CachediSCSIVolume (Prelude.Maybe Prelude.UTCTime)
cachediSCSIVolume_createdDate :: (Maybe UTCTime -> f (Maybe UTCTime))
-> CachediSCSIVolume -> f CachediSCSIVolume
cachediSCSIVolume_createdDate = (CachediSCSIVolume -> Maybe POSIX)
-> (CachediSCSIVolume -> Maybe POSIX -> CachediSCSIVolume)
-> Lens
CachediSCSIVolume CachediSCSIVolume (Maybe POSIX) (Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CachediSCSIVolume' {Maybe POSIX
createdDate :: Maybe POSIX
$sel:createdDate:CachediSCSIVolume' :: CachediSCSIVolume -> Maybe POSIX
createdDate} -> Maybe POSIX
createdDate) (\s :: CachediSCSIVolume
s@CachediSCSIVolume' {} Maybe POSIX
a -> CachediSCSIVolume
s {$sel:createdDate:CachediSCSIVolume' :: Maybe POSIX
createdDate = Maybe POSIX
a} :: CachediSCSIVolume) ((Maybe POSIX -> f (Maybe POSIX))
-> CachediSCSIVolume -> f CachediSCSIVolume)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
-> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> CachediSCSIVolume
-> f CachediSCSIVolume
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time
cachediSCSIVolume_volumeId :: Lens.Lens' CachediSCSIVolume (Prelude.Maybe Prelude.Text)
cachediSCSIVolume_volumeId :: (Maybe Text -> f (Maybe Text))
-> CachediSCSIVolume -> f CachediSCSIVolume
cachediSCSIVolume_volumeId = (CachediSCSIVolume -> Maybe Text)
-> (CachediSCSIVolume -> Maybe Text -> CachediSCSIVolume)
-> Lens
CachediSCSIVolume CachediSCSIVolume (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CachediSCSIVolume' {Maybe Text
volumeId :: Maybe Text
$sel:volumeId:CachediSCSIVolume' :: CachediSCSIVolume -> Maybe Text
volumeId} -> Maybe Text
volumeId) (\s :: CachediSCSIVolume
s@CachediSCSIVolume' {} Maybe Text
a -> CachediSCSIVolume
s {$sel:volumeId:CachediSCSIVolume' :: Maybe Text
volumeId = Maybe Text
a} :: CachediSCSIVolume)
cachediSCSIVolume_volumeType :: Lens.Lens' CachediSCSIVolume (Prelude.Maybe Prelude.Text)
cachediSCSIVolume_volumeType :: (Maybe Text -> f (Maybe Text))
-> CachediSCSIVolume -> f CachediSCSIVolume
cachediSCSIVolume_volumeType = (CachediSCSIVolume -> Maybe Text)
-> (CachediSCSIVolume -> Maybe Text -> CachediSCSIVolume)
-> Lens
CachediSCSIVolume CachediSCSIVolume (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CachediSCSIVolume' {Maybe Text
volumeType :: Maybe Text
$sel:volumeType:CachediSCSIVolume' :: CachediSCSIVolume -> Maybe Text
volumeType} -> Maybe Text
volumeType) (\s :: CachediSCSIVolume
s@CachediSCSIVolume' {} Maybe Text
a -> CachediSCSIVolume
s {$sel:volumeType:CachediSCSIVolume' :: Maybe Text
volumeType = Maybe Text
a} :: CachediSCSIVolume)
cachediSCSIVolume_targetName :: Lens.Lens' CachediSCSIVolume (Prelude.Maybe Prelude.Text)
cachediSCSIVolume_targetName :: (Maybe Text -> f (Maybe Text))
-> CachediSCSIVolume -> f CachediSCSIVolume
cachediSCSIVolume_targetName = (CachediSCSIVolume -> Maybe Text)
-> (CachediSCSIVolume -> Maybe Text -> CachediSCSIVolume)
-> Lens
CachediSCSIVolume CachediSCSIVolume (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CachediSCSIVolume' {Maybe Text
targetName :: Maybe Text
$sel:targetName:CachediSCSIVolume' :: CachediSCSIVolume -> Maybe Text
targetName} -> Maybe Text
targetName) (\s :: CachediSCSIVolume
s@CachediSCSIVolume' {} Maybe Text
a -> CachediSCSIVolume
s {$sel:targetName:CachediSCSIVolume' :: Maybe Text
targetName = Maybe Text
a} :: CachediSCSIVolume)
instance Core.FromJSON CachediSCSIVolume where
parseJSON :: Value -> Parser CachediSCSIVolume
parseJSON =
String
-> (Object -> Parser CachediSCSIVolume)
-> Value
-> Parser CachediSCSIVolume
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Core.withObject
String
"CachediSCSIVolume"
( \Object
x ->
Maybe VolumeiSCSIAttributes
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume
CachediSCSIVolume'
(Maybe VolumeiSCSIAttributes
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
-> Parser (Maybe VolumeiSCSIAttributes)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Parser (Maybe VolumeiSCSIAttributes)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"VolumeiSCSIAttributes")
Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"VolumeStatus")
Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"SourceSnapshotId")
Parser
(Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Text
-> Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"KMSKey")
Parser
(Maybe Text
-> Maybe Text
-> Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
-> Parser (Maybe Text)
-> Parser
(Maybe Text
-> Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"VolumeAttachmentStatus")
Parser
(Maybe Text
-> Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
-> Parser (Maybe Text)
-> Parser
(Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"VolumeARN")
Parser
(Maybe Double
-> Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
-> Parser (Maybe Double)
-> Parser
(Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Double)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"VolumeProgress")
Parser
(Maybe Integer
-> Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
-> Parser (Maybe Integer)
-> Parser
(Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Integer)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"VolumeSizeInBytes")
Parser
(Maybe Integer
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> CachediSCSIVolume)
-> Parser (Maybe Integer)
-> Parser
(Maybe POSIX
-> Maybe Text -> Maybe Text -> Maybe Text -> CachediSCSIVolume)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Integer)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"VolumeUsedInBytes")
Parser
(Maybe POSIX
-> Maybe Text -> Maybe Text -> Maybe Text -> CachediSCSIVolume)
-> Parser (Maybe POSIX)
-> Parser
(Maybe Text -> Maybe Text -> Maybe Text -> CachediSCSIVolume)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"CreatedDate")
Parser
(Maybe Text -> Maybe Text -> Maybe Text -> CachediSCSIVolume)
-> Parser (Maybe Text)
-> Parser (Maybe Text -> Maybe Text -> CachediSCSIVolume)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"VolumeId")
Parser (Maybe Text -> Maybe Text -> CachediSCSIVolume)
-> Parser (Maybe Text) -> Parser (Maybe Text -> CachediSCSIVolume)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"VolumeType")
Parser (Maybe Text -> CachediSCSIVolume)
-> Parser (Maybe Text) -> Parser CachediSCSIVolume
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"TargetName")
)
instance Prelude.Hashable CachediSCSIVolume
instance Prelude.NFData CachediSCSIVolume