{-# 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.AuditManager.Types.Delegation where
import Amazonka.AuditManager.Types.DelegationStatus
import Amazonka.AuditManager.Types.RoleType
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 Delegation = Delegation'
{
Delegation -> Maybe Text
assessmentId :: Prelude.Maybe Prelude.Text,
Delegation -> Maybe Text
assessmentName :: Prelude.Maybe Prelude.Text,
:: Prelude.Maybe Prelude.Text,
Delegation -> Maybe Text
controlSetId :: Prelude.Maybe Prelude.Text,
Delegation -> Maybe Text
createdBy :: Prelude.Maybe Prelude.Text,
Delegation -> Maybe POSIX
creationTime :: Prelude.Maybe Data.POSIX,
Delegation -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
Delegation -> Maybe POSIX
lastUpdated :: Prelude.Maybe Data.POSIX,
Delegation -> Maybe Text
roleArn :: Prelude.Maybe Prelude.Text,
Delegation -> Maybe RoleType
roleType :: Prelude.Maybe RoleType,
Delegation -> Maybe DelegationStatus
status :: Prelude.Maybe DelegationStatus
}
deriving (Delegation -> Delegation -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Delegation -> Delegation -> Bool
$c/= :: Delegation -> Delegation -> Bool
== :: Delegation -> Delegation -> Bool
$c== :: Delegation -> Delegation -> Bool
Prelude.Eq, ReadPrec [Delegation]
ReadPrec Delegation
Int -> ReadS Delegation
ReadS [Delegation]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [Delegation]
$creadListPrec :: ReadPrec [Delegation]
readPrec :: ReadPrec Delegation
$creadPrec :: ReadPrec Delegation
readList :: ReadS [Delegation]
$creadList :: ReadS [Delegation]
readsPrec :: Int -> ReadS Delegation
$creadsPrec :: Int -> ReadS Delegation
Prelude.Read, Int -> Delegation -> ShowS
[Delegation] -> ShowS
Delegation -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Delegation] -> ShowS
$cshowList :: [Delegation] -> ShowS
show :: Delegation -> String
$cshow :: Delegation -> String
showsPrec :: Int -> Delegation -> ShowS
$cshowsPrec :: Int -> Delegation -> ShowS
Prelude.Show, forall x. Rep Delegation x -> Delegation
forall x. Delegation -> Rep Delegation x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Delegation x -> Delegation
$cfrom :: forall x. Delegation -> Rep Delegation x
Prelude.Generic)
newDelegation ::
Delegation
newDelegation :: Delegation
newDelegation =
Delegation'
{ $sel:assessmentId:Delegation' :: Maybe Text
assessmentId = forall a. Maybe a
Prelude.Nothing,
$sel:assessmentName:Delegation' :: Maybe Text
assessmentName = forall a. Maybe a
Prelude.Nothing,
$sel:comment:Delegation' :: Maybe Text
comment = forall a. Maybe a
Prelude.Nothing,
$sel:controlSetId:Delegation' :: Maybe Text
controlSetId = forall a. Maybe a
Prelude.Nothing,
$sel:createdBy:Delegation' :: Maybe Text
createdBy = forall a. Maybe a
Prelude.Nothing,
$sel:creationTime:Delegation' :: Maybe POSIX
creationTime = forall a. Maybe a
Prelude.Nothing,
$sel:id:Delegation' :: Maybe Text
id = forall a. Maybe a
Prelude.Nothing,
$sel:lastUpdated:Delegation' :: Maybe POSIX
lastUpdated = forall a. Maybe a
Prelude.Nothing,
$sel:roleArn:Delegation' :: Maybe Text
roleArn = forall a. Maybe a
Prelude.Nothing,
$sel:roleType:Delegation' :: Maybe RoleType
roleType = forall a. Maybe a
Prelude.Nothing,
$sel:status:Delegation' :: Maybe DelegationStatus
status = forall a. Maybe a
Prelude.Nothing
}
delegation_assessmentId :: Lens.Lens' Delegation (Prelude.Maybe Prelude.Text)
delegation_assessmentId :: Lens' Delegation (Maybe Text)
delegation_assessmentId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Delegation' {Maybe Text
assessmentId :: Maybe Text
$sel:assessmentId:Delegation' :: Delegation -> Maybe Text
assessmentId} -> Maybe Text
assessmentId) (\s :: Delegation
s@Delegation' {} Maybe Text
a -> Delegation
s {$sel:assessmentId:Delegation' :: Maybe Text
assessmentId = Maybe Text
a} :: Delegation)
delegation_assessmentName :: Lens.Lens' Delegation (Prelude.Maybe Prelude.Text)
delegation_assessmentName :: Lens' Delegation (Maybe Text)
delegation_assessmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Delegation' {Maybe Text
assessmentName :: Maybe Text
$sel:assessmentName:Delegation' :: Delegation -> Maybe Text
assessmentName} -> Maybe Text
assessmentName) (\s :: Delegation
s@Delegation' {} Maybe Text
a -> Delegation
s {$sel:assessmentName:Delegation' :: Maybe Text
assessmentName = Maybe Text
a} :: Delegation)
delegation_comment :: Lens.Lens' Delegation (Prelude.Maybe Prelude.Text)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Delegation' {Maybe Text
comment :: Maybe Text
$sel:comment:Delegation' :: Delegation -> Maybe Text
comment} -> Maybe Text
comment) (\s :: Delegation
s@Delegation' {} Maybe Text
a -> Delegation
s {$sel:comment:Delegation' :: Maybe Text
comment = Maybe Text
a} :: Delegation)
delegation_controlSetId :: Lens.Lens' Delegation (Prelude.Maybe Prelude.Text)
delegation_controlSetId :: Lens' Delegation (Maybe Text)
delegation_controlSetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Delegation' {Maybe Text
controlSetId :: Maybe Text
$sel:controlSetId:Delegation' :: Delegation -> Maybe Text
controlSetId} -> Maybe Text
controlSetId) (\s :: Delegation
s@Delegation' {} Maybe Text
a -> Delegation
s {$sel:controlSetId:Delegation' :: Maybe Text
controlSetId = Maybe Text
a} :: Delegation)
delegation_createdBy :: Lens.Lens' Delegation (Prelude.Maybe Prelude.Text)
delegation_createdBy :: Lens' Delegation (Maybe Text)
delegation_createdBy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Delegation' {Maybe Text
createdBy :: Maybe Text
$sel:createdBy:Delegation' :: Delegation -> Maybe Text
createdBy} -> Maybe Text
createdBy) (\s :: Delegation
s@Delegation' {} Maybe Text
a -> Delegation
s {$sel:createdBy:Delegation' :: Maybe Text
createdBy = Maybe Text
a} :: Delegation)
delegation_creationTime :: Lens.Lens' Delegation (Prelude.Maybe Prelude.UTCTime)
delegation_creationTime :: Lens' Delegation (Maybe UTCTime)
delegation_creationTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Delegation' {Maybe POSIX
creationTime :: Maybe POSIX
$sel:creationTime:Delegation' :: Delegation -> Maybe POSIX
creationTime} -> Maybe POSIX
creationTime) (\s :: Delegation
s@Delegation' {} Maybe POSIX
a -> Delegation
s {$sel:creationTime:Delegation' :: Maybe POSIX
creationTime = Maybe POSIX
a} :: Delegation) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. 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 forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
delegation_id :: Lens.Lens' Delegation (Prelude.Maybe Prelude.Text)
delegation_id :: Lens' Delegation (Maybe Text)
delegation_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Delegation' {Maybe Text
id :: Maybe Text
$sel:id:Delegation' :: Delegation -> Maybe Text
id} -> Maybe Text
id) (\s :: Delegation
s@Delegation' {} Maybe Text
a -> Delegation
s {$sel:id:Delegation' :: Maybe Text
id = Maybe Text
a} :: Delegation)
delegation_lastUpdated :: Lens.Lens' Delegation (Prelude.Maybe Prelude.UTCTime)
delegation_lastUpdated :: Lens' Delegation (Maybe UTCTime)
delegation_lastUpdated = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Delegation' {Maybe POSIX
lastUpdated :: Maybe POSIX
$sel:lastUpdated:Delegation' :: Delegation -> Maybe POSIX
lastUpdated} -> Maybe POSIX
lastUpdated) (\s :: Delegation
s@Delegation' {} Maybe POSIX
a -> Delegation
s {$sel:lastUpdated:Delegation' :: Maybe POSIX
lastUpdated = Maybe POSIX
a} :: Delegation) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. 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 forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
delegation_roleArn :: Lens.Lens' Delegation (Prelude.Maybe Prelude.Text)
delegation_roleArn :: Lens' Delegation (Maybe Text)
delegation_roleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Delegation' {Maybe Text
roleArn :: Maybe Text
$sel:roleArn:Delegation' :: Delegation -> Maybe Text
roleArn} -> Maybe Text
roleArn) (\s :: Delegation
s@Delegation' {} Maybe Text
a -> Delegation
s {$sel:roleArn:Delegation' :: Maybe Text
roleArn = Maybe Text
a} :: Delegation)
delegation_roleType :: Lens.Lens' Delegation (Prelude.Maybe RoleType)
delegation_roleType :: Lens' Delegation (Maybe RoleType)
delegation_roleType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Delegation' {Maybe RoleType
roleType :: Maybe RoleType
$sel:roleType:Delegation' :: Delegation -> Maybe RoleType
roleType} -> Maybe RoleType
roleType) (\s :: Delegation
s@Delegation' {} Maybe RoleType
a -> Delegation
s {$sel:roleType:Delegation' :: Maybe RoleType
roleType = Maybe RoleType
a} :: Delegation)
delegation_status :: Lens.Lens' Delegation (Prelude.Maybe DelegationStatus)
delegation_status :: Lens' Delegation (Maybe DelegationStatus)
delegation_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Delegation' {Maybe DelegationStatus
status :: Maybe DelegationStatus
$sel:status:Delegation' :: Delegation -> Maybe DelegationStatus
status} -> Maybe DelegationStatus
status) (\s :: Delegation
s@Delegation' {} Maybe DelegationStatus
a -> Delegation
s {$sel:status:Delegation' :: Maybe DelegationStatus
status = Maybe DelegationStatus
a} :: Delegation)
instance Data.FromJSON Delegation where
parseJSON :: Value -> Parser Delegation
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"Delegation"
( \Object
x ->
Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe POSIX
-> Maybe Text
-> Maybe POSIX
-> Maybe Text
-> Maybe RoleType
-> Maybe DelegationStatus
-> Delegation
Delegation'
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
"assessmentId")
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
"assessmentName")
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
"comment")
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
"controlSetId")
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
"createdBy")
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
"creationTime")
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
"id")
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
"lastUpdated")
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
"roleArn")
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
"roleType")
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
"status")
)
instance Prelude.Hashable Delegation where
hashWithSalt :: Int -> Delegation -> Int
hashWithSalt Int
_salt Delegation' {Maybe Text
Maybe POSIX
Maybe DelegationStatus
Maybe RoleType
status :: Maybe DelegationStatus
roleType :: Maybe RoleType
roleArn :: Maybe Text
lastUpdated :: Maybe POSIX
id :: Maybe Text
creationTime :: Maybe POSIX
createdBy :: Maybe Text
controlSetId :: Maybe Text
comment :: Maybe Text
assessmentName :: Maybe Text
assessmentId :: Maybe Text
$sel:status:Delegation' :: Delegation -> Maybe DelegationStatus
$sel:roleType:Delegation' :: Delegation -> Maybe RoleType
$sel:roleArn:Delegation' :: Delegation -> Maybe Text
$sel:lastUpdated:Delegation' :: Delegation -> Maybe POSIX
$sel:id:Delegation' :: Delegation -> Maybe Text
$sel:creationTime:Delegation' :: Delegation -> Maybe POSIX
$sel:createdBy:Delegation' :: Delegation -> Maybe Text
$sel:controlSetId:Delegation' :: Delegation -> Maybe Text
$sel:comment:Delegation' :: Delegation -> Maybe Text
$sel:assessmentName:Delegation' :: Delegation -> Maybe Text
$sel:assessmentId:Delegation' :: Delegation -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
assessmentId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
assessmentName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
comment
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
controlSetId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
createdBy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
creationTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
id
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
lastUpdated
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
roleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RoleType
roleType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DelegationStatus
status
instance Prelude.NFData Delegation where
rnf :: Delegation -> ()
rnf Delegation' {Maybe Text
Maybe POSIX
Maybe DelegationStatus
Maybe RoleType
status :: Maybe DelegationStatus
roleType :: Maybe RoleType
roleArn :: Maybe Text
lastUpdated :: Maybe POSIX
id :: Maybe Text
creationTime :: Maybe POSIX
createdBy :: Maybe Text
controlSetId :: Maybe Text
comment :: Maybe Text
assessmentName :: Maybe Text
assessmentId :: Maybe Text
$sel:status:Delegation' :: Delegation -> Maybe DelegationStatus
$sel:roleType:Delegation' :: Delegation -> Maybe RoleType
$sel:roleArn:Delegation' :: Delegation -> Maybe Text
$sel:lastUpdated:Delegation' :: Delegation -> Maybe POSIX
$sel:id:Delegation' :: Delegation -> Maybe Text
$sel:creationTime:Delegation' :: Delegation -> Maybe POSIX
$sel:createdBy:Delegation' :: Delegation -> Maybe Text
$sel:controlSetId:Delegation' :: Delegation -> Maybe Text
$sel:comment:Delegation' :: Delegation -> Maybe Text
$sel:assessmentName:Delegation' :: Delegation -> Maybe Text
$sel:assessmentId:Delegation' :: Delegation -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
assessmentId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
assessmentName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
comment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
controlSetId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
createdBy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
creationTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
id
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
lastUpdated
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
roleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RoleType
roleType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DelegationStatus
status