{-# 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 #-}
module Amazonka.CloudFront.ListResponseHeadersPolicies
(
ListResponseHeadersPolicies (..),
newListResponseHeadersPolicies,
listResponseHeadersPolicies_marker,
listResponseHeadersPolicies_maxItems,
listResponseHeadersPolicies_type,
ListResponseHeadersPoliciesResponse (..),
newListResponseHeadersPoliciesResponse,
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
data =
{
:: Prelude.Maybe Prelude.Text,
:: Prelude.Maybe Prelude.Text,
:: 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)
newListResponseHeadersPolicies ::
ListResponseHeadersPolicies
=
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
}
listResponseHeadersPolicies_marker :: Lens.Lens' ListResponseHeadersPolicies (Prelude.Maybe Prelude.Text)
= 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)
listResponseHeadersPolicies_maxItems :: Lens.Lens' ListResponseHeadersPolicies (Prelude.Maybe Prelude.Text)
= 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)
listResponseHeadersPolicies_type :: Lens.Lens' ListResponseHeadersPolicies (Prelude.Maybe ResponseHeadersPolicyType)
= 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'
]
data =
{
:: Prelude.Maybe ResponseHeadersPolicyList,
:: 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)
newListResponseHeadersPoliciesResponse ::
Prelude.Int ->
ListResponseHeadersPoliciesResponse
Int
pHttpStatus_ =
ListResponseHeadersPoliciesResponse'
{ $sel:responseHeadersPolicyList:ListResponseHeadersPoliciesResponse' :: Maybe ResponseHeadersPolicyList
responseHeadersPolicyList =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListResponseHeadersPoliciesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listResponseHeadersPoliciesResponse_responseHeadersPolicyList :: Lens.Lens' ListResponseHeadersPoliciesResponse (Prelude.Maybe 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)
listResponseHeadersPoliciesResponse_httpStatus :: Lens.Lens' ListResponseHeadersPoliciesResponse Prelude.Int
= 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