{-# 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.ListDistributionsByOriginRequestPolicyId
(
ListDistributionsByOriginRequestPolicyId (..),
newListDistributionsByOriginRequestPolicyId,
listDistributionsByOriginRequestPolicyId_marker,
listDistributionsByOriginRequestPolicyId_maxItems,
listDistributionsByOriginRequestPolicyId_originRequestPolicyId,
ListDistributionsByOriginRequestPolicyIdResponse (..),
newListDistributionsByOriginRequestPolicyIdResponse,
listDistributionsByOriginRequestPolicyIdResponse_distributionIdList,
listDistributionsByOriginRequestPolicyIdResponse_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 ListDistributionsByOriginRequestPolicyId = ListDistributionsByOriginRequestPolicyId'
{
ListDistributionsByOriginRequestPolicyId -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
ListDistributionsByOriginRequestPolicyId -> Maybe Text
maxItems :: Prelude.Maybe Prelude.Text,
ListDistributionsByOriginRequestPolicyId -> Text
originRequestPolicyId :: Prelude.Text
}
deriving (ListDistributionsByOriginRequestPolicyId
-> ListDistributionsByOriginRequestPolicyId -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListDistributionsByOriginRequestPolicyId
-> ListDistributionsByOriginRequestPolicyId -> Bool
$c/= :: ListDistributionsByOriginRequestPolicyId
-> ListDistributionsByOriginRequestPolicyId -> Bool
== :: ListDistributionsByOriginRequestPolicyId
-> ListDistributionsByOriginRequestPolicyId -> Bool
$c== :: ListDistributionsByOriginRequestPolicyId
-> ListDistributionsByOriginRequestPolicyId -> Bool
Prelude.Eq, ReadPrec [ListDistributionsByOriginRequestPolicyId]
ReadPrec ListDistributionsByOriginRequestPolicyId
Int -> ReadS ListDistributionsByOriginRequestPolicyId
ReadS [ListDistributionsByOriginRequestPolicyId]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListDistributionsByOriginRequestPolicyId]
$creadListPrec :: ReadPrec [ListDistributionsByOriginRequestPolicyId]
readPrec :: ReadPrec ListDistributionsByOriginRequestPolicyId
$creadPrec :: ReadPrec ListDistributionsByOriginRequestPolicyId
readList :: ReadS [ListDistributionsByOriginRequestPolicyId]
$creadList :: ReadS [ListDistributionsByOriginRequestPolicyId]
readsPrec :: Int -> ReadS ListDistributionsByOriginRequestPolicyId
$creadsPrec :: Int -> ReadS ListDistributionsByOriginRequestPolicyId
Prelude.Read, Int -> ListDistributionsByOriginRequestPolicyId -> ShowS
[ListDistributionsByOriginRequestPolicyId] -> ShowS
ListDistributionsByOriginRequestPolicyId -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListDistributionsByOriginRequestPolicyId] -> ShowS
$cshowList :: [ListDistributionsByOriginRequestPolicyId] -> ShowS
show :: ListDistributionsByOriginRequestPolicyId -> String
$cshow :: ListDistributionsByOriginRequestPolicyId -> String
showsPrec :: Int -> ListDistributionsByOriginRequestPolicyId -> ShowS
$cshowsPrec :: Int -> ListDistributionsByOriginRequestPolicyId -> ShowS
Prelude.Show, forall x.
Rep ListDistributionsByOriginRequestPolicyId x
-> ListDistributionsByOriginRequestPolicyId
forall x.
ListDistributionsByOriginRequestPolicyId
-> Rep ListDistributionsByOriginRequestPolicyId x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListDistributionsByOriginRequestPolicyId x
-> ListDistributionsByOriginRequestPolicyId
$cfrom :: forall x.
ListDistributionsByOriginRequestPolicyId
-> Rep ListDistributionsByOriginRequestPolicyId x
Prelude.Generic)
newListDistributionsByOriginRequestPolicyId ::
Prelude.Text ->
ListDistributionsByOriginRequestPolicyId
newListDistributionsByOriginRequestPolicyId :: Text -> ListDistributionsByOriginRequestPolicyId
newListDistributionsByOriginRequestPolicyId
Text
pOriginRequestPolicyId_ =
ListDistributionsByOriginRequestPolicyId'
{ $sel:marker:ListDistributionsByOriginRequestPolicyId' :: Maybe Text
marker =
forall a. Maybe a
Prelude.Nothing,
$sel:maxItems:ListDistributionsByOriginRequestPolicyId' :: Maybe Text
maxItems = forall a. Maybe a
Prelude.Nothing,
$sel:originRequestPolicyId:ListDistributionsByOriginRequestPolicyId' :: Text
originRequestPolicyId =
Text
pOriginRequestPolicyId_
}
listDistributionsByOriginRequestPolicyId_marker :: Lens.Lens' ListDistributionsByOriginRequestPolicyId (Prelude.Maybe Prelude.Text)
listDistributionsByOriginRequestPolicyId_marker :: Lens' ListDistributionsByOriginRequestPolicyId (Maybe Text)
listDistributionsByOriginRequestPolicyId_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDistributionsByOriginRequestPolicyId' {Maybe Text
marker :: Maybe Text
$sel:marker:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> Maybe Text
marker} -> Maybe Text
marker) (\s :: ListDistributionsByOriginRequestPolicyId
s@ListDistributionsByOriginRequestPolicyId' {} Maybe Text
a -> ListDistributionsByOriginRequestPolicyId
s {$sel:marker:ListDistributionsByOriginRequestPolicyId' :: Maybe Text
marker = Maybe Text
a} :: ListDistributionsByOriginRequestPolicyId)
listDistributionsByOriginRequestPolicyId_maxItems :: Lens.Lens' ListDistributionsByOriginRequestPolicyId (Prelude.Maybe Prelude.Text)
listDistributionsByOriginRequestPolicyId_maxItems :: Lens' ListDistributionsByOriginRequestPolicyId (Maybe Text)
listDistributionsByOriginRequestPolicyId_maxItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDistributionsByOriginRequestPolicyId' {Maybe Text
maxItems :: Maybe Text
$sel:maxItems:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> Maybe Text
maxItems} -> Maybe Text
maxItems) (\s :: ListDistributionsByOriginRequestPolicyId
s@ListDistributionsByOriginRequestPolicyId' {} Maybe Text
a -> ListDistributionsByOriginRequestPolicyId
s {$sel:maxItems:ListDistributionsByOriginRequestPolicyId' :: Maybe Text
maxItems = Maybe Text
a} :: ListDistributionsByOriginRequestPolicyId)
listDistributionsByOriginRequestPolicyId_originRequestPolicyId :: Lens.Lens' ListDistributionsByOriginRequestPolicyId Prelude.Text
listDistributionsByOriginRequestPolicyId_originRequestPolicyId :: Lens' ListDistributionsByOriginRequestPolicyId Text
listDistributionsByOriginRequestPolicyId_originRequestPolicyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDistributionsByOriginRequestPolicyId' {Text
originRequestPolicyId :: Text
$sel:originRequestPolicyId:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> Text
originRequestPolicyId} -> Text
originRequestPolicyId) (\s :: ListDistributionsByOriginRequestPolicyId
s@ListDistributionsByOriginRequestPolicyId' {} Text
a -> ListDistributionsByOriginRequestPolicyId
s {$sel:originRequestPolicyId:ListDistributionsByOriginRequestPolicyId' :: Text
originRequestPolicyId = Text
a} :: ListDistributionsByOriginRequestPolicyId)
instance
Core.AWSRequest
ListDistributionsByOriginRequestPolicyId
where
type
AWSResponse
ListDistributionsByOriginRequestPolicyId =
ListDistributionsByOriginRequestPolicyIdResponse
request :: (Service -> Service)
-> ListDistributionsByOriginRequestPolicyId
-> Request ListDistributionsByOriginRequestPolicyId
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 ListDistributionsByOriginRequestPolicyId
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse ListDistributionsByOriginRequestPolicyId)))
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 -> ListDistributionsByOriginRequestPolicyIdResponse
ListDistributionsByOriginRequestPolicyIdResponse'
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
ListDistributionsByOriginRequestPolicyId
where
hashWithSalt :: Int -> ListDistributionsByOriginRequestPolicyId -> Int
hashWithSalt
Int
_salt
ListDistributionsByOriginRequestPolicyId' {Maybe Text
Text
originRequestPolicyId :: Text
maxItems :: Maybe Text
marker :: Maybe Text
$sel:originRequestPolicyId:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> Text
$sel:maxItems:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> Maybe Text
$sel:marker:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> 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
originRequestPolicyId
instance
Prelude.NFData
ListDistributionsByOriginRequestPolicyId
where
rnf :: ListDistributionsByOriginRequestPolicyId -> ()
rnf ListDistributionsByOriginRequestPolicyId' {Maybe Text
Text
originRequestPolicyId :: Text
maxItems :: Maybe Text
marker :: Maybe Text
$sel:originRequestPolicyId:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> Text
$sel:maxItems:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> Maybe Text
$sel:marker:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> 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
originRequestPolicyId
instance
Data.ToHeaders
ListDistributionsByOriginRequestPolicyId
where
toHeaders :: ListDistributionsByOriginRequestPolicyId -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
ListDistributionsByOriginRequestPolicyId
where
toPath :: ListDistributionsByOriginRequestPolicyId -> ByteString
toPath ListDistributionsByOriginRequestPolicyId' {Maybe Text
Text
originRequestPolicyId :: Text
maxItems :: Maybe Text
marker :: Maybe Text
$sel:originRequestPolicyId:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> Text
$sel:maxItems:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> Maybe Text
$sel:marker:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/2020-05-31/distributionsByOriginRequestPolicyId/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
originRequestPolicyId
]
instance
Data.ToQuery
ListDistributionsByOriginRequestPolicyId
where
toQuery :: ListDistributionsByOriginRequestPolicyId -> QueryString
toQuery ListDistributionsByOriginRequestPolicyId' {Maybe Text
Text
originRequestPolicyId :: Text
maxItems :: Maybe Text
marker :: Maybe Text
$sel:originRequestPolicyId:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> Text
$sel:maxItems:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> Maybe Text
$sel:marker:ListDistributionsByOriginRequestPolicyId' :: ListDistributionsByOriginRequestPolicyId -> 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 ListDistributionsByOriginRequestPolicyIdResponse = ListDistributionsByOriginRequestPolicyIdResponse'
{
ListDistributionsByOriginRequestPolicyIdResponse
-> Maybe DistributionIdList
distributionIdList :: Prelude.Maybe DistributionIdList,
ListDistributionsByOriginRequestPolicyIdResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListDistributionsByOriginRequestPolicyIdResponse
-> ListDistributionsByOriginRequestPolicyIdResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListDistributionsByOriginRequestPolicyIdResponse
-> ListDistributionsByOriginRequestPolicyIdResponse -> Bool
$c/= :: ListDistributionsByOriginRequestPolicyIdResponse
-> ListDistributionsByOriginRequestPolicyIdResponse -> Bool
== :: ListDistributionsByOriginRequestPolicyIdResponse
-> ListDistributionsByOriginRequestPolicyIdResponse -> Bool
$c== :: ListDistributionsByOriginRequestPolicyIdResponse
-> ListDistributionsByOriginRequestPolicyIdResponse -> Bool
Prelude.Eq, ReadPrec [ListDistributionsByOriginRequestPolicyIdResponse]
ReadPrec ListDistributionsByOriginRequestPolicyIdResponse
Int -> ReadS ListDistributionsByOriginRequestPolicyIdResponse
ReadS [ListDistributionsByOriginRequestPolicyIdResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListDistributionsByOriginRequestPolicyIdResponse]
$creadListPrec :: ReadPrec [ListDistributionsByOriginRequestPolicyIdResponse]
readPrec :: ReadPrec ListDistributionsByOriginRequestPolicyIdResponse
$creadPrec :: ReadPrec ListDistributionsByOriginRequestPolicyIdResponse
readList :: ReadS [ListDistributionsByOriginRequestPolicyIdResponse]
$creadList :: ReadS [ListDistributionsByOriginRequestPolicyIdResponse]
readsPrec :: Int -> ReadS ListDistributionsByOriginRequestPolicyIdResponse
$creadsPrec :: Int -> ReadS ListDistributionsByOriginRequestPolicyIdResponse
Prelude.Read, Int -> ListDistributionsByOriginRequestPolicyIdResponse -> ShowS
[ListDistributionsByOriginRequestPolicyIdResponse] -> ShowS
ListDistributionsByOriginRequestPolicyIdResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListDistributionsByOriginRequestPolicyIdResponse] -> ShowS
$cshowList :: [ListDistributionsByOriginRequestPolicyIdResponse] -> ShowS
show :: ListDistributionsByOriginRequestPolicyIdResponse -> String
$cshow :: ListDistributionsByOriginRequestPolicyIdResponse -> String
showsPrec :: Int -> ListDistributionsByOriginRequestPolicyIdResponse -> ShowS
$cshowsPrec :: Int -> ListDistributionsByOriginRequestPolicyIdResponse -> ShowS
Prelude.Show, forall x.
Rep ListDistributionsByOriginRequestPolicyIdResponse x
-> ListDistributionsByOriginRequestPolicyIdResponse
forall x.
ListDistributionsByOriginRequestPolicyIdResponse
-> Rep ListDistributionsByOriginRequestPolicyIdResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListDistributionsByOriginRequestPolicyIdResponse x
-> ListDistributionsByOriginRequestPolicyIdResponse
$cfrom :: forall x.
ListDistributionsByOriginRequestPolicyIdResponse
-> Rep ListDistributionsByOriginRequestPolicyIdResponse x
Prelude.Generic)
newListDistributionsByOriginRequestPolicyIdResponse ::
Prelude.Int ->
ListDistributionsByOriginRequestPolicyIdResponse
newListDistributionsByOriginRequestPolicyIdResponse :: Int -> ListDistributionsByOriginRequestPolicyIdResponse
newListDistributionsByOriginRequestPolicyIdResponse
Int
pHttpStatus_ =
ListDistributionsByOriginRequestPolicyIdResponse'
{ $sel:distributionIdList:ListDistributionsByOriginRequestPolicyIdResponse' :: Maybe DistributionIdList
distributionIdList =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListDistributionsByOriginRequestPolicyIdResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listDistributionsByOriginRequestPolicyIdResponse_distributionIdList :: Lens.Lens' ListDistributionsByOriginRequestPolicyIdResponse (Prelude.Maybe DistributionIdList)
listDistributionsByOriginRequestPolicyIdResponse_distributionIdList :: Lens'
ListDistributionsByOriginRequestPolicyIdResponse
(Maybe DistributionIdList)
listDistributionsByOriginRequestPolicyIdResponse_distributionIdList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDistributionsByOriginRequestPolicyIdResponse' {Maybe DistributionIdList
distributionIdList :: Maybe DistributionIdList
$sel:distributionIdList:ListDistributionsByOriginRequestPolicyIdResponse' :: ListDistributionsByOriginRequestPolicyIdResponse
-> Maybe DistributionIdList
distributionIdList} -> Maybe DistributionIdList
distributionIdList) (\s :: ListDistributionsByOriginRequestPolicyIdResponse
s@ListDistributionsByOriginRequestPolicyIdResponse' {} Maybe DistributionIdList
a -> ListDistributionsByOriginRequestPolicyIdResponse
s {$sel:distributionIdList:ListDistributionsByOriginRequestPolicyIdResponse' :: Maybe DistributionIdList
distributionIdList = Maybe DistributionIdList
a} :: ListDistributionsByOriginRequestPolicyIdResponse)
listDistributionsByOriginRequestPolicyIdResponse_httpStatus :: Lens.Lens' ListDistributionsByOriginRequestPolicyIdResponse Prelude.Int
listDistributionsByOriginRequestPolicyIdResponse_httpStatus :: Lens' ListDistributionsByOriginRequestPolicyIdResponse Int
listDistributionsByOriginRequestPolicyIdResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDistributionsByOriginRequestPolicyIdResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListDistributionsByOriginRequestPolicyIdResponse' :: ListDistributionsByOriginRequestPolicyIdResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListDistributionsByOriginRequestPolicyIdResponse
s@ListDistributionsByOriginRequestPolicyIdResponse' {} Int
a -> ListDistributionsByOriginRequestPolicyIdResponse
s {$sel:httpStatus:ListDistributionsByOriginRequestPolicyIdResponse' :: Int
httpStatus = Int
a} :: ListDistributionsByOriginRequestPolicyIdResponse)
instance
Prelude.NFData
ListDistributionsByOriginRequestPolicyIdResponse
where
rnf :: ListDistributionsByOriginRequestPolicyIdResponse -> ()
rnf
ListDistributionsByOriginRequestPolicyIdResponse' {Int
Maybe DistributionIdList
httpStatus :: Int
distributionIdList :: Maybe DistributionIdList
$sel:httpStatus:ListDistributionsByOriginRequestPolicyIdResponse' :: ListDistributionsByOriginRequestPolicyIdResponse -> Int
$sel:distributionIdList:ListDistributionsByOriginRequestPolicyIdResponse' :: ListDistributionsByOriginRequestPolicyIdResponse
-> 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