{-# 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.AppMesh.Types.MeshData where
import Amazonka.AppMesh.Types.MeshSpec
import Amazonka.AppMesh.Types.MeshStatus
import Amazonka.AppMesh.Types.ResourceMetadata
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 MeshData = MeshData'
{
MeshData -> Text
meshName :: Prelude.Text,
MeshData -> ResourceMetadata
metadata :: ResourceMetadata,
MeshData -> MeshSpec
spec :: MeshSpec,
MeshData -> MeshStatus
status :: MeshStatus
}
deriving (MeshData -> MeshData -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MeshData -> MeshData -> Bool
$c/= :: MeshData -> MeshData -> Bool
== :: MeshData -> MeshData -> Bool
$c== :: MeshData -> MeshData -> Bool
Prelude.Eq, ReadPrec [MeshData]
ReadPrec MeshData
Int -> ReadS MeshData
ReadS [MeshData]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MeshData]
$creadListPrec :: ReadPrec [MeshData]
readPrec :: ReadPrec MeshData
$creadPrec :: ReadPrec MeshData
readList :: ReadS [MeshData]
$creadList :: ReadS [MeshData]
readsPrec :: Int -> ReadS MeshData
$creadsPrec :: Int -> ReadS MeshData
Prelude.Read, Int -> MeshData -> ShowS
[MeshData] -> ShowS
MeshData -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MeshData] -> ShowS
$cshowList :: [MeshData] -> ShowS
show :: MeshData -> String
$cshow :: MeshData -> String
showsPrec :: Int -> MeshData -> ShowS
$cshowsPrec :: Int -> MeshData -> ShowS
Prelude.Show, forall x. Rep MeshData x -> MeshData
forall x. MeshData -> Rep MeshData x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep MeshData x -> MeshData
$cfrom :: forall x. MeshData -> Rep MeshData x
Prelude.Generic)
newMeshData ::
Prelude.Text ->
ResourceMetadata ->
MeshSpec ->
MeshStatus ->
MeshData
newMeshData :: Text -> ResourceMetadata -> MeshSpec -> MeshStatus -> MeshData
newMeshData Text
pMeshName_ ResourceMetadata
pMetadata_ MeshSpec
pSpec_ MeshStatus
pStatus_ =
MeshData'
{ $sel:meshName:MeshData' :: Text
meshName = Text
pMeshName_,
$sel:metadata:MeshData' :: ResourceMetadata
metadata = ResourceMetadata
pMetadata_,
$sel:spec:MeshData' :: MeshSpec
spec = MeshSpec
pSpec_,
$sel:status:MeshData' :: MeshStatus
status = MeshStatus
pStatus_
}
meshData_meshName :: Lens.Lens' MeshData Prelude.Text
meshData_meshName :: Lens' MeshData Text
meshData_meshName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MeshData' {Text
meshName :: Text
$sel:meshName:MeshData' :: MeshData -> Text
meshName} -> Text
meshName) (\s :: MeshData
s@MeshData' {} Text
a -> MeshData
s {$sel:meshName:MeshData' :: Text
meshName = Text
a} :: MeshData)
meshData_metadata :: Lens.Lens' MeshData ResourceMetadata
meshData_metadata :: Lens' MeshData ResourceMetadata
meshData_metadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MeshData' {ResourceMetadata
metadata :: ResourceMetadata
$sel:metadata:MeshData' :: MeshData -> ResourceMetadata
metadata} -> ResourceMetadata
metadata) (\s :: MeshData
s@MeshData' {} ResourceMetadata
a -> MeshData
s {$sel:metadata:MeshData' :: ResourceMetadata
metadata = ResourceMetadata
a} :: MeshData)
meshData_spec :: Lens.Lens' MeshData MeshSpec
meshData_spec :: Lens' MeshData MeshSpec
meshData_spec = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MeshData' {MeshSpec
spec :: MeshSpec
$sel:spec:MeshData' :: MeshData -> MeshSpec
spec} -> MeshSpec
spec) (\s :: MeshData
s@MeshData' {} MeshSpec
a -> MeshData
s {$sel:spec:MeshData' :: MeshSpec
spec = MeshSpec
a} :: MeshData)
meshData_status :: Lens.Lens' MeshData MeshStatus
meshData_status :: Lens' MeshData MeshStatus
meshData_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MeshData' {MeshStatus
status :: MeshStatus
$sel:status:MeshData' :: MeshData -> MeshStatus
status} -> MeshStatus
status) (\s :: MeshData
s@MeshData' {} MeshStatus
a -> MeshData
s {$sel:status:MeshData' :: MeshStatus
status = MeshStatus
a} :: MeshData)
instance Data.FromJSON MeshData where
parseJSON :: Value -> Parser MeshData
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"MeshData"
( \Object
x ->
Text -> ResourceMetadata -> MeshSpec -> MeshStatus -> MeshData
MeshData'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"meshName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"metadata")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"spec")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"status")
)
instance Prelude.Hashable MeshData where
hashWithSalt :: Int -> MeshData -> Int
hashWithSalt Int
_salt MeshData' {Text
MeshSpec
MeshStatus
ResourceMetadata
status :: MeshStatus
spec :: MeshSpec
metadata :: ResourceMetadata
meshName :: Text
$sel:status:MeshData' :: MeshData -> MeshStatus
$sel:spec:MeshData' :: MeshData -> MeshSpec
$sel:metadata:MeshData' :: MeshData -> ResourceMetadata
$sel:meshName:MeshData' :: MeshData -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
meshName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ResourceMetadata
metadata
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` MeshSpec
spec
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` MeshStatus
status
instance Prelude.NFData MeshData where
rnf :: MeshData -> ()
rnf MeshData' {Text
MeshSpec
MeshStatus
ResourceMetadata
status :: MeshStatus
spec :: MeshSpec
metadata :: ResourceMetadata
meshName :: Text
$sel:status:MeshData' :: MeshData -> MeshStatus
$sel:spec:MeshData' :: MeshData -> MeshSpec
$sel:metadata:MeshData' :: MeshData -> ResourceMetadata
$sel:meshName:MeshData' :: MeshData -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
meshName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ResourceMetadata
metadata
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf MeshSpec
spec
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf MeshStatus
status