{-# 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.ListConflictingAliases
(
ListConflictingAliases (..),
newListConflictingAliases,
listConflictingAliases_marker,
listConflictingAliases_maxItems,
listConflictingAliases_distributionId,
listConflictingAliases_alias,
ListConflictingAliasesResponse (..),
newListConflictingAliasesResponse,
listConflictingAliasesResponse_conflictingAliasesList,
listConflictingAliasesResponse_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 ListConflictingAliases = ListConflictingAliases'
{
ListConflictingAliases -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
ListConflictingAliases -> Maybe Int
maxItems :: Prelude.Maybe Prelude.Int,
ListConflictingAliases -> Text
distributionId :: Prelude.Text,
ListConflictingAliases -> Text
alias :: Prelude.Text
}
deriving (ListConflictingAliases -> ListConflictingAliases -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListConflictingAliases -> ListConflictingAliases -> Bool
$c/= :: ListConflictingAliases -> ListConflictingAliases -> Bool
== :: ListConflictingAliases -> ListConflictingAliases -> Bool
$c== :: ListConflictingAliases -> ListConflictingAliases -> Bool
Prelude.Eq, ReadPrec [ListConflictingAliases]
ReadPrec ListConflictingAliases
Int -> ReadS ListConflictingAliases
ReadS [ListConflictingAliases]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListConflictingAliases]
$creadListPrec :: ReadPrec [ListConflictingAliases]
readPrec :: ReadPrec ListConflictingAliases
$creadPrec :: ReadPrec ListConflictingAliases
readList :: ReadS [ListConflictingAliases]
$creadList :: ReadS [ListConflictingAliases]
readsPrec :: Int -> ReadS ListConflictingAliases
$creadsPrec :: Int -> ReadS ListConflictingAliases
Prelude.Read, Int -> ListConflictingAliases -> ShowS
[ListConflictingAliases] -> ShowS
ListConflictingAliases -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListConflictingAliases] -> ShowS
$cshowList :: [ListConflictingAliases] -> ShowS
show :: ListConflictingAliases -> String
$cshow :: ListConflictingAliases -> String
showsPrec :: Int -> ListConflictingAliases -> ShowS
$cshowsPrec :: Int -> ListConflictingAliases -> ShowS
Prelude.Show, forall x. Rep ListConflictingAliases x -> ListConflictingAliases
forall x. ListConflictingAliases -> Rep ListConflictingAliases x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListConflictingAliases x -> ListConflictingAliases
$cfrom :: forall x. ListConflictingAliases -> Rep ListConflictingAliases x
Prelude.Generic)
newListConflictingAliases ::
Prelude.Text ->
Prelude.Text ->
ListConflictingAliases
newListConflictingAliases :: Text -> Text -> ListConflictingAliases
newListConflictingAliases Text
pDistributionId_ Text
pAlias_ =
ListConflictingAliases'
{ $sel:marker:ListConflictingAliases' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:maxItems:ListConflictingAliases' :: Maybe Int
maxItems = forall a. Maybe a
Prelude.Nothing,
$sel:distributionId:ListConflictingAliases' :: Text
distributionId = Text
pDistributionId_,
$sel:alias:ListConflictingAliases' :: Text
alias = Text
pAlias_
}
listConflictingAliases_marker :: Lens.Lens' ListConflictingAliases (Prelude.Maybe Prelude.Text)
listConflictingAliases_marker :: Lens' ListConflictingAliases (Maybe Text)
listConflictingAliases_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListConflictingAliases' {Maybe Text
marker :: Maybe Text
$sel:marker:ListConflictingAliases' :: ListConflictingAliases -> Maybe Text
marker} -> Maybe Text
marker) (\s :: ListConflictingAliases
s@ListConflictingAliases' {} Maybe Text
a -> ListConflictingAliases
s {$sel:marker:ListConflictingAliases' :: Maybe Text
marker = Maybe Text
a} :: ListConflictingAliases)
listConflictingAliases_maxItems :: Lens.Lens' ListConflictingAliases (Prelude.Maybe Prelude.Int)
listConflictingAliases_maxItems :: Lens' ListConflictingAliases (Maybe Int)
listConflictingAliases_maxItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListConflictingAliases' {Maybe Int
maxItems :: Maybe Int
$sel:maxItems:ListConflictingAliases' :: ListConflictingAliases -> Maybe Int
maxItems} -> Maybe Int
maxItems) (\s :: ListConflictingAliases
s@ListConflictingAliases' {} Maybe Int
a -> ListConflictingAliases
s {$sel:maxItems:ListConflictingAliases' :: Maybe Int
maxItems = Maybe Int
a} :: ListConflictingAliases)
listConflictingAliases_distributionId :: Lens.Lens' ListConflictingAliases Prelude.Text
listConflictingAliases_distributionId :: Lens' ListConflictingAliases Text
listConflictingAliases_distributionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListConflictingAliases' {Text
distributionId :: Text
$sel:distributionId:ListConflictingAliases' :: ListConflictingAliases -> Text
distributionId} -> Text
distributionId) (\s :: ListConflictingAliases
s@ListConflictingAliases' {} Text
a -> ListConflictingAliases
s {$sel:distributionId:ListConflictingAliases' :: Text
distributionId = Text
a} :: ListConflictingAliases)
listConflictingAliases_alias :: Lens.Lens' ListConflictingAliases Prelude.Text
listConflictingAliases_alias :: Lens' ListConflictingAliases Text
listConflictingAliases_alias = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListConflictingAliases' {Text
alias :: Text
$sel:alias:ListConflictingAliases' :: ListConflictingAliases -> Text
alias} -> Text
alias) (\s :: ListConflictingAliases
s@ListConflictingAliases' {} Text
a -> ListConflictingAliases
s {$sel:alias:ListConflictingAliases' :: Text
alias = Text
a} :: ListConflictingAliases)
instance Core.AWSRequest ListConflictingAliases where
type
AWSResponse ListConflictingAliases =
ListConflictingAliasesResponse
request :: (Service -> Service)
-> ListConflictingAliases -> Request ListConflictingAliases
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 ListConflictingAliases
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListConflictingAliases)))
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 ConflictingAliasesList
-> Int -> ListConflictingAliasesResponse
ListConflictingAliasesResponse'
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 ListConflictingAliases where
hashWithSalt :: Int -> ListConflictingAliases -> Int
hashWithSalt Int
_salt ListConflictingAliases' {Maybe Int
Maybe Text
Text
alias :: Text
distributionId :: Text
maxItems :: Maybe Int
marker :: Maybe Text
$sel:alias:ListConflictingAliases' :: ListConflictingAliases -> Text
$sel:distributionId:ListConflictingAliases' :: ListConflictingAliases -> Text
$sel:maxItems:ListConflictingAliases' :: ListConflictingAliases -> Maybe Int
$sel:marker:ListConflictingAliases' :: ListConflictingAliases -> 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 Int
maxItems
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
distributionId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
alias
instance Prelude.NFData ListConflictingAliases where
rnf :: ListConflictingAliases -> ()
rnf ListConflictingAliases' {Maybe Int
Maybe Text
Text
alias :: Text
distributionId :: Text
maxItems :: Maybe Int
marker :: Maybe Text
$sel:alias:ListConflictingAliases' :: ListConflictingAliases -> Text
$sel:distributionId:ListConflictingAliases' :: ListConflictingAliases -> Text
$sel:maxItems:ListConflictingAliases' :: ListConflictingAliases -> Maybe Int
$sel:marker:ListConflictingAliases' :: ListConflictingAliases -> 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 Int
maxItems
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
distributionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
alias
instance Data.ToHeaders ListConflictingAliases where
toHeaders :: ListConflictingAliases -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListConflictingAliases where
toPath :: ListConflictingAliases -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const ByteString
"/2020-05-31/conflicting-alias"
instance Data.ToQuery ListConflictingAliases where
toQuery :: ListConflictingAliases -> QueryString
toQuery ListConflictingAliases' {Maybe Int
Maybe Text
Text
alias :: Text
distributionId :: Text
maxItems :: Maybe Int
marker :: Maybe Text
$sel:alias:ListConflictingAliases' :: ListConflictingAliases -> Text
$sel:distributionId:ListConflictingAliases' :: ListConflictingAliases -> Text
$sel:maxItems:ListConflictingAliases' :: ListConflictingAliases -> Maybe Int
$sel:marker:ListConflictingAliases' :: ListConflictingAliases -> 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 Int
maxItems,
ByteString
"DistributionId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
distributionId,
ByteString
"Alias" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
alias
]
data ListConflictingAliasesResponse = ListConflictingAliasesResponse'
{
ListConflictingAliasesResponse -> Maybe ConflictingAliasesList
conflictingAliasesList :: Prelude.Maybe ConflictingAliasesList,
ListConflictingAliasesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListConflictingAliasesResponse
-> ListConflictingAliasesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListConflictingAliasesResponse
-> ListConflictingAliasesResponse -> Bool
$c/= :: ListConflictingAliasesResponse
-> ListConflictingAliasesResponse -> Bool
== :: ListConflictingAliasesResponse
-> ListConflictingAliasesResponse -> Bool
$c== :: ListConflictingAliasesResponse
-> ListConflictingAliasesResponse -> Bool
Prelude.Eq, ReadPrec [ListConflictingAliasesResponse]
ReadPrec ListConflictingAliasesResponse
Int -> ReadS ListConflictingAliasesResponse
ReadS [ListConflictingAliasesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListConflictingAliasesResponse]
$creadListPrec :: ReadPrec [ListConflictingAliasesResponse]
readPrec :: ReadPrec ListConflictingAliasesResponse
$creadPrec :: ReadPrec ListConflictingAliasesResponse
readList :: ReadS [ListConflictingAliasesResponse]
$creadList :: ReadS [ListConflictingAliasesResponse]
readsPrec :: Int -> ReadS ListConflictingAliasesResponse
$creadsPrec :: Int -> ReadS ListConflictingAliasesResponse
Prelude.Read, Int -> ListConflictingAliasesResponse -> ShowS
[ListConflictingAliasesResponse] -> ShowS
ListConflictingAliasesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListConflictingAliasesResponse] -> ShowS
$cshowList :: [ListConflictingAliasesResponse] -> ShowS
show :: ListConflictingAliasesResponse -> String
$cshow :: ListConflictingAliasesResponse -> String
showsPrec :: Int -> ListConflictingAliasesResponse -> ShowS
$cshowsPrec :: Int -> ListConflictingAliasesResponse -> ShowS
Prelude.Show, forall x.
Rep ListConflictingAliasesResponse x
-> ListConflictingAliasesResponse
forall x.
ListConflictingAliasesResponse
-> Rep ListConflictingAliasesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListConflictingAliasesResponse x
-> ListConflictingAliasesResponse
$cfrom :: forall x.
ListConflictingAliasesResponse
-> Rep ListConflictingAliasesResponse x
Prelude.Generic)
newListConflictingAliasesResponse ::
Prelude.Int ->
ListConflictingAliasesResponse
newListConflictingAliasesResponse :: Int -> ListConflictingAliasesResponse
newListConflictingAliasesResponse Int
pHttpStatus_ =
ListConflictingAliasesResponse'
{ $sel:conflictingAliasesList:ListConflictingAliasesResponse' :: Maybe ConflictingAliasesList
conflictingAliasesList =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListConflictingAliasesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listConflictingAliasesResponse_conflictingAliasesList :: Lens.Lens' ListConflictingAliasesResponse (Prelude.Maybe ConflictingAliasesList)
listConflictingAliasesResponse_conflictingAliasesList :: Lens' ListConflictingAliasesResponse (Maybe ConflictingAliasesList)
listConflictingAliasesResponse_conflictingAliasesList = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListConflictingAliasesResponse' {Maybe ConflictingAliasesList
conflictingAliasesList :: Maybe ConflictingAliasesList
$sel:conflictingAliasesList:ListConflictingAliasesResponse' :: ListConflictingAliasesResponse -> Maybe ConflictingAliasesList
conflictingAliasesList} -> Maybe ConflictingAliasesList
conflictingAliasesList) (\s :: ListConflictingAliasesResponse
s@ListConflictingAliasesResponse' {} Maybe ConflictingAliasesList
a -> ListConflictingAliasesResponse
s {$sel:conflictingAliasesList:ListConflictingAliasesResponse' :: Maybe ConflictingAliasesList
conflictingAliasesList = Maybe ConflictingAliasesList
a} :: ListConflictingAliasesResponse)
listConflictingAliasesResponse_httpStatus :: Lens.Lens' ListConflictingAliasesResponse Prelude.Int
listConflictingAliasesResponse_httpStatus :: Lens' ListConflictingAliasesResponse Int
listConflictingAliasesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListConflictingAliasesResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListConflictingAliasesResponse' :: ListConflictingAliasesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListConflictingAliasesResponse
s@ListConflictingAliasesResponse' {} Int
a -> ListConflictingAliasesResponse
s {$sel:httpStatus:ListConflictingAliasesResponse' :: Int
httpStatus = Int
a} :: ListConflictingAliasesResponse)
instance
Prelude.NFData
ListConflictingAliasesResponse
where
rnf :: ListConflictingAliasesResponse -> ()
rnf ListConflictingAliasesResponse' {Int
Maybe ConflictingAliasesList
httpStatus :: Int
conflictingAliasesList :: Maybe ConflictingAliasesList
$sel:httpStatus:ListConflictingAliasesResponse' :: ListConflictingAliasesResponse -> Int
$sel:conflictingAliasesList:ListConflictingAliasesResponse' :: ListConflictingAliasesResponse -> Maybe ConflictingAliasesList
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ConflictingAliasesList
conflictingAliasesList
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus