{-# 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.Neptune.DescribeEngineDefaultParameters
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Returns the default engine and system parameter information for the
-- specified database engine.
--
-- This operation returns paginated results.
module Amazonka.Neptune.DescribeEngineDefaultParameters
  ( -- * Creating a Request
    DescribeEngineDefaultParameters (..),
    newDescribeEngineDefaultParameters,

    -- * Request Lenses
    describeEngineDefaultParameters_filters,
    describeEngineDefaultParameters_marker,
    describeEngineDefaultParameters_maxRecords,
    describeEngineDefaultParameters_dbParameterGroupFamily,

    -- * Destructuring the Response
    DescribeEngineDefaultParametersResponse (..),
    newDescribeEngineDefaultParametersResponse,

    -- * Response Lenses
    describeEngineDefaultParametersResponse_engineDefaults,
    describeEngineDefaultParametersResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import Amazonka.Neptune.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newDescribeEngineDefaultParameters' smart constructor.
data DescribeEngineDefaultParameters = DescribeEngineDefaultParameters'
  { -- | Not currently supported.
    DescribeEngineDefaultParameters -> Maybe [Filter]
filters :: Prelude.Maybe [Filter],
    -- | An optional pagination token provided by a previous
    -- @DescribeEngineDefaultParameters@ request. If this parameter is
    -- specified, the response includes only records beyond the marker, up to
    -- the value specified by @MaxRecords@.
    DescribeEngineDefaultParameters -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
    -- | The maximum number of records to include in the response. If more
    -- records exist than the specified @MaxRecords@ value, a pagination token
    -- called a marker is included in the response so that the remaining
    -- results can be retrieved.
    --
    -- Default: 100
    --
    -- Constraints: Minimum 20, maximum 100.
    DescribeEngineDefaultParameters -> Maybe Int
maxRecords :: Prelude.Maybe Prelude.Int,
    -- | The name of the DB parameter group family.
    DescribeEngineDefaultParameters -> Text
dbParameterGroupFamily :: Prelude.Text
  }
  deriving (DescribeEngineDefaultParameters
-> DescribeEngineDefaultParameters -> Bool
(DescribeEngineDefaultParameters
 -> DescribeEngineDefaultParameters -> Bool)
-> (DescribeEngineDefaultParameters
    -> DescribeEngineDefaultParameters -> Bool)
-> Eq DescribeEngineDefaultParameters
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeEngineDefaultParameters
-> DescribeEngineDefaultParameters -> Bool
$c/= :: DescribeEngineDefaultParameters
-> DescribeEngineDefaultParameters -> Bool
== :: DescribeEngineDefaultParameters
-> DescribeEngineDefaultParameters -> Bool
$c== :: DescribeEngineDefaultParameters
-> DescribeEngineDefaultParameters -> Bool
Prelude.Eq, ReadPrec [DescribeEngineDefaultParameters]
ReadPrec DescribeEngineDefaultParameters
Int -> ReadS DescribeEngineDefaultParameters
ReadS [DescribeEngineDefaultParameters]
(Int -> ReadS DescribeEngineDefaultParameters)
-> ReadS [DescribeEngineDefaultParameters]
-> ReadPrec DescribeEngineDefaultParameters
-> ReadPrec [DescribeEngineDefaultParameters]
-> Read DescribeEngineDefaultParameters
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeEngineDefaultParameters]
$creadListPrec :: ReadPrec [DescribeEngineDefaultParameters]
readPrec :: ReadPrec DescribeEngineDefaultParameters
$creadPrec :: ReadPrec DescribeEngineDefaultParameters
readList :: ReadS [DescribeEngineDefaultParameters]
$creadList :: ReadS [DescribeEngineDefaultParameters]
readsPrec :: Int -> ReadS DescribeEngineDefaultParameters
$creadsPrec :: Int -> ReadS DescribeEngineDefaultParameters
Prelude.Read, Int -> DescribeEngineDefaultParameters -> ShowS
[DescribeEngineDefaultParameters] -> ShowS
DescribeEngineDefaultParameters -> String
(Int -> DescribeEngineDefaultParameters -> ShowS)
-> (DescribeEngineDefaultParameters -> String)
-> ([DescribeEngineDefaultParameters] -> ShowS)
-> Show DescribeEngineDefaultParameters
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeEngineDefaultParameters] -> ShowS
$cshowList :: [DescribeEngineDefaultParameters] -> ShowS
show :: DescribeEngineDefaultParameters -> String
$cshow :: DescribeEngineDefaultParameters -> String
showsPrec :: Int -> DescribeEngineDefaultParameters -> ShowS
$cshowsPrec :: Int -> DescribeEngineDefaultParameters -> ShowS
Prelude.Show, (forall x.
 DescribeEngineDefaultParameters
 -> Rep DescribeEngineDefaultParameters x)
-> (forall x.
    Rep DescribeEngineDefaultParameters x
    -> DescribeEngineDefaultParameters)
-> Generic DescribeEngineDefaultParameters
forall x.
Rep DescribeEngineDefaultParameters x
-> DescribeEngineDefaultParameters
forall x.
DescribeEngineDefaultParameters
-> Rep DescribeEngineDefaultParameters x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeEngineDefaultParameters x
-> DescribeEngineDefaultParameters
$cfrom :: forall x.
DescribeEngineDefaultParameters
-> Rep DescribeEngineDefaultParameters x
Prelude.Generic)

-- |
-- Create a value of 'DescribeEngineDefaultParameters' 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:
--
-- 'filters', 'describeEngineDefaultParameters_filters' - Not currently supported.
--
-- 'marker', 'describeEngineDefaultParameters_marker' - An optional pagination token provided by a previous
-- @DescribeEngineDefaultParameters@ request. If this parameter is
-- specified, the response includes only records beyond the marker, up to
-- the value specified by @MaxRecords@.
--
-- 'maxRecords', 'describeEngineDefaultParameters_maxRecords' - The maximum number of records to include in the response. If more
-- records exist than the specified @MaxRecords@ value, a pagination token
-- called a marker is included in the response so that the remaining
-- results can be retrieved.
--
-- Default: 100
--
-- Constraints: Minimum 20, maximum 100.
--
-- 'dbParameterGroupFamily', 'describeEngineDefaultParameters_dbParameterGroupFamily' - The name of the DB parameter group family.
newDescribeEngineDefaultParameters ::
  -- | 'dbParameterGroupFamily'
  Prelude.Text ->
  DescribeEngineDefaultParameters
newDescribeEngineDefaultParameters :: Text -> DescribeEngineDefaultParameters
newDescribeEngineDefaultParameters
  Text
pDBParameterGroupFamily_ =
    DescribeEngineDefaultParameters' :: Maybe [Filter]
-> Maybe Text
-> Maybe Int
-> Text
-> DescribeEngineDefaultParameters
DescribeEngineDefaultParameters'
      { $sel:filters:DescribeEngineDefaultParameters' :: Maybe [Filter]
filters =
          Maybe [Filter]
forall a. Maybe a
Prelude.Nothing,
        $sel:marker:DescribeEngineDefaultParameters' :: Maybe Text
marker = Maybe Text
forall a. Maybe a
Prelude.Nothing,
        $sel:maxRecords:DescribeEngineDefaultParameters' :: Maybe Int
maxRecords = Maybe Int
forall a. Maybe a
Prelude.Nothing,
        $sel:dbParameterGroupFamily:DescribeEngineDefaultParameters' :: Text
dbParameterGroupFamily =
          Text
pDBParameterGroupFamily_
      }

-- | Not currently supported.
describeEngineDefaultParameters_filters :: Lens.Lens' DescribeEngineDefaultParameters (Prelude.Maybe [Filter])
describeEngineDefaultParameters_filters :: (Maybe [Filter] -> f (Maybe [Filter]))
-> DescribeEngineDefaultParameters
-> f DescribeEngineDefaultParameters
describeEngineDefaultParameters_filters = (DescribeEngineDefaultParameters -> Maybe [Filter])
-> (DescribeEngineDefaultParameters
    -> Maybe [Filter] -> DescribeEngineDefaultParameters)
-> Lens
     DescribeEngineDefaultParameters
     DescribeEngineDefaultParameters
     (Maybe [Filter])
     (Maybe [Filter])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEngineDefaultParameters' {Maybe [Filter]
filters :: Maybe [Filter]
$sel:filters:DescribeEngineDefaultParameters' :: DescribeEngineDefaultParameters -> Maybe [Filter]
filters} -> Maybe [Filter]
filters) (\s :: DescribeEngineDefaultParameters
s@DescribeEngineDefaultParameters' {} Maybe [Filter]
a -> DescribeEngineDefaultParameters
s {$sel:filters:DescribeEngineDefaultParameters' :: Maybe [Filter]
filters = Maybe [Filter]
a} :: DescribeEngineDefaultParameters) ((Maybe [Filter] -> f (Maybe [Filter]))
 -> DescribeEngineDefaultParameters
 -> f DescribeEngineDefaultParameters)
-> ((Maybe [Filter] -> f (Maybe [Filter]))
    -> Maybe [Filter] -> f (Maybe [Filter]))
-> (Maybe [Filter] -> f (Maybe [Filter]))
-> DescribeEngineDefaultParameters
-> f DescribeEngineDefaultParameters
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Filter] [Filter] [Filter] [Filter]
-> Iso
     (Maybe [Filter]) (Maybe [Filter]) (Maybe [Filter]) (Maybe [Filter])
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 AnIso [Filter] [Filter] [Filter] [Filter]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | An optional pagination token provided by a previous
-- @DescribeEngineDefaultParameters@ request. If this parameter is
-- specified, the response includes only records beyond the marker, up to
-- the value specified by @MaxRecords@.
describeEngineDefaultParameters_marker :: Lens.Lens' DescribeEngineDefaultParameters (Prelude.Maybe Prelude.Text)
describeEngineDefaultParameters_marker :: (Maybe Text -> f (Maybe Text))
-> DescribeEngineDefaultParameters
-> f DescribeEngineDefaultParameters
describeEngineDefaultParameters_marker = (DescribeEngineDefaultParameters -> Maybe Text)
-> (DescribeEngineDefaultParameters
    -> Maybe Text -> DescribeEngineDefaultParameters)
-> Lens
     DescribeEngineDefaultParameters
     DescribeEngineDefaultParameters
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEngineDefaultParameters' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeEngineDefaultParameters' :: DescribeEngineDefaultParameters -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeEngineDefaultParameters
s@DescribeEngineDefaultParameters' {} Maybe Text
a -> DescribeEngineDefaultParameters
s {$sel:marker:DescribeEngineDefaultParameters' :: Maybe Text
marker = Maybe Text
a} :: DescribeEngineDefaultParameters)

-- | The maximum number of records to include in the response. If more
-- records exist than the specified @MaxRecords@ value, a pagination token
-- called a marker is included in the response so that the remaining
-- results can be retrieved.
--
-- Default: 100
--
-- Constraints: Minimum 20, maximum 100.
describeEngineDefaultParameters_maxRecords :: Lens.Lens' DescribeEngineDefaultParameters (Prelude.Maybe Prelude.Int)
describeEngineDefaultParameters_maxRecords :: (Maybe Int -> f (Maybe Int))
-> DescribeEngineDefaultParameters
-> f DescribeEngineDefaultParameters
describeEngineDefaultParameters_maxRecords = (DescribeEngineDefaultParameters -> Maybe Int)
-> (DescribeEngineDefaultParameters
    -> Maybe Int -> DescribeEngineDefaultParameters)
-> Lens
     DescribeEngineDefaultParameters
     DescribeEngineDefaultParameters
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEngineDefaultParameters' {Maybe Int
maxRecords :: Maybe Int
$sel:maxRecords:DescribeEngineDefaultParameters' :: DescribeEngineDefaultParameters -> Maybe Int
maxRecords} -> Maybe Int
maxRecords) (\s :: DescribeEngineDefaultParameters
s@DescribeEngineDefaultParameters' {} Maybe Int
a -> DescribeEngineDefaultParameters
s {$sel:maxRecords:DescribeEngineDefaultParameters' :: Maybe Int
maxRecords = Maybe Int
a} :: DescribeEngineDefaultParameters)

-- | The name of the DB parameter group family.
describeEngineDefaultParameters_dbParameterGroupFamily :: Lens.Lens' DescribeEngineDefaultParameters Prelude.Text
describeEngineDefaultParameters_dbParameterGroupFamily :: (Text -> f Text)
-> DescribeEngineDefaultParameters
-> f DescribeEngineDefaultParameters
describeEngineDefaultParameters_dbParameterGroupFamily = (DescribeEngineDefaultParameters -> Text)
-> (DescribeEngineDefaultParameters
    -> Text -> DescribeEngineDefaultParameters)
-> Lens
     DescribeEngineDefaultParameters
     DescribeEngineDefaultParameters
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEngineDefaultParameters' {Text
dbParameterGroupFamily :: Text
$sel:dbParameterGroupFamily:DescribeEngineDefaultParameters' :: DescribeEngineDefaultParameters -> Text
dbParameterGroupFamily} -> Text
dbParameterGroupFamily) (\s :: DescribeEngineDefaultParameters
s@DescribeEngineDefaultParameters' {} Text
a -> DescribeEngineDefaultParameters
s {$sel:dbParameterGroupFamily:DescribeEngineDefaultParameters' :: Text
dbParameterGroupFamily = Text
a} :: DescribeEngineDefaultParameters)

instance
  Core.AWSPager
    DescribeEngineDefaultParameters
  where
  page :: DescribeEngineDefaultParameters
-> AWSResponse DescribeEngineDefaultParameters
-> Maybe DescribeEngineDefaultParameters
page DescribeEngineDefaultParameters
rq AWSResponse DescribeEngineDefaultParameters
rs
    | Maybe Text -> Bool
forall a. AWSTruncated a => a -> Bool
Core.stop
        ( AWSResponse DescribeEngineDefaultParameters
DescribeEngineDefaultParametersResponse
rs
            DescribeEngineDefaultParametersResponse
-> Getting
     (First Text) DescribeEngineDefaultParametersResponse Text
-> Maybe Text
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? (Maybe EngineDefaults -> Const (First Text) (Maybe EngineDefaults))
-> DescribeEngineDefaultParametersResponse
-> Const (First Text) DescribeEngineDefaultParametersResponse
Lens'
  DescribeEngineDefaultParametersResponse (Maybe EngineDefaults)
describeEngineDefaultParametersResponse_engineDefaults
              ((Maybe EngineDefaults
  -> Const (First Text) (Maybe EngineDefaults))
 -> DescribeEngineDefaultParametersResponse
 -> Const (First Text) DescribeEngineDefaultParametersResponse)
-> ((Text -> Const (First Text) Text)
    -> Maybe EngineDefaults
    -> Const (First Text) (Maybe EngineDefaults))
-> Getting
     (First Text) DescribeEngineDefaultParametersResponse Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (EngineDefaults -> Const (First Text) EngineDefaults)
-> Maybe EngineDefaults
-> Const (First Text) (Maybe EngineDefaults)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
              ((EngineDefaults -> Const (First Text) EngineDefaults)
 -> Maybe EngineDefaults
 -> Const (First Text) (Maybe EngineDefaults))
-> ((Text -> Const (First Text) Text)
    -> EngineDefaults -> Const (First Text) EngineDefaults)
-> (Text -> Const (First Text) Text)
-> Maybe EngineDefaults
-> Const (First Text) (Maybe EngineDefaults)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> Const (First Text) (Maybe Text))
-> EngineDefaults -> Const (First Text) EngineDefaults
Lens' EngineDefaults (Maybe Text)
engineDefaults_marker
              ((Maybe Text -> Const (First Text) (Maybe Text))
 -> EngineDefaults -> Const (First Text) EngineDefaults)
-> ((Text -> Const (First Text) Text)
    -> Maybe Text -> Const (First Text) (Maybe Text))
-> (Text -> Const (First Text) Text)
-> EngineDefaults
-> Const (First Text) EngineDefaults
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> Const (First Text) Text)
-> Maybe Text -> Const (First Text) (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
        ) =
      Maybe DescribeEngineDefaultParameters
forall a. Maybe a
Prelude.Nothing
    | Maybe [Parameter] -> Bool
forall a. AWSTruncated a => a -> Bool
Core.stop
        ( AWSResponse DescribeEngineDefaultParameters
DescribeEngineDefaultParametersResponse
rs
            DescribeEngineDefaultParametersResponse
-> Getting
     (First [Parameter])
     DescribeEngineDefaultParametersResponse
     [Parameter]
-> Maybe [Parameter]
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? (Maybe EngineDefaults
 -> Const (First [Parameter]) (Maybe EngineDefaults))
-> DescribeEngineDefaultParametersResponse
-> Const
     (First [Parameter]) DescribeEngineDefaultParametersResponse
Lens'
  DescribeEngineDefaultParametersResponse (Maybe EngineDefaults)
describeEngineDefaultParametersResponse_engineDefaults
              ((Maybe EngineDefaults
  -> Const (First [Parameter]) (Maybe EngineDefaults))
 -> DescribeEngineDefaultParametersResponse
 -> Const
      (First [Parameter]) DescribeEngineDefaultParametersResponse)
-> (([Parameter] -> Const (First [Parameter]) [Parameter])
    -> Maybe EngineDefaults
    -> Const (First [Parameter]) (Maybe EngineDefaults))
-> Getting
     (First [Parameter])
     DescribeEngineDefaultParametersResponse
     [Parameter]
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (EngineDefaults -> Const (First [Parameter]) EngineDefaults)
-> Maybe EngineDefaults
-> Const (First [Parameter]) (Maybe EngineDefaults)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
              ((EngineDefaults -> Const (First [Parameter]) EngineDefaults)
 -> Maybe EngineDefaults
 -> Const (First [Parameter]) (Maybe EngineDefaults))
-> (([Parameter] -> Const (First [Parameter]) [Parameter])
    -> EngineDefaults -> Const (First [Parameter]) EngineDefaults)
-> ([Parameter] -> Const (First [Parameter]) [Parameter])
-> Maybe EngineDefaults
-> Const (First [Parameter]) (Maybe EngineDefaults)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe [Parameter]
 -> Const (First [Parameter]) (Maybe [Parameter]))
-> EngineDefaults -> Const (First [Parameter]) EngineDefaults
Lens' EngineDefaults (Maybe [Parameter])
engineDefaults_parameters
              ((Maybe [Parameter]
  -> Const (First [Parameter]) (Maybe [Parameter]))
 -> EngineDefaults -> Const (First [Parameter]) EngineDefaults)
-> (([Parameter] -> Const (First [Parameter]) [Parameter])
    -> Maybe [Parameter]
    -> Const (First [Parameter]) (Maybe [Parameter]))
-> ([Parameter] -> Const (First [Parameter]) [Parameter])
-> EngineDefaults
-> Const (First [Parameter]) EngineDefaults
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([Parameter] -> Const (First [Parameter]) [Parameter])
-> Maybe [Parameter]
-> Const (First [Parameter]) (Maybe [Parameter])
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
        ) =
      Maybe DescribeEngineDefaultParameters
forall a. Maybe a
Prelude.Nothing
    | Bool
Prelude.otherwise =
      DescribeEngineDefaultParameters
-> Maybe DescribeEngineDefaultParameters
forall a. a -> Maybe a
Prelude.Just (DescribeEngineDefaultParameters
 -> Maybe DescribeEngineDefaultParameters)
-> DescribeEngineDefaultParameters
-> Maybe DescribeEngineDefaultParameters
forall a b. (a -> b) -> a -> b
Prelude.$
        DescribeEngineDefaultParameters
rq
          DescribeEngineDefaultParameters
-> (DescribeEngineDefaultParameters
    -> DescribeEngineDefaultParameters)
-> DescribeEngineDefaultParameters
forall a b. a -> (a -> b) -> b
Prelude.& (Maybe Text -> Identity (Maybe Text))
-> DescribeEngineDefaultParameters
-> Identity DescribeEngineDefaultParameters
Lens
  DescribeEngineDefaultParameters
  DescribeEngineDefaultParameters
  (Maybe Text)
  (Maybe Text)
describeEngineDefaultParameters_marker
          ((Maybe Text -> Identity (Maybe Text))
 -> DescribeEngineDefaultParameters
 -> Identity DescribeEngineDefaultParameters)
-> Maybe Text
-> DescribeEngineDefaultParameters
-> DescribeEngineDefaultParameters
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeEngineDefaultParameters
DescribeEngineDefaultParametersResponse
rs
          DescribeEngineDefaultParametersResponse
-> Getting
     (First Text) DescribeEngineDefaultParametersResponse Text
-> Maybe Text
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? (Maybe EngineDefaults -> Const (First Text) (Maybe EngineDefaults))
-> DescribeEngineDefaultParametersResponse
-> Const (First Text) DescribeEngineDefaultParametersResponse
Lens'
  DescribeEngineDefaultParametersResponse (Maybe EngineDefaults)
describeEngineDefaultParametersResponse_engineDefaults
            ((Maybe EngineDefaults
  -> Const (First Text) (Maybe EngineDefaults))
 -> DescribeEngineDefaultParametersResponse
 -> Const (First Text) DescribeEngineDefaultParametersResponse)
-> ((Text -> Const (First Text) Text)
    -> Maybe EngineDefaults
    -> Const (First Text) (Maybe EngineDefaults))
-> Getting
     (First Text) DescribeEngineDefaultParametersResponse Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (EngineDefaults -> Const (First Text) EngineDefaults)
-> Maybe EngineDefaults
-> Const (First Text) (Maybe EngineDefaults)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
            ((EngineDefaults -> Const (First Text) EngineDefaults)
 -> Maybe EngineDefaults
 -> Const (First Text) (Maybe EngineDefaults))
-> ((Text -> Const (First Text) Text)
    -> EngineDefaults -> Const (First Text) EngineDefaults)
-> (Text -> Const (First Text) Text)
-> Maybe EngineDefaults
-> Const (First Text) (Maybe EngineDefaults)
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Maybe Text -> Const (First Text) (Maybe Text))
-> EngineDefaults -> Const (First Text) EngineDefaults
Lens' EngineDefaults (Maybe Text)
engineDefaults_marker
            ((Maybe Text -> Const (First Text) (Maybe Text))
 -> EngineDefaults -> Const (First Text) EngineDefaults)
-> ((Text -> Const (First Text) Text)
    -> Maybe Text -> Const (First Text) (Maybe Text))
-> (Text -> Const (First Text) Text)
-> EngineDefaults
-> Const (First Text) EngineDefaults
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (Text -> Const (First Text) Text)
-> Maybe Text -> Const (First Text) (Maybe Text)
forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just

instance
  Core.AWSRequest
    DescribeEngineDefaultParameters
  where
  type
    AWSResponse DescribeEngineDefaultParameters =
      DescribeEngineDefaultParametersResponse
  request :: DescribeEngineDefaultParameters
-> Request DescribeEngineDefaultParameters
request = Service
-> DescribeEngineDefaultParameters
-> Request DescribeEngineDefaultParameters
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery Service
defaultService
  response :: Logger
-> Service
-> Proxy DescribeEngineDefaultParameters
-> ClientResponse ClientBody
-> m (Either
        Error
        (ClientResponse (AWSResponse DescribeEngineDefaultParameters)))
response =
    Text
-> (Int
    -> ResponseHeaders
    -> [Node]
    -> Either String (AWSResponse DescribeEngineDefaultParameters))
-> Logger
-> Service
-> Proxy DescribeEngineDefaultParameters
-> ClientResponse ClientBody
-> m (Either
        Error
        (ClientResponse (AWSResponse DescribeEngineDefaultParameters)))
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
    -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
      Text
"DescribeEngineDefaultParametersResult"
      ( \Int
s ResponseHeaders
h [Node]
x ->
          Maybe EngineDefaults
-> Int -> DescribeEngineDefaultParametersResponse
DescribeEngineDefaultParametersResponse'
            (Maybe EngineDefaults
 -> Int -> DescribeEngineDefaultParametersResponse)
-> Either String (Maybe EngineDefaults)
-> Either String (Int -> DescribeEngineDefaultParametersResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x [Node] -> Text -> Either String (Maybe EngineDefaults)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"EngineDefaults")
            Either String (Int -> DescribeEngineDefaultParametersResponse)
-> Either String Int
-> Either String DescribeEngineDefaultParametersResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance
  Prelude.Hashable
    DescribeEngineDefaultParameters

instance
  Prelude.NFData
    DescribeEngineDefaultParameters

instance
  Core.ToHeaders
    DescribeEngineDefaultParameters
  where
  toHeaders :: DescribeEngineDefaultParameters -> ResponseHeaders
toHeaders = ResponseHeaders
-> DescribeEngineDefaultParameters -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty

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

instance Core.ToQuery DescribeEngineDefaultParameters where
  toQuery :: DescribeEngineDefaultParameters -> QueryString
toQuery DescribeEngineDefaultParameters' {Maybe Int
Maybe [Filter]
Maybe Text
Text
dbParameterGroupFamily :: Text
maxRecords :: Maybe Int
marker :: Maybe Text
filters :: Maybe [Filter]
$sel:dbParameterGroupFamily:DescribeEngineDefaultParameters' :: DescribeEngineDefaultParameters -> Text
$sel:maxRecords:DescribeEngineDefaultParameters' :: DescribeEngineDefaultParameters -> Maybe Int
$sel:marker:DescribeEngineDefaultParameters' :: DescribeEngineDefaultParameters -> Maybe Text
$sel:filters:DescribeEngineDefaultParameters' :: DescribeEngineDefaultParameters -> Maybe [Filter]
..} =
    [QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"Action"
          ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: ( ByteString
"DescribeEngineDefaultParameters" ::
                      Prelude.ByteString
                  ),
        ByteString
"Version"
          ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
        ByteString
"Filters"
          ByteString -> QueryString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe QueryString -> QueryString
forall a. ToQuery a => a -> QueryString
Core.toQuery
            (ByteString -> [Filter] -> QueryString
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Core.toQueryList ByteString
"Filter" ([Filter] -> QueryString) -> Maybe [Filter] -> Maybe QueryString
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Filter]
filters),
        ByteString
"Marker" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Text
marker,
        ByteString
"MaxRecords" ByteString -> Maybe Int -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Int
maxRecords,
        ByteString
"DBParameterGroupFamily"
          ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Text
dbParameterGroupFamily
      ]

-- | /See:/ 'newDescribeEngineDefaultParametersResponse' smart constructor.
data DescribeEngineDefaultParametersResponse = DescribeEngineDefaultParametersResponse'
  { DescribeEngineDefaultParametersResponse -> Maybe EngineDefaults
engineDefaults :: Prelude.Maybe EngineDefaults,
    -- | The response's http status code.
    DescribeEngineDefaultParametersResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (DescribeEngineDefaultParametersResponse
-> DescribeEngineDefaultParametersResponse -> Bool
(DescribeEngineDefaultParametersResponse
 -> DescribeEngineDefaultParametersResponse -> Bool)
-> (DescribeEngineDefaultParametersResponse
    -> DescribeEngineDefaultParametersResponse -> Bool)
-> Eq DescribeEngineDefaultParametersResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeEngineDefaultParametersResponse
-> DescribeEngineDefaultParametersResponse -> Bool
$c/= :: DescribeEngineDefaultParametersResponse
-> DescribeEngineDefaultParametersResponse -> Bool
== :: DescribeEngineDefaultParametersResponse
-> DescribeEngineDefaultParametersResponse -> Bool
$c== :: DescribeEngineDefaultParametersResponse
-> DescribeEngineDefaultParametersResponse -> Bool
Prelude.Eq, ReadPrec [DescribeEngineDefaultParametersResponse]
ReadPrec DescribeEngineDefaultParametersResponse
Int -> ReadS DescribeEngineDefaultParametersResponse
ReadS [DescribeEngineDefaultParametersResponse]
(Int -> ReadS DescribeEngineDefaultParametersResponse)
-> ReadS [DescribeEngineDefaultParametersResponse]
-> ReadPrec DescribeEngineDefaultParametersResponse
-> ReadPrec [DescribeEngineDefaultParametersResponse]
-> Read DescribeEngineDefaultParametersResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeEngineDefaultParametersResponse]
$creadListPrec :: ReadPrec [DescribeEngineDefaultParametersResponse]
readPrec :: ReadPrec DescribeEngineDefaultParametersResponse
$creadPrec :: ReadPrec DescribeEngineDefaultParametersResponse
readList :: ReadS [DescribeEngineDefaultParametersResponse]
$creadList :: ReadS [DescribeEngineDefaultParametersResponse]
readsPrec :: Int -> ReadS DescribeEngineDefaultParametersResponse
$creadsPrec :: Int -> ReadS DescribeEngineDefaultParametersResponse
Prelude.Read, Int -> DescribeEngineDefaultParametersResponse -> ShowS
[DescribeEngineDefaultParametersResponse] -> ShowS
DescribeEngineDefaultParametersResponse -> String
(Int -> DescribeEngineDefaultParametersResponse -> ShowS)
-> (DescribeEngineDefaultParametersResponse -> String)
-> ([DescribeEngineDefaultParametersResponse] -> ShowS)
-> Show DescribeEngineDefaultParametersResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeEngineDefaultParametersResponse] -> ShowS
$cshowList :: [DescribeEngineDefaultParametersResponse] -> ShowS
show :: DescribeEngineDefaultParametersResponse -> String
$cshow :: DescribeEngineDefaultParametersResponse -> String
showsPrec :: Int -> DescribeEngineDefaultParametersResponse -> ShowS
$cshowsPrec :: Int -> DescribeEngineDefaultParametersResponse -> ShowS
Prelude.Show, (forall x.
 DescribeEngineDefaultParametersResponse
 -> Rep DescribeEngineDefaultParametersResponse x)
-> (forall x.
    Rep DescribeEngineDefaultParametersResponse x
    -> DescribeEngineDefaultParametersResponse)
-> Generic DescribeEngineDefaultParametersResponse
forall x.
Rep DescribeEngineDefaultParametersResponse x
-> DescribeEngineDefaultParametersResponse
forall x.
DescribeEngineDefaultParametersResponse
-> Rep DescribeEngineDefaultParametersResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeEngineDefaultParametersResponse x
-> DescribeEngineDefaultParametersResponse
$cfrom :: forall x.
DescribeEngineDefaultParametersResponse
-> Rep DescribeEngineDefaultParametersResponse x
Prelude.Generic)

-- |
-- Create a value of 'DescribeEngineDefaultParametersResponse' 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:
--
-- 'engineDefaults', 'describeEngineDefaultParametersResponse_engineDefaults' - Undocumented member.
--
-- 'httpStatus', 'describeEngineDefaultParametersResponse_httpStatus' - The response's http status code.
newDescribeEngineDefaultParametersResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  DescribeEngineDefaultParametersResponse
newDescribeEngineDefaultParametersResponse :: Int -> DescribeEngineDefaultParametersResponse
newDescribeEngineDefaultParametersResponse
  Int
pHttpStatus_ =
    DescribeEngineDefaultParametersResponse' :: Maybe EngineDefaults
-> Int -> DescribeEngineDefaultParametersResponse
DescribeEngineDefaultParametersResponse'
      { $sel:engineDefaults:DescribeEngineDefaultParametersResponse' :: Maybe EngineDefaults
engineDefaults =
          Maybe EngineDefaults
forall a. Maybe a
Prelude.Nothing,
        $sel:httpStatus:DescribeEngineDefaultParametersResponse' :: Int
httpStatus = Int
pHttpStatus_
      }

-- | Undocumented member.
describeEngineDefaultParametersResponse_engineDefaults :: Lens.Lens' DescribeEngineDefaultParametersResponse (Prelude.Maybe EngineDefaults)
describeEngineDefaultParametersResponse_engineDefaults :: (Maybe EngineDefaults -> f (Maybe EngineDefaults))
-> DescribeEngineDefaultParametersResponse
-> f DescribeEngineDefaultParametersResponse
describeEngineDefaultParametersResponse_engineDefaults = (DescribeEngineDefaultParametersResponse -> Maybe EngineDefaults)
-> (DescribeEngineDefaultParametersResponse
    -> Maybe EngineDefaults -> DescribeEngineDefaultParametersResponse)
-> Lens'
     DescribeEngineDefaultParametersResponse (Maybe EngineDefaults)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEngineDefaultParametersResponse' {Maybe EngineDefaults
engineDefaults :: Maybe EngineDefaults
$sel:engineDefaults:DescribeEngineDefaultParametersResponse' :: DescribeEngineDefaultParametersResponse -> Maybe EngineDefaults
engineDefaults} -> Maybe EngineDefaults
engineDefaults) (\s :: DescribeEngineDefaultParametersResponse
s@DescribeEngineDefaultParametersResponse' {} Maybe EngineDefaults
a -> DescribeEngineDefaultParametersResponse
s {$sel:engineDefaults:DescribeEngineDefaultParametersResponse' :: Maybe EngineDefaults
engineDefaults = Maybe EngineDefaults
a} :: DescribeEngineDefaultParametersResponse)

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

instance
  Prelude.NFData
    DescribeEngineDefaultParametersResponse