{-# 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.Grafana.Types.PermissionEntry where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Grafana.Types.Role
import Amazonka.Grafana.Types.User
import qualified Amazonka.Prelude as Prelude
data PermissionEntry = PermissionEntry'
{
PermissionEntry -> Role
role' :: Role,
PermissionEntry -> User
user :: User
}
deriving (PermissionEntry -> PermissionEntry -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PermissionEntry -> PermissionEntry -> Bool
$c/= :: PermissionEntry -> PermissionEntry -> Bool
== :: PermissionEntry -> PermissionEntry -> Bool
$c== :: PermissionEntry -> PermissionEntry -> Bool
Prelude.Eq, ReadPrec [PermissionEntry]
ReadPrec PermissionEntry
Int -> ReadS PermissionEntry
ReadS [PermissionEntry]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PermissionEntry]
$creadListPrec :: ReadPrec [PermissionEntry]
readPrec :: ReadPrec PermissionEntry
$creadPrec :: ReadPrec PermissionEntry
readList :: ReadS [PermissionEntry]
$creadList :: ReadS [PermissionEntry]
readsPrec :: Int -> ReadS PermissionEntry
$creadsPrec :: Int -> ReadS PermissionEntry
Prelude.Read, Int -> PermissionEntry -> ShowS
[PermissionEntry] -> ShowS
PermissionEntry -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PermissionEntry] -> ShowS
$cshowList :: [PermissionEntry] -> ShowS
show :: PermissionEntry -> String
$cshow :: PermissionEntry -> String
showsPrec :: Int -> PermissionEntry -> ShowS
$cshowsPrec :: Int -> PermissionEntry -> ShowS
Prelude.Show, forall x. Rep PermissionEntry x -> PermissionEntry
forall x. PermissionEntry -> Rep PermissionEntry x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PermissionEntry x -> PermissionEntry
$cfrom :: forall x. PermissionEntry -> Rep PermissionEntry x
Prelude.Generic)
newPermissionEntry ::
Role ->
User ->
PermissionEntry
newPermissionEntry :: Role -> User -> PermissionEntry
newPermissionEntry Role
pRole_ User
pUser_ =
PermissionEntry' {$sel:role':PermissionEntry' :: Role
role' = Role
pRole_, $sel:user:PermissionEntry' :: User
user = User
pUser_}
permissionEntry_role :: Lens.Lens' PermissionEntry Role
permissionEntry_role :: Lens' PermissionEntry Role
permissionEntry_role = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PermissionEntry' {Role
role' :: Role
$sel:role':PermissionEntry' :: PermissionEntry -> Role
role'} -> Role
role') (\s :: PermissionEntry
s@PermissionEntry' {} Role
a -> PermissionEntry
s {$sel:role':PermissionEntry' :: Role
role' = Role
a} :: PermissionEntry)
permissionEntry_user :: Lens.Lens' PermissionEntry User
permissionEntry_user :: Lens' PermissionEntry User
permissionEntry_user = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PermissionEntry' {User
user :: User
$sel:user:PermissionEntry' :: PermissionEntry -> User
user} -> User
user) (\s :: PermissionEntry
s@PermissionEntry' {} User
a -> PermissionEntry
s {$sel:user:PermissionEntry' :: User
user = User
a} :: PermissionEntry)
instance Data.FromJSON PermissionEntry where
parseJSON :: Value -> Parser PermissionEntry
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"PermissionEntry"
( \Object
x ->
Role -> User -> PermissionEntry
PermissionEntry'
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
"role")
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
"user")
)
instance Prelude.Hashable PermissionEntry where
hashWithSalt :: Int -> PermissionEntry -> Int
hashWithSalt Int
_salt PermissionEntry' {Role
User
user :: User
role' :: Role
$sel:user:PermissionEntry' :: PermissionEntry -> User
$sel:role':PermissionEntry' :: PermissionEntry -> Role
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Role
role'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` User
user
instance Prelude.NFData PermissionEntry where
rnf :: PermissionEntry -> ()
rnf PermissionEntry' {Role
User
user :: User
role' :: Role
$sel:user:PermissionEntry' :: PermissionEntry -> User
$sel:role':PermissionEntry' :: PermissionEntry -> Role
..} =
forall a. NFData a => a -> ()
Prelude.rnf Role
role' seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf User
user