{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.AppStream.CreateDirectoryConfig
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Creates a Directory Config object in AppStream 2.0. This object includes
-- the configuration information required to join fleets and image builders
-- to Microsoft Active Directory domains.
module Amazonka.AppStream.CreateDirectoryConfig
  ( -- * Creating a Request
    CreateDirectoryConfig (..),
    newCreateDirectoryConfig,

    -- * Request Lenses
    createDirectoryConfig_certificateBasedAuthProperties,
    createDirectoryConfig_serviceAccountCredentials,
    createDirectoryConfig_directoryName,
    createDirectoryConfig_organizationalUnitDistinguishedNames,

    -- * Destructuring the Response
    CreateDirectoryConfigResponse (..),
    newCreateDirectoryConfigResponse,

    -- * Response Lenses
    createDirectoryConfigResponse_directoryConfig,
    createDirectoryConfigResponse_httpStatus,
  )
where

import Amazonka.AppStream.Types
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
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newCreateDirectoryConfig' smart constructor.
data CreateDirectoryConfig = CreateDirectoryConfig'
  { -- | The certificate-based authentication properties used to authenticate
    -- SAML 2.0 Identity Provider (IdP) user identities to Active Directory
    -- domain-joined streaming instances. Fallback is turned on by default when
    -- certificate-based authentication is __Enabled__ . Fallback allows users
    -- to log in using their AD domain password if certificate-based
    -- authentication is unsuccessful, or to unlock a desktop lock screen.
    -- __Enabled_no_directory_login_fallback__ enables certificate-based
    -- authentication, but does not allow users to log in using their AD domain
    -- password. Users will be disconnected to re-authenticate using
    -- certificates.
    CreateDirectoryConfig -> Maybe CertificateBasedAuthProperties
certificateBasedAuthProperties :: Prelude.Maybe CertificateBasedAuthProperties,
    -- | The credentials for the service account used by the fleet or image
    -- builder to connect to the directory.
    CreateDirectoryConfig -> Maybe ServiceAccountCredentials
serviceAccountCredentials :: Prelude.Maybe ServiceAccountCredentials,
    -- | The fully qualified name of the directory (for example,
    -- corp.example.com).
    CreateDirectoryConfig -> Text
directoryName :: Prelude.Text,
    -- | The distinguished names of the organizational units for computer
    -- accounts.
    CreateDirectoryConfig -> [Text]
organizationalUnitDistinguishedNames :: [Prelude.Text]
  }
  deriving (CreateDirectoryConfig -> CreateDirectoryConfig -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateDirectoryConfig -> CreateDirectoryConfig -> Bool
$c/= :: CreateDirectoryConfig -> CreateDirectoryConfig -> Bool
== :: CreateDirectoryConfig -> CreateDirectoryConfig -> Bool
$c== :: CreateDirectoryConfig -> CreateDirectoryConfig -> Bool
Prelude.Eq, Int -> CreateDirectoryConfig -> ShowS
[CreateDirectoryConfig] -> ShowS
CreateDirectoryConfig -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateDirectoryConfig] -> ShowS
$cshowList :: [CreateDirectoryConfig] -> ShowS
show :: CreateDirectoryConfig -> String
$cshow :: CreateDirectoryConfig -> String
showsPrec :: Int -> CreateDirectoryConfig -> ShowS
$cshowsPrec :: Int -> CreateDirectoryConfig -> ShowS
Prelude.Show, forall x. Rep CreateDirectoryConfig x -> CreateDirectoryConfig
forall x. CreateDirectoryConfig -> Rep CreateDirectoryConfig x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateDirectoryConfig x -> CreateDirectoryConfig
$cfrom :: forall x. CreateDirectoryConfig -> Rep CreateDirectoryConfig x
Prelude.Generic)

-- |
-- Create a value of 'CreateDirectoryConfig' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'certificateBasedAuthProperties', 'createDirectoryConfig_certificateBasedAuthProperties' - The certificate-based authentication properties used to authenticate
-- SAML 2.0 Identity Provider (IdP) user identities to Active Directory
-- domain-joined streaming instances. Fallback is turned on by default when
-- certificate-based authentication is __Enabled__ . Fallback allows users
-- to log in using their AD domain password if certificate-based
-- authentication is unsuccessful, or to unlock a desktop lock screen.
-- __Enabled_no_directory_login_fallback__ enables certificate-based
-- authentication, but does not allow users to log in using their AD domain
-- password. Users will be disconnected to re-authenticate using
-- certificates.
--
-- 'serviceAccountCredentials', 'createDirectoryConfig_serviceAccountCredentials' - The credentials for the service account used by the fleet or image
-- builder to connect to the directory.
--
-- 'directoryName', 'createDirectoryConfig_directoryName' - The fully qualified name of the directory (for example,
-- corp.example.com).
--
-- 'organizationalUnitDistinguishedNames', 'createDirectoryConfig_organizationalUnitDistinguishedNames' - The distinguished names of the organizational units for computer
-- accounts.
newCreateDirectoryConfig ::
  -- | 'directoryName'
  Prelude.Text ->
  CreateDirectoryConfig
newCreateDirectoryConfig :: Text -> CreateDirectoryConfig
newCreateDirectoryConfig Text
pDirectoryName_ =
  CreateDirectoryConfig'
    { $sel:certificateBasedAuthProperties:CreateDirectoryConfig' :: Maybe CertificateBasedAuthProperties
certificateBasedAuthProperties =
        forall a. Maybe a
Prelude.Nothing,
      $sel:serviceAccountCredentials:CreateDirectoryConfig' :: Maybe ServiceAccountCredentials
serviceAccountCredentials = forall a. Maybe a
Prelude.Nothing,
      $sel:directoryName:CreateDirectoryConfig' :: Text
directoryName = Text
pDirectoryName_,
      $sel:organizationalUnitDistinguishedNames:CreateDirectoryConfig' :: [Text]
organizationalUnitDistinguishedNames =
        forall a. Monoid a => a
Prelude.mempty
    }

-- | The certificate-based authentication properties used to authenticate
-- SAML 2.0 Identity Provider (IdP) user identities to Active Directory
-- domain-joined streaming instances. Fallback is turned on by default when
-- certificate-based authentication is __Enabled__ . Fallback allows users
-- to log in using their AD domain password if certificate-based
-- authentication is unsuccessful, or to unlock a desktop lock screen.
-- __Enabled_no_directory_login_fallback__ enables certificate-based
-- authentication, but does not allow users to log in using their AD domain
-- password. Users will be disconnected to re-authenticate using
-- certificates.
createDirectoryConfig_certificateBasedAuthProperties :: Lens.Lens' CreateDirectoryConfig (Prelude.Maybe CertificateBasedAuthProperties)
createDirectoryConfig_certificateBasedAuthProperties :: Lens' CreateDirectoryConfig (Maybe CertificateBasedAuthProperties)
createDirectoryConfig_certificateBasedAuthProperties = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDirectoryConfig' {Maybe CertificateBasedAuthProperties
certificateBasedAuthProperties :: Maybe CertificateBasedAuthProperties
$sel:certificateBasedAuthProperties:CreateDirectoryConfig' :: CreateDirectoryConfig -> Maybe CertificateBasedAuthProperties
certificateBasedAuthProperties} -> Maybe CertificateBasedAuthProperties
certificateBasedAuthProperties) (\s :: CreateDirectoryConfig
s@CreateDirectoryConfig' {} Maybe CertificateBasedAuthProperties
a -> CreateDirectoryConfig
s {$sel:certificateBasedAuthProperties:CreateDirectoryConfig' :: Maybe CertificateBasedAuthProperties
certificateBasedAuthProperties = Maybe CertificateBasedAuthProperties
a} :: CreateDirectoryConfig)

-- | The credentials for the service account used by the fleet or image
-- builder to connect to the directory.
createDirectoryConfig_serviceAccountCredentials :: Lens.Lens' CreateDirectoryConfig (Prelude.Maybe ServiceAccountCredentials)
createDirectoryConfig_serviceAccountCredentials :: Lens' CreateDirectoryConfig (Maybe ServiceAccountCredentials)
createDirectoryConfig_serviceAccountCredentials = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDirectoryConfig' {Maybe ServiceAccountCredentials
serviceAccountCredentials :: Maybe ServiceAccountCredentials
$sel:serviceAccountCredentials:CreateDirectoryConfig' :: CreateDirectoryConfig -> Maybe ServiceAccountCredentials
serviceAccountCredentials} -> Maybe ServiceAccountCredentials
serviceAccountCredentials) (\s :: CreateDirectoryConfig
s@CreateDirectoryConfig' {} Maybe ServiceAccountCredentials
a -> CreateDirectoryConfig
s {$sel:serviceAccountCredentials:CreateDirectoryConfig' :: Maybe ServiceAccountCredentials
serviceAccountCredentials = Maybe ServiceAccountCredentials
a} :: CreateDirectoryConfig)

-- | The fully qualified name of the directory (for example,
-- corp.example.com).
createDirectoryConfig_directoryName :: Lens.Lens' CreateDirectoryConfig Prelude.Text
createDirectoryConfig_directoryName :: Lens' CreateDirectoryConfig Text
createDirectoryConfig_directoryName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDirectoryConfig' {Text
directoryName :: Text
$sel:directoryName:CreateDirectoryConfig' :: CreateDirectoryConfig -> Text
directoryName} -> Text
directoryName) (\s :: CreateDirectoryConfig
s@CreateDirectoryConfig' {} Text
a -> CreateDirectoryConfig
s {$sel:directoryName:CreateDirectoryConfig' :: Text
directoryName = Text
a} :: CreateDirectoryConfig)

-- | The distinguished names of the organizational units for computer
-- accounts.
createDirectoryConfig_organizationalUnitDistinguishedNames :: Lens.Lens' CreateDirectoryConfig [Prelude.Text]
createDirectoryConfig_organizationalUnitDistinguishedNames :: Lens' CreateDirectoryConfig [Text]
createDirectoryConfig_organizationalUnitDistinguishedNames = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDirectoryConfig' {[Text]
organizationalUnitDistinguishedNames :: [Text]
$sel:organizationalUnitDistinguishedNames:CreateDirectoryConfig' :: CreateDirectoryConfig -> [Text]
organizationalUnitDistinguishedNames} -> [Text]
organizationalUnitDistinguishedNames) (\s :: CreateDirectoryConfig
s@CreateDirectoryConfig' {} [Text]
a -> CreateDirectoryConfig
s {$sel:organizationalUnitDistinguishedNames:CreateDirectoryConfig' :: [Text]
organizationalUnitDistinguishedNames = [Text]
a} :: CreateDirectoryConfig) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

instance Core.AWSRequest CreateDirectoryConfig where
  type
    AWSResponse CreateDirectoryConfig =
      CreateDirectoryConfigResponse
  request :: (Service -> Service)
-> CreateDirectoryConfig -> Request CreateDirectoryConfig
request Service -> Service
overrides =
    forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateDirectoryConfig
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse CreateDirectoryConfig)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
      ( \Int
s ResponseHeaders
h Object
x ->
          Maybe DirectoryConfig -> Int -> CreateDirectoryConfigResponse
CreateDirectoryConfigResponse'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"DirectoryConfig")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable CreateDirectoryConfig where
  hashWithSalt :: Int -> CreateDirectoryConfig -> Int
hashWithSalt Int
_salt CreateDirectoryConfig' {[Text]
Maybe CertificateBasedAuthProperties
Maybe ServiceAccountCredentials
Text
organizationalUnitDistinguishedNames :: [Text]
directoryName :: Text
serviceAccountCredentials :: Maybe ServiceAccountCredentials
certificateBasedAuthProperties :: Maybe CertificateBasedAuthProperties
$sel:organizationalUnitDistinguishedNames:CreateDirectoryConfig' :: CreateDirectoryConfig -> [Text]
$sel:directoryName:CreateDirectoryConfig' :: CreateDirectoryConfig -> Text
$sel:serviceAccountCredentials:CreateDirectoryConfig' :: CreateDirectoryConfig -> Maybe ServiceAccountCredentials
$sel:certificateBasedAuthProperties:CreateDirectoryConfig' :: CreateDirectoryConfig -> Maybe CertificateBasedAuthProperties
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe CertificateBasedAuthProperties
certificateBasedAuthProperties
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ServiceAccountCredentials
serviceAccountCredentials
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
directoryName
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Text]
organizationalUnitDistinguishedNames

instance Prelude.NFData CreateDirectoryConfig where
  rnf :: CreateDirectoryConfig -> ()
rnf CreateDirectoryConfig' {[Text]
Maybe CertificateBasedAuthProperties
Maybe ServiceAccountCredentials
Text
organizationalUnitDistinguishedNames :: [Text]
directoryName :: Text
serviceAccountCredentials :: Maybe ServiceAccountCredentials
certificateBasedAuthProperties :: Maybe CertificateBasedAuthProperties
$sel:organizationalUnitDistinguishedNames:CreateDirectoryConfig' :: CreateDirectoryConfig -> [Text]
$sel:directoryName:CreateDirectoryConfig' :: CreateDirectoryConfig -> Text
$sel:serviceAccountCredentials:CreateDirectoryConfig' :: CreateDirectoryConfig -> Maybe ServiceAccountCredentials
$sel:certificateBasedAuthProperties:CreateDirectoryConfig' :: CreateDirectoryConfig -> Maybe CertificateBasedAuthProperties
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe CertificateBasedAuthProperties
certificateBasedAuthProperties
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ServiceAccountCredentials
serviceAccountCredentials
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
directoryName
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Text]
organizationalUnitDistinguishedNames

instance Data.ToHeaders CreateDirectoryConfig where
  toHeaders :: CreateDirectoryConfig -> ResponseHeaders
toHeaders =
    forall a b. a -> b -> a
Prelude.const
      ( forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"X-Amz-Target"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"PhotonAdminProxyService.CreateDirectoryConfig" ::
                          Prelude.ByteString
                      ),
            HeaderName
"Content-Type"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON CreateDirectoryConfig where
  toJSON :: CreateDirectoryConfig -> Value
toJSON CreateDirectoryConfig' {[Text]
Maybe CertificateBasedAuthProperties
Maybe ServiceAccountCredentials
Text
organizationalUnitDistinguishedNames :: [Text]
directoryName :: Text
serviceAccountCredentials :: Maybe ServiceAccountCredentials
certificateBasedAuthProperties :: Maybe CertificateBasedAuthProperties
$sel:organizationalUnitDistinguishedNames:CreateDirectoryConfig' :: CreateDirectoryConfig -> [Text]
$sel:directoryName:CreateDirectoryConfig' :: CreateDirectoryConfig -> Text
$sel:serviceAccountCredentials:CreateDirectoryConfig' :: CreateDirectoryConfig -> Maybe ServiceAccountCredentials
$sel:certificateBasedAuthProperties:CreateDirectoryConfig' :: CreateDirectoryConfig -> Maybe CertificateBasedAuthProperties
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"CertificateBasedAuthProperties" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CertificateBasedAuthProperties
certificateBasedAuthProperties,
            (Key
"ServiceAccountCredentials" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ServiceAccountCredentials
serviceAccountCredentials,
            forall a. a -> Maybe a
Prelude.Just (Key
"DirectoryName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
directoryName),
            forall a. a -> Maybe a
Prelude.Just
              ( Key
"OrganizationalUnitDistinguishedNames"
                  forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [Text]
organizationalUnitDistinguishedNames
              )
          ]
      )

instance Data.ToPath CreateDirectoryConfig where
  toPath :: CreateDirectoryConfig -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance Data.ToQuery CreateDirectoryConfig where
  toQuery :: CreateDirectoryConfig -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newCreateDirectoryConfigResponse' smart constructor.
data CreateDirectoryConfigResponse = CreateDirectoryConfigResponse'
  { -- | Information about the directory configuration.
    CreateDirectoryConfigResponse -> Maybe DirectoryConfig
directoryConfig :: Prelude.Maybe DirectoryConfig,
    -- | The response's http status code.
    CreateDirectoryConfigResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (CreateDirectoryConfigResponse
-> CreateDirectoryConfigResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateDirectoryConfigResponse
-> CreateDirectoryConfigResponse -> Bool
$c/= :: CreateDirectoryConfigResponse
-> CreateDirectoryConfigResponse -> Bool
== :: CreateDirectoryConfigResponse
-> CreateDirectoryConfigResponse -> Bool
$c== :: CreateDirectoryConfigResponse
-> CreateDirectoryConfigResponse -> Bool
Prelude.Eq, Int -> CreateDirectoryConfigResponse -> ShowS
[CreateDirectoryConfigResponse] -> ShowS
CreateDirectoryConfigResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateDirectoryConfigResponse] -> ShowS
$cshowList :: [CreateDirectoryConfigResponse] -> ShowS
show :: CreateDirectoryConfigResponse -> String
$cshow :: CreateDirectoryConfigResponse -> String
showsPrec :: Int -> CreateDirectoryConfigResponse -> ShowS
$cshowsPrec :: Int -> CreateDirectoryConfigResponse -> ShowS
Prelude.Show, forall x.
Rep CreateDirectoryConfigResponse x
-> CreateDirectoryConfigResponse
forall x.
CreateDirectoryConfigResponse
-> Rep CreateDirectoryConfigResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateDirectoryConfigResponse x
-> CreateDirectoryConfigResponse
$cfrom :: forall x.
CreateDirectoryConfigResponse
-> Rep CreateDirectoryConfigResponse x
Prelude.Generic)

-- |
-- Create a value of 'CreateDirectoryConfigResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'directoryConfig', 'createDirectoryConfigResponse_directoryConfig' - Information about the directory configuration.
--
-- 'httpStatus', 'createDirectoryConfigResponse_httpStatus' - The response's http status code.
newCreateDirectoryConfigResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  CreateDirectoryConfigResponse
newCreateDirectoryConfigResponse :: Int -> CreateDirectoryConfigResponse
newCreateDirectoryConfigResponse Int
pHttpStatus_ =
  CreateDirectoryConfigResponse'
    { $sel:directoryConfig:CreateDirectoryConfigResponse' :: Maybe DirectoryConfig
directoryConfig =
        forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:CreateDirectoryConfigResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | Information about the directory configuration.
createDirectoryConfigResponse_directoryConfig :: Lens.Lens' CreateDirectoryConfigResponse (Prelude.Maybe DirectoryConfig)
createDirectoryConfigResponse_directoryConfig :: Lens' CreateDirectoryConfigResponse (Maybe DirectoryConfig)
createDirectoryConfigResponse_directoryConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDirectoryConfigResponse' {Maybe DirectoryConfig
directoryConfig :: Maybe DirectoryConfig
$sel:directoryConfig:CreateDirectoryConfigResponse' :: CreateDirectoryConfigResponse -> Maybe DirectoryConfig
directoryConfig} -> Maybe DirectoryConfig
directoryConfig) (\s :: CreateDirectoryConfigResponse
s@CreateDirectoryConfigResponse' {} Maybe DirectoryConfig
a -> CreateDirectoryConfigResponse
s {$sel:directoryConfig:CreateDirectoryConfigResponse' :: Maybe DirectoryConfig
directoryConfig = Maybe DirectoryConfig
a} :: CreateDirectoryConfigResponse)

-- | The response's http status code.
createDirectoryConfigResponse_httpStatus :: Lens.Lens' CreateDirectoryConfigResponse Prelude.Int
createDirectoryConfigResponse_httpStatus :: Lens' CreateDirectoryConfigResponse Int
createDirectoryConfigResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDirectoryConfigResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateDirectoryConfigResponse' :: CreateDirectoryConfigResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateDirectoryConfigResponse
s@CreateDirectoryConfigResponse' {} Int
a -> CreateDirectoryConfigResponse
s {$sel:httpStatus:CreateDirectoryConfigResponse' :: Int
httpStatus = Int
a} :: CreateDirectoryConfigResponse)

instance Prelude.NFData CreateDirectoryConfigResponse where
  rnf :: CreateDirectoryConfigResponse -> ()
rnf CreateDirectoryConfigResponse' {Int
Maybe DirectoryConfig
httpStatus :: Int
directoryConfig :: Maybe DirectoryConfig
$sel:httpStatus:CreateDirectoryConfigResponse' :: CreateDirectoryConfigResponse -> Int
$sel:directoryConfig:CreateDirectoryConfigResponse' :: CreateDirectoryConfigResponse -> Maybe DirectoryConfig
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe DirectoryConfig
directoryConfig
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus