{-# 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.ListDistributionsByResponseHeadersPolicyId
(
ListDistributionsByResponseHeadersPolicyId (..),
newListDistributionsByResponseHeadersPolicyId,
listDistributionsByResponseHeadersPolicyId_marker,
listDistributionsByResponseHeadersPolicyId_maxItems,
listDistributionsByResponseHeadersPolicyId_responseHeadersPolicyId,
ListDistributionsByResponseHeadersPolicyIdResponse (..),
newListDistributionsByResponseHeadersPolicyIdResponse,
listDistributionsByResponseHeadersPolicyIdResponse_distributionIdList,
listDistributionsByResponseHeadersPolicyIdResponse_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.Text
}
deriving (ListDistributionsByResponseHeadersPolicyId
-> ListDistributionsByResponseHeadersPolicyId -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListDistributionsByResponseHeadersPolicyId
-> ListDistributionsByResponseHeadersPolicyId -> Bool
$c/= :: ListDistributionsByResponseHeadersPolicyId
-> ListDistributionsByResponseHeadersPolicyId -> Bool
== :: ListDistributionsByResponseHeadersPolicyId
-> ListDistributionsByResponseHeadersPolicyId -> Bool
$c== :: ListDistributionsByResponseHeadersPolicyId
-> ListDistributionsByResponseHeadersPolicyId -> Bool
Prelude.Eq, ReadPrec [ListDistributionsByResponseHeadersPolicyId]
ReadPrec ListDistributionsByResponseHeadersPolicyId
Int -> ReadS ListDistributionsByResponseHeadersPolicyId
ReadS [ListDistributionsByResponseHeadersPolicyId]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListDistributionsByResponseHeadersPolicyId]
$creadListPrec :: ReadPrec [ListDistributionsByResponseHeadersPolicyId]
readPrec :: ReadPrec ListDistributionsByResponseHeadersPolicyId
$creadPrec :: ReadPrec ListDistributionsByResponseHeadersPolicyId
readList :: ReadS [ListDistributionsByResponseHeadersPolicyId]
$creadList :: ReadS [ListDistributionsByResponseHeadersPolicyId]
readsPrec :: Int -> ReadS ListDistributionsByResponseHeadersPolicyId
$creadsPrec :: Int -> ReadS ListDistributionsByResponseHeadersPolicyId
Prelude.Read, Int -> ListDistributionsByResponseHeadersPolicyId -> ShowS
[ListDistributionsByResponseHeadersPolicyId] -> ShowS
ListDistributionsByResponseHeadersPolicyId -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListDistributionsByResponseHeadersPolicyId] -> ShowS
$cshowList :: [ListDistributionsByResponseHeadersPolicyId] -> ShowS
show :: ListDistributionsByResponseHeadersPolicyId -> String
$cshow :: ListDistributionsByResponseHeadersPolicyId -> String
showsPrec :: Int -> ListDistributionsByResponseHeadersPolicyId -> ShowS
$cshowsPrec :: Int -> ListDistributionsByResponseHeadersPolicyId -> ShowS
Prelude.Show, forall x.
Rep ListDistributionsByResponseHeadersPolicyId x
-> ListDistributionsByResponseHeadersPolicyId
forall x.
ListDistributionsByResponseHeadersPolicyId
-> Rep ListDistributionsByResponseHeadersPolicyId x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListDistributionsByResponseHeadersPolicyId x
-> ListDistributionsByResponseHeadersPolicyId
$cfrom :: forall x.
ListDistributionsByResponseHeadersPolicyId
-> Rep ListDistributionsByResponseHeadersPolicyId x
Prelude.Generic)
newListDistributionsByResponseHeadersPolicyId ::
Prelude.Text ->
ListDistributionsByResponseHeadersPolicyId
Text
pResponseHeadersPolicyId_ =
ListDistributionsByResponseHeadersPolicyId'
{ $sel:marker:ListDistributionsByResponseHeadersPolicyId' :: Maybe Text
marker =
forall a. Maybe a
Prelude.Nothing,
$sel:maxItems:ListDistributionsByResponseHeadersPolicyId' :: Maybe Text
maxItems = forall a. Maybe a
Prelude.Nothing,
$sel:responseHeadersPolicyId:ListDistributionsByResponseHeadersPolicyId' :: Text
responseHeadersPolicyId =
Text
pResponseHeadersPolicyId_
}
listDistributionsByResponseHeadersPolicyId_marker :: Lens.Lens' ListDistributionsByResponseHeadersPolicyId (Prelude.Maybe Prelude.Text)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDistributionsByResponseHeadersPolicyId' {Maybe Text
marker :: Maybe Text
$sel:marker:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> Maybe Text
marker} -> Maybe Text
marker) (\s :: ListDistributionsByResponseHeadersPolicyId
s@ListDistributionsByResponseHeadersPolicyId' {} Maybe Text
a -> ListDistributionsByResponseHeadersPolicyId
s {$sel:marker:ListDistributionsByResponseHeadersPolicyId' :: Maybe Text
marker = Maybe Text
a} :: ListDistributionsByResponseHeadersPolicyId)
listDistributionsByResponseHeadersPolicyId_maxItems :: Lens.Lens' ListDistributionsByResponseHeadersPolicyId (Prelude.Maybe Prelude.Text)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDistributionsByResponseHeadersPolicyId' {Maybe Text
maxItems :: Maybe Text
$sel:maxItems:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> Maybe Text
maxItems} -> Maybe Text
maxItems) (\s :: ListDistributionsByResponseHeadersPolicyId
s@ListDistributionsByResponseHeadersPolicyId' {} Maybe Text
a -> ListDistributionsByResponseHeadersPolicyId
s {$sel:maxItems:ListDistributionsByResponseHeadersPolicyId' :: Maybe Text
maxItems = Maybe Text
a} :: ListDistributionsByResponseHeadersPolicyId)
listDistributionsByResponseHeadersPolicyId_responseHeadersPolicyId :: Lens.Lens' ListDistributionsByResponseHeadersPolicyId Prelude.Text
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDistributionsByResponseHeadersPolicyId' {Text
responseHeadersPolicyId :: Text
$sel:responseHeadersPolicyId:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> Text
responseHeadersPolicyId} -> Text
responseHeadersPolicyId) (\s :: ListDistributionsByResponseHeadersPolicyId
s@ListDistributionsByResponseHeadersPolicyId' {} Text
a -> ListDistributionsByResponseHeadersPolicyId
s {$sel:responseHeadersPolicyId:ListDistributionsByResponseHeadersPolicyId' :: Text
responseHeadersPolicyId = Text
a} :: ListDistributionsByResponseHeadersPolicyId)
instance
Core.AWSRequest
ListDistributionsByResponseHeadersPolicyId
where
type
AWSResponse
ListDistributionsByResponseHeadersPolicyId =
ListDistributionsByResponseHeadersPolicyIdResponse
request :: (Service -> Service)
-> ListDistributionsByResponseHeadersPolicyId
-> Request ListDistributionsByResponseHeadersPolicyId
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 ListDistributionsByResponseHeadersPolicyId
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse ListDistributionsByResponseHeadersPolicyId)))
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 DistributionIdList
-> Int -> ListDistributionsByResponseHeadersPolicyIdResponse
ListDistributionsByResponseHeadersPolicyIdResponse'
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
ListDistributionsByResponseHeadersPolicyId
where
hashWithSalt :: Int -> ListDistributionsByResponseHeadersPolicyId -> Int
hashWithSalt
Int
_salt
ListDistributionsByResponseHeadersPolicyId' {Maybe Text
Text
responseHeadersPolicyId :: Text
maxItems :: Maybe Text
marker :: Maybe Text
$sel:responseHeadersPolicyId:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> Text
$sel:maxItems:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> Maybe Text
$sel:marker:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> 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` Text
responseHeadersPolicyId
instance
Prelude.NFData
ListDistributionsByResponseHeadersPolicyId
where
rnf :: ListDistributionsByResponseHeadersPolicyId -> ()
rnf ListDistributionsByResponseHeadersPolicyId' {Maybe Text
Text
responseHeadersPolicyId :: Text
maxItems :: Maybe Text
marker :: Maybe Text
$sel:responseHeadersPolicyId:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> Text
$sel:maxItems:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> Maybe Text
$sel:marker:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> 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 Text
responseHeadersPolicyId
instance
Data.ToHeaders
ListDistributionsByResponseHeadersPolicyId
where
toHeaders :: ListDistributionsByResponseHeadersPolicyId -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
ListDistributionsByResponseHeadersPolicyId
where
toPath :: ListDistributionsByResponseHeadersPolicyId -> ByteString
toPath
ListDistributionsByResponseHeadersPolicyId' {Maybe Text
Text
responseHeadersPolicyId :: Text
maxItems :: Maybe Text
marker :: Maybe Text
$sel:responseHeadersPolicyId:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> Text
$sel:maxItems:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> Maybe Text
$sel:marker:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/2020-05-31/distributionsByResponseHeadersPolicyId/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
responseHeadersPolicyId
]
instance
Data.ToQuery
ListDistributionsByResponseHeadersPolicyId
where
toQuery :: ListDistributionsByResponseHeadersPolicyId -> QueryString
toQuery
ListDistributionsByResponseHeadersPolicyId' {Maybe Text
Text
responseHeadersPolicyId :: Text
maxItems :: Maybe Text
marker :: Maybe Text
$sel:responseHeadersPolicyId:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> Text
$sel:maxItems:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> Maybe Text
$sel:marker:ListDistributionsByResponseHeadersPolicyId' :: ListDistributionsByResponseHeadersPolicyId -> 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
]
data =
{ :: Prelude.Maybe DistributionIdList,
:: Prelude.Int
}
deriving (ListDistributionsByResponseHeadersPolicyIdResponse
-> ListDistributionsByResponseHeadersPolicyIdResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListDistributionsByResponseHeadersPolicyIdResponse
-> ListDistributionsByResponseHeadersPolicyIdResponse -> Bool
$c/= :: ListDistributionsByResponseHeadersPolicyIdResponse
-> ListDistributionsByResponseHeadersPolicyIdResponse -> Bool
== :: ListDistributionsByResponseHeadersPolicyIdResponse
-> ListDistributionsByResponseHeadersPolicyIdResponse -> Bool
$c== :: ListDistributionsByResponseHeadersPolicyIdResponse
-> ListDistributionsByResponseHeadersPolicyIdResponse -> Bool
Prelude.Eq, ReadPrec [ListDistributionsByResponseHeadersPolicyIdResponse]
ReadPrec ListDistributionsByResponseHeadersPolicyIdResponse
Int -> ReadS ListDistributionsByResponseHeadersPolicyIdResponse
ReadS [ListDistributionsByResponseHeadersPolicyIdResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListDistributionsByResponseHeadersPolicyIdResponse]
$creadListPrec :: ReadPrec [ListDistributionsByResponseHeadersPolicyIdResponse]
readPrec :: ReadPrec ListDistributionsByResponseHeadersPolicyIdResponse
$creadPrec :: ReadPrec ListDistributionsByResponseHeadersPolicyIdResponse
readList :: ReadS [ListDistributionsByResponseHeadersPolicyIdResponse]
$creadList :: ReadS [ListDistributionsByResponseHeadersPolicyIdResponse]
readsPrec :: Int -> ReadS ListDistributionsByResponseHeadersPolicyIdResponse
$creadsPrec :: Int -> ReadS ListDistributionsByResponseHeadersPolicyIdResponse
Prelude.Read, Int -> ListDistributionsByResponseHeadersPolicyIdResponse -> ShowS
[ListDistributionsByResponseHeadersPolicyIdResponse] -> ShowS
ListDistributionsByResponseHeadersPolicyIdResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListDistributionsByResponseHeadersPolicyIdResponse] -> ShowS
$cshowList :: [ListDistributionsByResponseHeadersPolicyIdResponse] -> ShowS
show :: ListDistributionsByResponseHeadersPolicyIdResponse -> String
$cshow :: ListDistributionsByResponseHeadersPolicyIdResponse -> String
showsPrec :: Int -> ListDistributionsByResponseHeadersPolicyIdResponse -> ShowS
$cshowsPrec :: Int -> ListDistributionsByResponseHeadersPolicyIdResponse -> ShowS
Prelude.Show, forall x.
Rep ListDistributionsByResponseHeadersPolicyIdResponse x
-> ListDistributionsByResponseHeadersPolicyIdResponse
forall x.
ListDistributionsByResponseHeadersPolicyIdResponse
-> Rep ListDistributionsByResponseHeadersPolicyIdResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListDistributionsByResponseHeadersPolicyIdResponse x
-> ListDistributionsByResponseHeadersPolicyIdResponse
$cfrom :: forall x.
ListDistributionsByResponseHeadersPolicyIdResponse
-> Rep ListDistributionsByResponseHeadersPolicyIdResponse x
Prelude.Generic)
newListDistributionsByResponseHeadersPolicyIdResponse ::
Prelude.Int ->
ListDistributionsByResponseHeadersPolicyIdResponse
Int
pHttpStatus_ =
ListDistributionsByResponseHeadersPolicyIdResponse'
{ $sel:distributionIdList:ListDistributionsByResponseHeadersPolicyIdResponse' :: Maybe DistributionIdList
distributionIdList =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListDistributionsByResponseHeadersPolicyIdResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
listDistributionsByResponseHeadersPolicyIdResponse_distributionIdList :: Lens.Lens' ListDistributionsByResponseHeadersPolicyIdResponse (Prelude.Maybe DistributionIdList)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDistributionsByResponseHeadersPolicyIdResponse' {Maybe DistributionIdList
distributionIdList :: Maybe DistributionIdList
$sel:distributionIdList:ListDistributionsByResponseHeadersPolicyIdResponse' :: ListDistributionsByResponseHeadersPolicyIdResponse
-> Maybe DistributionIdList
distributionIdList} -> Maybe DistributionIdList
distributionIdList) (\s :: ListDistributionsByResponseHeadersPolicyIdResponse
s@ListDistributionsByResponseHeadersPolicyIdResponse' {} Maybe DistributionIdList
a -> ListDistributionsByResponseHeadersPolicyIdResponse
s {$sel:distributionIdList:ListDistributionsByResponseHeadersPolicyIdResponse' :: Maybe DistributionIdList
distributionIdList = Maybe DistributionIdList
a} :: ListDistributionsByResponseHeadersPolicyIdResponse)
listDistributionsByResponseHeadersPolicyIdResponse_httpStatus :: Lens.Lens' ListDistributionsByResponseHeadersPolicyIdResponse Prelude.Int
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDistributionsByResponseHeadersPolicyIdResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListDistributionsByResponseHeadersPolicyIdResponse' :: ListDistributionsByResponseHeadersPolicyIdResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListDistributionsByResponseHeadersPolicyIdResponse
s@ListDistributionsByResponseHeadersPolicyIdResponse' {} Int
a -> ListDistributionsByResponseHeadersPolicyIdResponse
s {$sel:httpStatus:ListDistributionsByResponseHeadersPolicyIdResponse' :: Int
httpStatus = Int
a} :: ListDistributionsByResponseHeadersPolicyIdResponse)
instance
Prelude.NFData
ListDistributionsByResponseHeadersPolicyIdResponse
where
rnf :: ListDistributionsByResponseHeadersPolicyIdResponse -> ()
rnf
ListDistributionsByResponseHeadersPolicyIdResponse' {Int
Maybe DistributionIdList
httpStatus :: Int
distributionIdList :: Maybe DistributionIdList
$sel:httpStatus:ListDistributionsByResponseHeadersPolicyIdResponse' :: ListDistributionsByResponseHeadersPolicyIdResponse -> Int
$sel:distributionIdList:ListDistributionsByResponseHeadersPolicyIdResponse' :: ListDistributionsByResponseHeadersPolicyIdResponse
-> Maybe DistributionIdList
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DistributionIdList
distributionIdList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus