content: module Stratosphere.EKS.AccessEntry (
          module Exports, AccessEntry(..), mkAccessEntry
      ) where
  import qualified Data.Aeson as JSON
  import qualified Stratosphere.Prelude as Prelude
  import Stratosphere.Property
  import {-# SOURCE #-} Stratosphere.EKS.AccessEntry.AccessPolicyProperty as Exports
  import Stratosphere.ResourceProperties
  import Stratosphere.Tag
  import Stratosphere.Value
  data AccessEntry
    = AccessEntry {accessPolicies :: (Prelude.Maybe [AccessPolicyProperty]),
                   clusterName :: (Value Prelude.Text),
                   kubernetesGroups :: (Prelude.Maybe (ValueList Prelude.Text)),
                   principalArn :: (Value Prelude.Text),
                   tags :: (Prelude.Maybe [Tag]),
                   type' :: (Prelude.Maybe (Value Prelude.Text)),
                   username :: (Prelude.Maybe (Value Prelude.Text))}
    deriving stock (Prelude.Eq, Prelude.Show)
  mkAccessEntry ::
    Value Prelude.Text -> Value Prelude.Text -> AccessEntry
  mkAccessEntry clusterName principalArn
    = AccessEntry
        {clusterName = clusterName, principalArn = principalArn,
         accessPolicies = Prelude.Nothing,
         kubernetesGroups = Prelude.Nothing, tags = Prelude.Nothing,
         type' = Prelude.Nothing, username = Prelude.Nothing}
  instance ToResourceProperties AccessEntry where
    toResourceProperties AccessEntry {..}
      = ResourceProperties
          {awsType = "AWS::EKS::AccessEntry", supportsTags = Prelude.True,
           properties = Prelude.fromList
                          ((Prelude.<>)
                             ["ClusterName" JSON..= clusterName,
                              "PrincipalArn" JSON..= principalArn]
                             (Prelude.catMaybes
                                [(JSON..=) "AccessPolicies" Prelude.<$> accessPolicies,
                                 (JSON..=) "KubernetesGroups" Prelude.<$> kubernetesGroups,
                                 (JSON..=) "Tags" Prelude.<$> tags,
                                 (JSON..=) "Type" Prelude.<$> type',
                                 (JSON..=) "Username" Prelude.<$> username]))}
  instance JSON.ToJSON AccessEntry where
    toJSON AccessEntry {..}
      = JSON.object
          (Prelude.fromList
             ((Prelude.<>)
                ["ClusterName" JSON..= clusterName,
                 "PrincipalArn" JSON..= principalArn]
                (Prelude.catMaybes
                   [(JSON..=) "AccessPolicies" Prelude.<$> accessPolicies,
                    (JSON..=) "KubernetesGroups" Prelude.<$> kubernetesGroups,
                    (JSON..=) "Tags" Prelude.<$> tags,
                    (JSON..=) "Type" Prelude.<$> type',
                    (JSON..=) "Username" Prelude.<$> username])))
  instance Property "AccessPolicies" AccessEntry where
    type PropertyType "AccessPolicies" AccessEntry = [AccessPolicyProperty]
    set newValue AccessEntry {..}
      = AccessEntry {accessPolicies = Prelude.pure newValue, ..}
  instance Property "ClusterName" AccessEntry where
    type PropertyType "ClusterName" AccessEntry = Value Prelude.Text
    set newValue AccessEntry {..}
      = AccessEntry {clusterName = newValue, ..}
  instance Property "KubernetesGroups" AccessEntry where
    type PropertyType "KubernetesGroups" AccessEntry = ValueList Prelude.Text
    set newValue AccessEntry {..}
      = AccessEntry {kubernetesGroups = Prelude.pure newValue, ..}
  instance Property "PrincipalArn" AccessEntry where
    type PropertyType "PrincipalArn" AccessEntry = Value Prelude.Text
    set newValue AccessEntry {..}
      = AccessEntry {principalArn = newValue, ..}
  instance Property "Tags" AccessEntry where
    type PropertyType "Tags" AccessEntry = [Tag]
    set newValue AccessEntry {..}
      = AccessEntry {tags = Prelude.pure newValue, ..}
  instance Property "Type" AccessEntry where
    type PropertyType "Type" AccessEntry = Value Prelude.Text
    set newValue AccessEntry {..}
      = AccessEntry {type' = Prelude.pure newValue, ..}
  instance Property "Username" AccessEntry where
    type PropertyType "Username" AccessEntry = Value Prelude.Text
    set newValue AccessEntry {..}
      = AccessEntry {username = Prelude.pure newValue, ..}