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