{-# 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.Pinpoint.GetJourneyExecutionMetrics
(
GetJourneyExecutionMetrics (..),
newGetJourneyExecutionMetrics,
getJourneyExecutionMetrics_nextToken,
getJourneyExecutionMetrics_pageSize,
getJourneyExecutionMetrics_applicationId,
getJourneyExecutionMetrics_journeyId,
GetJourneyExecutionMetricsResponse (..),
newGetJourneyExecutionMetricsResponse,
getJourneyExecutionMetricsResponse_httpStatus,
getJourneyExecutionMetricsResponse_journeyExecutionMetricsResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Pinpoint.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetJourneyExecutionMetrics = GetJourneyExecutionMetrics'
{
GetJourneyExecutionMetrics -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetJourneyExecutionMetrics -> Maybe Text
pageSize :: Prelude.Maybe Prelude.Text,
GetJourneyExecutionMetrics -> Text
applicationId :: Prelude.Text,
GetJourneyExecutionMetrics -> Text
journeyId :: Prelude.Text
}
deriving (GetJourneyExecutionMetrics -> GetJourneyExecutionMetrics -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetJourneyExecutionMetrics -> GetJourneyExecutionMetrics -> Bool
$c/= :: GetJourneyExecutionMetrics -> GetJourneyExecutionMetrics -> Bool
== :: GetJourneyExecutionMetrics -> GetJourneyExecutionMetrics -> Bool
$c== :: GetJourneyExecutionMetrics -> GetJourneyExecutionMetrics -> Bool
Prelude.Eq, ReadPrec [GetJourneyExecutionMetrics]
ReadPrec GetJourneyExecutionMetrics
Int -> ReadS GetJourneyExecutionMetrics
ReadS [GetJourneyExecutionMetrics]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetJourneyExecutionMetrics]
$creadListPrec :: ReadPrec [GetJourneyExecutionMetrics]
readPrec :: ReadPrec GetJourneyExecutionMetrics
$creadPrec :: ReadPrec GetJourneyExecutionMetrics
readList :: ReadS [GetJourneyExecutionMetrics]
$creadList :: ReadS [GetJourneyExecutionMetrics]
readsPrec :: Int -> ReadS GetJourneyExecutionMetrics
$creadsPrec :: Int -> ReadS GetJourneyExecutionMetrics
Prelude.Read, Int -> GetJourneyExecutionMetrics -> ShowS
[GetJourneyExecutionMetrics] -> ShowS
GetJourneyExecutionMetrics -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetJourneyExecutionMetrics] -> ShowS
$cshowList :: [GetJourneyExecutionMetrics] -> ShowS
show :: GetJourneyExecutionMetrics -> String
$cshow :: GetJourneyExecutionMetrics -> String
showsPrec :: Int -> GetJourneyExecutionMetrics -> ShowS
$cshowsPrec :: Int -> GetJourneyExecutionMetrics -> ShowS
Prelude.Show, forall x.
Rep GetJourneyExecutionMetrics x -> GetJourneyExecutionMetrics
forall x.
GetJourneyExecutionMetrics -> Rep GetJourneyExecutionMetrics x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetJourneyExecutionMetrics x -> GetJourneyExecutionMetrics
$cfrom :: forall x.
GetJourneyExecutionMetrics -> Rep GetJourneyExecutionMetrics x
Prelude.Generic)
newGetJourneyExecutionMetrics ::
Prelude.Text ->
Prelude.Text ->
GetJourneyExecutionMetrics
newGetJourneyExecutionMetrics :: Text -> Text -> GetJourneyExecutionMetrics
newGetJourneyExecutionMetrics
Text
pApplicationId_
Text
pJourneyId_ =
GetJourneyExecutionMetrics'
{ $sel:nextToken:GetJourneyExecutionMetrics' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:pageSize:GetJourneyExecutionMetrics' :: Maybe Text
pageSize = forall a. Maybe a
Prelude.Nothing,
$sel:applicationId:GetJourneyExecutionMetrics' :: Text
applicationId = Text
pApplicationId_,
$sel:journeyId:GetJourneyExecutionMetrics' :: Text
journeyId = Text
pJourneyId_
}
getJourneyExecutionMetrics_nextToken :: Lens.Lens' GetJourneyExecutionMetrics (Prelude.Maybe Prelude.Text)
getJourneyExecutionMetrics_nextToken :: Lens' GetJourneyExecutionMetrics (Maybe Text)
getJourneyExecutionMetrics_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJourneyExecutionMetrics' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetJourneyExecutionMetrics
s@GetJourneyExecutionMetrics' {} Maybe Text
a -> GetJourneyExecutionMetrics
s {$sel:nextToken:GetJourneyExecutionMetrics' :: Maybe Text
nextToken = Maybe Text
a} :: GetJourneyExecutionMetrics)
getJourneyExecutionMetrics_pageSize :: Lens.Lens' GetJourneyExecutionMetrics (Prelude.Maybe Prelude.Text)
getJourneyExecutionMetrics_pageSize :: Lens' GetJourneyExecutionMetrics (Maybe Text)
getJourneyExecutionMetrics_pageSize = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJourneyExecutionMetrics' {Maybe Text
pageSize :: Maybe Text
$sel:pageSize:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Maybe Text
pageSize} -> Maybe Text
pageSize) (\s :: GetJourneyExecutionMetrics
s@GetJourneyExecutionMetrics' {} Maybe Text
a -> GetJourneyExecutionMetrics
s {$sel:pageSize:GetJourneyExecutionMetrics' :: Maybe Text
pageSize = Maybe Text
a} :: GetJourneyExecutionMetrics)
getJourneyExecutionMetrics_applicationId :: Lens.Lens' GetJourneyExecutionMetrics Prelude.Text
getJourneyExecutionMetrics_applicationId :: Lens' GetJourneyExecutionMetrics Text
getJourneyExecutionMetrics_applicationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJourneyExecutionMetrics' {Text
applicationId :: Text
$sel:applicationId:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Text
applicationId} -> Text
applicationId) (\s :: GetJourneyExecutionMetrics
s@GetJourneyExecutionMetrics' {} Text
a -> GetJourneyExecutionMetrics
s {$sel:applicationId:GetJourneyExecutionMetrics' :: Text
applicationId = Text
a} :: GetJourneyExecutionMetrics)
getJourneyExecutionMetrics_journeyId :: Lens.Lens' GetJourneyExecutionMetrics Prelude.Text
getJourneyExecutionMetrics_journeyId :: Lens' GetJourneyExecutionMetrics Text
getJourneyExecutionMetrics_journeyId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJourneyExecutionMetrics' {Text
journeyId :: Text
$sel:journeyId:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Text
journeyId} -> Text
journeyId) (\s :: GetJourneyExecutionMetrics
s@GetJourneyExecutionMetrics' {} Text
a -> GetJourneyExecutionMetrics
s {$sel:journeyId:GetJourneyExecutionMetrics' :: Text
journeyId = Text
a} :: GetJourneyExecutionMetrics)
instance Core.AWSRequest GetJourneyExecutionMetrics where
type
AWSResponse GetJourneyExecutionMetrics =
GetJourneyExecutionMetricsResponse
request :: (Service -> Service)
-> GetJourneyExecutionMetrics -> Request GetJourneyExecutionMetrics
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 GetJourneyExecutionMetrics
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetJourneyExecutionMetrics)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Int
-> JourneyExecutionMetricsResponse
-> GetJourneyExecutionMetricsResponse
GetJourneyExecutionMetricsResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall a. FromJSON a => Object -> Either String a
Data.eitherParseJSON Object
x)
)
instance Prelude.Hashable GetJourneyExecutionMetrics where
hashWithSalt :: Int -> GetJourneyExecutionMetrics -> Int
hashWithSalt Int
_salt GetJourneyExecutionMetrics' {Maybe Text
Text
journeyId :: Text
applicationId :: Text
pageSize :: Maybe Text
nextToken :: Maybe Text
$sel:journeyId:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Text
$sel:applicationId:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Text
$sel:pageSize:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Maybe Text
$sel:nextToken:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
pageSize
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
applicationId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
journeyId
instance Prelude.NFData GetJourneyExecutionMetrics where
rnf :: GetJourneyExecutionMetrics -> ()
rnf GetJourneyExecutionMetrics' {Maybe Text
Text
journeyId :: Text
applicationId :: Text
pageSize :: Maybe Text
nextToken :: Maybe Text
$sel:journeyId:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Text
$sel:applicationId:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Text
$sel:pageSize:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Maybe Text
$sel:nextToken:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
pageSize
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
applicationId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
journeyId
instance Data.ToHeaders GetJourneyExecutionMetrics where
toHeaders :: GetJourneyExecutionMetrics -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath GetJourneyExecutionMetrics where
toPath :: GetJourneyExecutionMetrics -> ByteString
toPath GetJourneyExecutionMetrics' {Maybe Text
Text
journeyId :: Text
applicationId :: Text
pageSize :: Maybe Text
nextToken :: Maybe Text
$sel:journeyId:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Text
$sel:applicationId:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Text
$sel:pageSize:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Maybe Text
$sel:nextToken:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/v1/apps/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
applicationId,
ByteString
"/journeys/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
journeyId,
ByteString
"/execution-metrics"
]
instance Data.ToQuery GetJourneyExecutionMetrics where
toQuery :: GetJourneyExecutionMetrics -> QueryString
toQuery GetJourneyExecutionMetrics' {Maybe Text
Text
journeyId :: Text
applicationId :: Text
pageSize :: Maybe Text
nextToken :: Maybe Text
$sel:journeyId:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Text
$sel:applicationId:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Text
$sel:pageSize:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Maybe Text
$sel:nextToken:GetJourneyExecutionMetrics' :: GetJourneyExecutionMetrics -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"next-token" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken,
ByteString
"page-size" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
pageSize
]
data GetJourneyExecutionMetricsResponse = GetJourneyExecutionMetricsResponse'
{
GetJourneyExecutionMetricsResponse -> Int
httpStatus :: Prelude.Int,
GetJourneyExecutionMetricsResponse
-> JourneyExecutionMetricsResponse
journeyExecutionMetricsResponse :: JourneyExecutionMetricsResponse
}
deriving (GetJourneyExecutionMetricsResponse
-> GetJourneyExecutionMetricsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetJourneyExecutionMetricsResponse
-> GetJourneyExecutionMetricsResponse -> Bool
$c/= :: GetJourneyExecutionMetricsResponse
-> GetJourneyExecutionMetricsResponse -> Bool
== :: GetJourneyExecutionMetricsResponse
-> GetJourneyExecutionMetricsResponse -> Bool
$c== :: GetJourneyExecutionMetricsResponse
-> GetJourneyExecutionMetricsResponse -> Bool
Prelude.Eq, ReadPrec [GetJourneyExecutionMetricsResponse]
ReadPrec GetJourneyExecutionMetricsResponse
Int -> ReadS GetJourneyExecutionMetricsResponse
ReadS [GetJourneyExecutionMetricsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetJourneyExecutionMetricsResponse]
$creadListPrec :: ReadPrec [GetJourneyExecutionMetricsResponse]
readPrec :: ReadPrec GetJourneyExecutionMetricsResponse
$creadPrec :: ReadPrec GetJourneyExecutionMetricsResponse
readList :: ReadS [GetJourneyExecutionMetricsResponse]
$creadList :: ReadS [GetJourneyExecutionMetricsResponse]
readsPrec :: Int -> ReadS GetJourneyExecutionMetricsResponse
$creadsPrec :: Int -> ReadS GetJourneyExecutionMetricsResponse
Prelude.Read, Int -> GetJourneyExecutionMetricsResponse -> ShowS
[GetJourneyExecutionMetricsResponse] -> ShowS
GetJourneyExecutionMetricsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetJourneyExecutionMetricsResponse] -> ShowS
$cshowList :: [GetJourneyExecutionMetricsResponse] -> ShowS
show :: GetJourneyExecutionMetricsResponse -> String
$cshow :: GetJourneyExecutionMetricsResponse -> String
showsPrec :: Int -> GetJourneyExecutionMetricsResponse -> ShowS
$cshowsPrec :: Int -> GetJourneyExecutionMetricsResponse -> ShowS
Prelude.Show, forall x.
Rep GetJourneyExecutionMetricsResponse x
-> GetJourneyExecutionMetricsResponse
forall x.
GetJourneyExecutionMetricsResponse
-> Rep GetJourneyExecutionMetricsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetJourneyExecutionMetricsResponse x
-> GetJourneyExecutionMetricsResponse
$cfrom :: forall x.
GetJourneyExecutionMetricsResponse
-> Rep GetJourneyExecutionMetricsResponse x
Prelude.Generic)
newGetJourneyExecutionMetricsResponse ::
Prelude.Int ->
JourneyExecutionMetricsResponse ->
GetJourneyExecutionMetricsResponse
newGetJourneyExecutionMetricsResponse :: Int
-> JourneyExecutionMetricsResponse
-> GetJourneyExecutionMetricsResponse
newGetJourneyExecutionMetricsResponse
Int
pHttpStatus_
JourneyExecutionMetricsResponse
pJourneyExecutionMetricsResponse_ =
GetJourneyExecutionMetricsResponse'
{ $sel:httpStatus:GetJourneyExecutionMetricsResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:journeyExecutionMetricsResponse:GetJourneyExecutionMetricsResponse' :: JourneyExecutionMetricsResponse
journeyExecutionMetricsResponse =
JourneyExecutionMetricsResponse
pJourneyExecutionMetricsResponse_
}
getJourneyExecutionMetricsResponse_httpStatus :: Lens.Lens' GetJourneyExecutionMetricsResponse Prelude.Int
getJourneyExecutionMetricsResponse_httpStatus :: Lens' GetJourneyExecutionMetricsResponse Int
getJourneyExecutionMetricsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJourneyExecutionMetricsResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetJourneyExecutionMetricsResponse' :: GetJourneyExecutionMetricsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetJourneyExecutionMetricsResponse
s@GetJourneyExecutionMetricsResponse' {} Int
a -> GetJourneyExecutionMetricsResponse
s {$sel:httpStatus:GetJourneyExecutionMetricsResponse' :: Int
httpStatus = Int
a} :: GetJourneyExecutionMetricsResponse)
getJourneyExecutionMetricsResponse_journeyExecutionMetricsResponse :: Lens.Lens' GetJourneyExecutionMetricsResponse JourneyExecutionMetricsResponse
getJourneyExecutionMetricsResponse_journeyExecutionMetricsResponse :: Lens'
GetJourneyExecutionMetricsResponse JourneyExecutionMetricsResponse
getJourneyExecutionMetricsResponse_journeyExecutionMetricsResponse = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetJourneyExecutionMetricsResponse' {JourneyExecutionMetricsResponse
journeyExecutionMetricsResponse :: JourneyExecutionMetricsResponse
$sel:journeyExecutionMetricsResponse:GetJourneyExecutionMetricsResponse' :: GetJourneyExecutionMetricsResponse
-> JourneyExecutionMetricsResponse
journeyExecutionMetricsResponse} -> JourneyExecutionMetricsResponse
journeyExecutionMetricsResponse) (\s :: GetJourneyExecutionMetricsResponse
s@GetJourneyExecutionMetricsResponse' {} JourneyExecutionMetricsResponse
a -> GetJourneyExecutionMetricsResponse
s {$sel:journeyExecutionMetricsResponse:GetJourneyExecutionMetricsResponse' :: JourneyExecutionMetricsResponse
journeyExecutionMetricsResponse = JourneyExecutionMetricsResponse
a} :: GetJourneyExecutionMetricsResponse)
instance
Prelude.NFData
GetJourneyExecutionMetricsResponse
where
rnf :: GetJourneyExecutionMetricsResponse -> ()
rnf GetJourneyExecutionMetricsResponse' {Int
JourneyExecutionMetricsResponse
journeyExecutionMetricsResponse :: JourneyExecutionMetricsResponse
httpStatus :: Int
$sel:journeyExecutionMetricsResponse:GetJourneyExecutionMetricsResponse' :: GetJourneyExecutionMetricsResponse
-> JourneyExecutionMetricsResponse
$sel:httpStatus:GetJourneyExecutionMetricsResponse' :: GetJourneyExecutionMetricsResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf JourneyExecutionMetricsResponse
journeyExecutionMetricsResponse