{-# 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.CloudFront.ListResponseHeadersPolicies
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Gets a list of response headers policies.
--
-- You can optionally apply a filter to get only the managed policies
-- created by Amazon Web Services, or only the custom policies created in
-- your Amazon Web Services account.
--
-- You can optionally specify the maximum number of items to receive in the
-- response. If the total number of items in the list exceeds the maximum
-- that you specify, or the default maximum, the response is paginated. To
-- get the next page of items, send a subsequent request that specifies the
-- @NextMarker@ value from the current response as the @Marker@ value in
-- the subsequent request.
module Amazonka.CloudFront.ListResponseHeadersPolicies
  ( -- * Creating a Request
    ListResponseHeadersPolicies (..),
    newListResponseHeadersPolicies,

    -- * Request Lenses
    listResponseHeadersPolicies_marker,
    listResponseHeadersPolicies_maxItems,
    listResponseHeadersPolicies_type,

    -- * Destructuring the Response
    ListResponseHeadersPoliciesResponse (..),
    newListResponseHeadersPoliciesResponse,

    -- * Response Lenses
    listResponseHeadersPoliciesResponse_responseHeadersPolicyList,
    listResponseHeadersPoliciesResponse_httpStatus,
  )
where

import Amazonka.CloudFront.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:/ 'newListResponseHeadersPolicies' smart constructor.
data ListResponseHeadersPolicies = ListResponseHeadersPolicies'
  { -- | Use this field when paginating results to indicate where to begin in
    -- your list of response headers policies. The response includes response
    -- headers policies in the list that occur after the marker. To get the
    -- next page of the list, set this field\'s value to the value of
    -- @NextMarker@ from the current page\'s response.
    ListResponseHeadersPolicies -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
    -- | The maximum number of response headers policies that you want to get in
    -- the response.
    ListResponseHeadersPolicies -> Maybe Text
maxItems :: Prelude.Maybe Prelude.Text,
    -- | A filter to get only the specified kind of response headers policies.
    -- Valid values are:
    --
    -- -   @managed@ – Gets only the managed policies created by Amazon Web
    --     Services.
    --
    -- -   @custom@ – Gets only the custom policies created in your Amazon Web
    --     Services account.
    ListResponseHeadersPolicies -> Maybe ResponseHeadersPolicyType
type' :: Prelude.Maybe ResponseHeadersPolicyType
  }
  deriving (ListResponseHeadersPolicies -> ListResponseHeadersPolicies -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListResponseHeadersPolicies -> ListResponseHeadersPolicies -> Bool
$c/= :: ListResponseHeadersPolicies -> ListResponseHeadersPolicies -> Bool
== :: ListResponseHeadersPolicies -> ListResponseHeadersPolicies -> Bool
$c== :: ListResponseHeadersPolicies -> ListResponseHeadersPolicies -> Bool
Prelude.Eq, ReadPrec [ListResponseHeadersPolicies]
ReadPrec ListResponseHeadersPolicies
Int -> ReadS ListResponseHeadersPolicies
ReadS [ListResponseHeadersPolicies]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListResponseHeadersPolicies]
$creadListPrec :: ReadPrec [ListResponseHeadersPolicies]
readPrec :: ReadPrec ListResponseHeadersPolicies
$creadPrec :: ReadPrec ListResponseHeadersPolicies
readList :: ReadS [ListResponseHeadersPolicies]
$creadList :: ReadS [ListResponseHeadersPolicies]
readsPrec :: Int -> ReadS ListResponseHeadersPolicies
$creadsPrec :: Int -> ReadS ListResponseHeadersPolicies
Prelude.Read, Int -> ListResponseHeadersPolicies -> ShowS
[ListResponseHeadersPolicies] -> ShowS
ListResponseHeadersPolicies -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListResponseHeadersPolicies] -> ShowS
$cshowList :: [ListResponseHeadersPolicies] -> ShowS
show :: ListResponseHeadersPolicies -> String
$cshow :: ListResponseHeadersPolicies -> String
showsPrec :: Int -> ListResponseHeadersPolicies -> ShowS
$cshowsPrec :: Int -> ListResponseHeadersPolicies -> ShowS
Prelude.Show, forall x.
Rep ListResponseHeadersPolicies x -> ListResponseHeadersPolicies
forall x.
ListResponseHeadersPolicies -> Rep ListResponseHeadersPolicies x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListResponseHeadersPolicies x -> ListResponseHeadersPolicies
$cfrom :: forall x.
ListResponseHeadersPolicies -> Rep ListResponseHeadersPolicies x
Prelude.Generic)

-- |
-- Create a value of 'ListResponseHeadersPolicies' 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:
--
-- 'marker', 'listResponseHeadersPolicies_marker' - Use this field when paginating results to indicate where to begin in
-- your list of response headers policies. The response includes response
-- headers policies in the list that occur after the marker. To get the
-- next page of the list, set this field\'s value to the value of
-- @NextMarker@ from the current page\'s response.
--
-- 'maxItems', 'listResponseHeadersPolicies_maxItems' - The maximum number of response headers policies that you want to get in
-- the response.
--
-- 'type'', 'listResponseHeadersPolicies_type' - A filter to get only the specified kind of response headers policies.
-- Valid values are:
--
-- -   @managed@ – Gets only the managed policies created by Amazon Web
--     Services.
--
-- -   @custom@ – Gets only the custom policies created in your Amazon Web
--     Services account.
newListResponseHeadersPolicies ::
  ListResponseHeadersPolicies
newListResponseHeadersPolicies :: ListResponseHeadersPolicies
newListResponseHeadersPolicies =
  ListResponseHeadersPolicies'
    { $sel:marker:ListResponseHeadersPolicies' :: Maybe Text
marker =
        forall a. Maybe a
Prelude.Nothing,
      $sel:maxItems:ListResponseHeadersPolicies' :: Maybe Text
maxItems = forall a. Maybe a
Prelude.Nothing,
      $sel:type':ListResponseHeadersPolicies' :: Maybe ResponseHeadersPolicyType
type' = forall a. Maybe a
Prelude.Nothing
    }

-- | Use this field when paginating results to indicate where to begin in
-- your list of response headers policies. The response includes response
-- headers policies in the list that occur after the marker. To get the
-- next page of the list, set this field\'s value to the value of
-- @NextMarker@ from the current page\'s response.
listResponseHeadersPolicies_marker :: Lens.Lens' ListResponseHeadersPolicies (Prelude.Maybe Prelude.Text)
listResponseHeadersPolicies_marker :: Lens' ListResponseHeadersPolicies (Maybe Text)
listResponseHeadersPolicies_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResponseHeadersPolicies' {Maybe Text
marker :: Maybe Text
$sel:marker:ListResponseHeadersPolicies' :: ListResponseHeadersPolicies -> Maybe Text
marker} -> Maybe Text
marker) (\s :: ListResponseHeadersPolicies
s@ListResponseHeadersPolicies' {} Maybe Text
a -> ListResponseHeadersPolicies
s {$sel:marker:ListResponseHeadersPolicies' :: Maybe Text
marker = Maybe Text
a} :: ListResponseHeadersPolicies)

-- | The maximum number of response headers policies that you want to get in
-- the response.
listResponseHeadersPolicies_maxItems :: Lens.Lens' ListResponseHeadersPolicies (Prelude.Maybe Prelude.Text)
listResponseHeadersPolicies_maxItems :: Lens' ListResponseHeadersPolicies (Maybe Text)
listResponseHeadersPolicies_maxItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResponseHeadersPolicies' {Maybe Text
maxItems :: Maybe Text
$sel:maxItems:ListResponseHeadersPolicies' :: ListResponseHeadersPolicies -> Maybe Text
maxItems} -> Maybe Text
maxItems) (\s :: ListResponseHeadersPolicies
s@ListResponseHeadersPolicies' {} Maybe Text
a -> ListResponseHeadersPolicies
s {$sel:maxItems:ListResponseHeadersPolicies' :: Maybe Text
maxItems = Maybe Text
a} :: ListResponseHeadersPolicies)

-- | A filter to get only the specified kind of response headers policies.
-- Valid values are:
--
-- -   @managed@ – Gets only the managed policies created by Amazon Web
--     Services.
--
-- -   @custom@ – Gets only the custom policies created in your Amazon Web
--     Services account.
listResponseHeadersPolicies_type :: Lens.Lens' ListResponseHeadersPolicies (Prelude.Maybe ResponseHeadersPolicyType)
listResponseHeadersPolicies_type :: Lens' ListResponseHeadersPolicies (Maybe ResponseHeadersPolicyType)
listResponseHeadersPolicies_type = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResponseHeadersPolicies' {Maybe ResponseHeadersPolicyType
type' :: Maybe ResponseHeadersPolicyType
$sel:type':ListResponseHeadersPolicies' :: ListResponseHeadersPolicies -> Maybe ResponseHeadersPolicyType
type'} -> Maybe ResponseHeadersPolicyType
type') (\s :: ListResponseHeadersPolicies
s@ListResponseHeadersPolicies' {} Maybe ResponseHeadersPolicyType
a -> ListResponseHeadersPolicies
s {$sel:type':ListResponseHeadersPolicies' :: Maybe ResponseHeadersPolicyType
type' = Maybe ResponseHeadersPolicyType
a} :: ListResponseHeadersPolicies)

instance Core.AWSRequest ListResponseHeadersPolicies where
  type
    AWSResponse ListResponseHeadersPolicies =
      ListResponseHeadersPoliciesResponse
  request :: (Service -> Service)
-> ListResponseHeadersPolicies
-> Request ListResponseHeadersPolicies
request Service -> Service
overrides =
    forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListResponseHeadersPolicies
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse ListResponseHeadersPolicies)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
      ( \Int
s ResponseHeaders
h [Node]
x ->
          Maybe ResponseHeadersPolicyList
-> Int -> ListResponseHeadersPoliciesResponse
ListResponseHeadersPoliciesResponse'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (forall a. FromXML a => [Node] -> Either String a
Data.parseXML [Node]
x)
            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 ListResponseHeadersPolicies where
  hashWithSalt :: Int -> ListResponseHeadersPolicies -> Int
hashWithSalt Int
_salt ListResponseHeadersPolicies' {Maybe Text
Maybe ResponseHeadersPolicyType
type' :: Maybe ResponseHeadersPolicyType
maxItems :: Maybe Text
marker :: Maybe Text
$sel:type':ListResponseHeadersPolicies' :: ListResponseHeadersPolicies -> Maybe ResponseHeadersPolicyType
$sel:maxItems:ListResponseHeadersPolicies' :: ListResponseHeadersPolicies -> Maybe Text
$sel:marker:ListResponseHeadersPolicies' :: ListResponseHeadersPolicies -> Maybe Text
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
marker
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
maxItems
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ResponseHeadersPolicyType
type'

instance Prelude.NFData ListResponseHeadersPolicies where
  rnf :: ListResponseHeadersPolicies -> ()
rnf ListResponseHeadersPolicies' {Maybe Text
Maybe ResponseHeadersPolicyType
type' :: Maybe ResponseHeadersPolicyType
maxItems :: Maybe Text
marker :: Maybe Text
$sel:type':ListResponseHeadersPolicies' :: ListResponseHeadersPolicies -> Maybe ResponseHeadersPolicyType
$sel:maxItems:ListResponseHeadersPolicies' :: ListResponseHeadersPolicies -> Maybe Text
$sel:marker:ListResponseHeadersPolicies' :: ListResponseHeadersPolicies -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
marker
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
maxItems
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ResponseHeadersPolicyType
type'

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

instance Data.ToPath ListResponseHeadersPolicies where
  toPath :: ListResponseHeadersPolicies -> ByteString
toPath =
    forall a b. a -> b -> a
Prelude.const ByteString
"/2020-05-31/response-headers-policy"

instance Data.ToQuery ListResponseHeadersPolicies where
  toQuery :: ListResponseHeadersPolicies -> QueryString
toQuery ListResponseHeadersPolicies' {Maybe Text
Maybe ResponseHeadersPolicyType
type' :: Maybe ResponseHeadersPolicyType
maxItems :: Maybe Text
marker :: Maybe Text
$sel:type':ListResponseHeadersPolicies' :: ListResponseHeadersPolicies -> Maybe ResponseHeadersPolicyType
$sel:maxItems:ListResponseHeadersPolicies' :: ListResponseHeadersPolicies -> Maybe Text
$sel:marker:ListResponseHeadersPolicies' :: ListResponseHeadersPolicies -> Maybe Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"Marker" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
marker,
        ByteString
"MaxItems" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
maxItems,
        ByteString
"Type" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe ResponseHeadersPolicyType
type'
      ]

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

-- |
-- Create a value of 'ListResponseHeadersPoliciesResponse' 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:
--
-- 'responseHeadersPolicyList', 'listResponseHeadersPoliciesResponse_responseHeadersPolicyList' - A list of response headers policies.
--
-- 'httpStatus', 'listResponseHeadersPoliciesResponse_httpStatus' - The response's http status code.
newListResponseHeadersPoliciesResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  ListResponseHeadersPoliciesResponse
newListResponseHeadersPoliciesResponse :: Int -> ListResponseHeadersPoliciesResponse
newListResponseHeadersPoliciesResponse Int
pHttpStatus_ =
  ListResponseHeadersPoliciesResponse'
    { $sel:responseHeadersPolicyList:ListResponseHeadersPoliciesResponse' :: Maybe ResponseHeadersPolicyList
responseHeadersPolicyList =
        forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:ListResponseHeadersPoliciesResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | A list of response headers policies.
listResponseHeadersPoliciesResponse_responseHeadersPolicyList :: Lens.Lens' ListResponseHeadersPoliciesResponse (Prelude.Maybe ResponseHeadersPolicyList)
listResponseHeadersPoliciesResponse_responseHeadersPolicyList :: Lens'
  ListResponseHeadersPoliciesResponse
  (Maybe ResponseHeadersPolicyList)
listResponseHeadersPoliciesResponse_responseHeadersPolicyList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListResponseHeadersPoliciesResponse' {Maybe ResponseHeadersPolicyList
responseHeadersPolicyList :: Maybe ResponseHeadersPolicyList
$sel:responseHeadersPolicyList:ListResponseHeadersPoliciesResponse' :: ListResponseHeadersPoliciesResponse
-> Maybe ResponseHeadersPolicyList
responseHeadersPolicyList} -> Maybe ResponseHeadersPolicyList
responseHeadersPolicyList) (\s :: ListResponseHeadersPoliciesResponse
s@ListResponseHeadersPoliciesResponse' {} Maybe ResponseHeadersPolicyList
a -> ListResponseHeadersPoliciesResponse
s {$sel:responseHeadersPolicyList:ListResponseHeadersPoliciesResponse' :: Maybe ResponseHeadersPolicyList
responseHeadersPolicyList = Maybe ResponseHeadersPolicyList
a} :: ListResponseHeadersPoliciesResponse)

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

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