{-# 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.PinpointEmail.GetDeliverabilityTestReport
(
GetDeliverabilityTestReport (..),
newGetDeliverabilityTestReport,
getDeliverabilityTestReport_reportId,
GetDeliverabilityTestReportResponse (..),
newGetDeliverabilityTestReportResponse,
getDeliverabilityTestReportResponse_message,
getDeliverabilityTestReportResponse_tags,
getDeliverabilityTestReportResponse_httpStatus,
getDeliverabilityTestReportResponse_deliverabilityTestReport,
getDeliverabilityTestReportResponse_overallPlacement,
getDeliverabilityTestReportResponse_ispPlacements,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.PinpointEmail.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetDeliverabilityTestReport = GetDeliverabilityTestReport'
{
GetDeliverabilityTestReport -> Text
reportId :: Prelude.Text
}
deriving (GetDeliverabilityTestReport -> GetDeliverabilityTestReport -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetDeliverabilityTestReport -> GetDeliverabilityTestReport -> Bool
$c/= :: GetDeliverabilityTestReport -> GetDeliverabilityTestReport -> Bool
== :: GetDeliverabilityTestReport -> GetDeliverabilityTestReport -> Bool
$c== :: GetDeliverabilityTestReport -> GetDeliverabilityTestReport -> Bool
Prelude.Eq, ReadPrec [GetDeliverabilityTestReport]
ReadPrec GetDeliverabilityTestReport
Int -> ReadS GetDeliverabilityTestReport
ReadS [GetDeliverabilityTestReport]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetDeliverabilityTestReport]
$creadListPrec :: ReadPrec [GetDeliverabilityTestReport]
readPrec :: ReadPrec GetDeliverabilityTestReport
$creadPrec :: ReadPrec GetDeliverabilityTestReport
readList :: ReadS [GetDeliverabilityTestReport]
$creadList :: ReadS [GetDeliverabilityTestReport]
readsPrec :: Int -> ReadS GetDeliverabilityTestReport
$creadsPrec :: Int -> ReadS GetDeliverabilityTestReport
Prelude.Read, Int -> GetDeliverabilityTestReport -> ShowS
[GetDeliverabilityTestReport] -> ShowS
GetDeliverabilityTestReport -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetDeliverabilityTestReport] -> ShowS
$cshowList :: [GetDeliverabilityTestReport] -> ShowS
show :: GetDeliverabilityTestReport -> String
$cshow :: GetDeliverabilityTestReport -> String
showsPrec :: Int -> GetDeliverabilityTestReport -> ShowS
$cshowsPrec :: Int -> GetDeliverabilityTestReport -> ShowS
Prelude.Show, forall x.
Rep GetDeliverabilityTestReport x -> GetDeliverabilityTestReport
forall x.
GetDeliverabilityTestReport -> Rep GetDeliverabilityTestReport x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetDeliverabilityTestReport x -> GetDeliverabilityTestReport
$cfrom :: forall x.
GetDeliverabilityTestReport -> Rep GetDeliverabilityTestReport x
Prelude.Generic)
newGetDeliverabilityTestReport ::
Prelude.Text ->
GetDeliverabilityTestReport
newGetDeliverabilityTestReport :: Text -> GetDeliverabilityTestReport
newGetDeliverabilityTestReport Text
pReportId_ =
GetDeliverabilityTestReport' {$sel:reportId:GetDeliverabilityTestReport' :: Text
reportId = Text
pReportId_}
getDeliverabilityTestReport_reportId :: Lens.Lens' GetDeliverabilityTestReport Prelude.Text
getDeliverabilityTestReport_reportId :: Lens' GetDeliverabilityTestReport Text
getDeliverabilityTestReport_reportId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDeliverabilityTestReport' {Text
reportId :: Text
$sel:reportId:GetDeliverabilityTestReport' :: GetDeliverabilityTestReport -> Text
reportId} -> Text
reportId) (\s :: GetDeliverabilityTestReport
s@GetDeliverabilityTestReport' {} Text
a -> GetDeliverabilityTestReport
s {$sel:reportId:GetDeliverabilityTestReport' :: Text
reportId = Text
a} :: GetDeliverabilityTestReport)
instance Core.AWSRequest GetDeliverabilityTestReport where
type
AWSResponse GetDeliverabilityTestReport =
GetDeliverabilityTestReportResponse
request :: (Service -> Service)
-> GetDeliverabilityTestReport
-> Request GetDeliverabilityTestReport
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 GetDeliverabilityTestReport
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetDeliverabilityTestReport)))
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 ->
Maybe Text
-> Maybe [Tag]
-> Int
-> DeliverabilityTestReport
-> PlacementStatistics
-> [IspPlacement]
-> GetDeliverabilityTestReportResponse
GetDeliverabilityTestReportResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Message")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Tags" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"DeliverabilityTestReport")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"OverallPlacement")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"IspPlacements" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
)
instance Prelude.Hashable GetDeliverabilityTestReport where
hashWithSalt :: Int -> GetDeliverabilityTestReport -> Int
hashWithSalt Int
_salt GetDeliverabilityTestReport' {Text
reportId :: Text
$sel:reportId:GetDeliverabilityTestReport' :: GetDeliverabilityTestReport -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
reportId
instance Prelude.NFData GetDeliverabilityTestReport where
rnf :: GetDeliverabilityTestReport -> ()
rnf GetDeliverabilityTestReport' {Text
reportId :: Text
$sel:reportId:GetDeliverabilityTestReport' :: GetDeliverabilityTestReport -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
reportId
instance Data.ToHeaders GetDeliverabilityTestReport where
toHeaders :: GetDeliverabilityTestReport -> 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 GetDeliverabilityTestReport where
toPath :: GetDeliverabilityTestReport -> ByteString
toPath GetDeliverabilityTestReport' {Text
reportId :: Text
$sel:reportId:GetDeliverabilityTestReport' :: GetDeliverabilityTestReport -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/v1/email/deliverability-dashboard/test-reports/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
reportId
]
instance Data.ToQuery GetDeliverabilityTestReport where
toQuery :: GetDeliverabilityTestReport -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetDeliverabilityTestReportResponse = GetDeliverabilityTestReportResponse'
{
GetDeliverabilityTestReportResponse -> Maybe Text
message :: Prelude.Maybe Prelude.Text,
GetDeliverabilityTestReportResponse -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
GetDeliverabilityTestReportResponse -> Int
httpStatus :: Prelude.Int,
GetDeliverabilityTestReportResponse -> DeliverabilityTestReport
deliverabilityTestReport :: DeliverabilityTestReport,
GetDeliverabilityTestReportResponse -> PlacementStatistics
overallPlacement :: PlacementStatistics,
GetDeliverabilityTestReportResponse -> [IspPlacement]
ispPlacements :: [IspPlacement]
}
deriving (GetDeliverabilityTestReportResponse
-> GetDeliverabilityTestReportResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetDeliverabilityTestReportResponse
-> GetDeliverabilityTestReportResponse -> Bool
$c/= :: GetDeliverabilityTestReportResponse
-> GetDeliverabilityTestReportResponse -> Bool
== :: GetDeliverabilityTestReportResponse
-> GetDeliverabilityTestReportResponse -> Bool
$c== :: GetDeliverabilityTestReportResponse
-> GetDeliverabilityTestReportResponse -> Bool
Prelude.Eq, ReadPrec [GetDeliverabilityTestReportResponse]
ReadPrec GetDeliverabilityTestReportResponse
Int -> ReadS GetDeliverabilityTestReportResponse
ReadS [GetDeliverabilityTestReportResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetDeliverabilityTestReportResponse]
$creadListPrec :: ReadPrec [GetDeliverabilityTestReportResponse]
readPrec :: ReadPrec GetDeliverabilityTestReportResponse
$creadPrec :: ReadPrec GetDeliverabilityTestReportResponse
readList :: ReadS [GetDeliverabilityTestReportResponse]
$creadList :: ReadS [GetDeliverabilityTestReportResponse]
readsPrec :: Int -> ReadS GetDeliverabilityTestReportResponse
$creadsPrec :: Int -> ReadS GetDeliverabilityTestReportResponse
Prelude.Read, Int -> GetDeliverabilityTestReportResponse -> ShowS
[GetDeliverabilityTestReportResponse] -> ShowS
GetDeliverabilityTestReportResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetDeliverabilityTestReportResponse] -> ShowS
$cshowList :: [GetDeliverabilityTestReportResponse] -> ShowS
show :: GetDeliverabilityTestReportResponse -> String
$cshow :: GetDeliverabilityTestReportResponse -> String
showsPrec :: Int -> GetDeliverabilityTestReportResponse -> ShowS
$cshowsPrec :: Int -> GetDeliverabilityTestReportResponse -> ShowS
Prelude.Show, forall x.
Rep GetDeliverabilityTestReportResponse x
-> GetDeliverabilityTestReportResponse
forall x.
GetDeliverabilityTestReportResponse
-> Rep GetDeliverabilityTestReportResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetDeliverabilityTestReportResponse x
-> GetDeliverabilityTestReportResponse
$cfrom :: forall x.
GetDeliverabilityTestReportResponse
-> Rep GetDeliverabilityTestReportResponse x
Prelude.Generic)
newGetDeliverabilityTestReportResponse ::
Prelude.Int ->
DeliverabilityTestReport ->
PlacementStatistics ->
GetDeliverabilityTestReportResponse
newGetDeliverabilityTestReportResponse :: Int
-> DeliverabilityTestReport
-> PlacementStatistics
-> GetDeliverabilityTestReportResponse
newGetDeliverabilityTestReportResponse
Int
pHttpStatus_
DeliverabilityTestReport
pDeliverabilityTestReport_
PlacementStatistics
pOverallPlacement_ =
GetDeliverabilityTestReportResponse'
{ $sel:message:GetDeliverabilityTestReportResponse' :: Maybe Text
message =
forall a. Maybe a
Prelude.Nothing,
$sel:tags:GetDeliverabilityTestReportResponse' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetDeliverabilityTestReportResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:deliverabilityTestReport:GetDeliverabilityTestReportResponse' :: DeliverabilityTestReport
deliverabilityTestReport =
DeliverabilityTestReport
pDeliverabilityTestReport_,
$sel:overallPlacement:GetDeliverabilityTestReportResponse' :: PlacementStatistics
overallPlacement = PlacementStatistics
pOverallPlacement_,
$sel:ispPlacements:GetDeliverabilityTestReportResponse' :: [IspPlacement]
ispPlacements = forall a. Monoid a => a
Prelude.mempty
}
getDeliverabilityTestReportResponse_message :: Lens.Lens' GetDeliverabilityTestReportResponse (Prelude.Maybe Prelude.Text)
getDeliverabilityTestReportResponse_message :: Lens' GetDeliverabilityTestReportResponse (Maybe Text)
getDeliverabilityTestReportResponse_message = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDeliverabilityTestReportResponse' {Maybe Text
message :: Maybe Text
$sel:message:GetDeliverabilityTestReportResponse' :: GetDeliverabilityTestReportResponse -> Maybe Text
message} -> Maybe Text
message) (\s :: GetDeliverabilityTestReportResponse
s@GetDeliverabilityTestReportResponse' {} Maybe Text
a -> GetDeliverabilityTestReportResponse
s {$sel:message:GetDeliverabilityTestReportResponse' :: Maybe Text
message = Maybe Text
a} :: GetDeliverabilityTestReportResponse)
getDeliverabilityTestReportResponse_tags :: Lens.Lens' GetDeliverabilityTestReportResponse (Prelude.Maybe [Tag])
getDeliverabilityTestReportResponse_tags :: Lens' GetDeliverabilityTestReportResponse (Maybe [Tag])
getDeliverabilityTestReportResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDeliverabilityTestReportResponse' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:GetDeliverabilityTestReportResponse' :: GetDeliverabilityTestReportResponse -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: GetDeliverabilityTestReportResponse
s@GetDeliverabilityTestReportResponse' {} Maybe [Tag]
a -> GetDeliverabilityTestReportResponse
s {$sel:tags:GetDeliverabilityTestReportResponse' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: GetDeliverabilityTestReportResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
getDeliverabilityTestReportResponse_httpStatus :: Lens.Lens' GetDeliverabilityTestReportResponse Prelude.Int
getDeliverabilityTestReportResponse_httpStatus :: Lens' GetDeliverabilityTestReportResponse Int
getDeliverabilityTestReportResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDeliverabilityTestReportResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetDeliverabilityTestReportResponse' :: GetDeliverabilityTestReportResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetDeliverabilityTestReportResponse
s@GetDeliverabilityTestReportResponse' {} Int
a -> GetDeliverabilityTestReportResponse
s {$sel:httpStatus:GetDeliverabilityTestReportResponse' :: Int
httpStatus = Int
a} :: GetDeliverabilityTestReportResponse)
getDeliverabilityTestReportResponse_deliverabilityTestReport :: Lens.Lens' GetDeliverabilityTestReportResponse DeliverabilityTestReport
getDeliverabilityTestReportResponse_deliverabilityTestReport :: Lens' GetDeliverabilityTestReportResponse DeliverabilityTestReport
getDeliverabilityTestReportResponse_deliverabilityTestReport = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDeliverabilityTestReportResponse' {DeliverabilityTestReport
deliverabilityTestReport :: DeliverabilityTestReport
$sel:deliverabilityTestReport:GetDeliverabilityTestReportResponse' :: GetDeliverabilityTestReportResponse -> DeliverabilityTestReport
deliverabilityTestReport} -> DeliverabilityTestReport
deliverabilityTestReport) (\s :: GetDeliverabilityTestReportResponse
s@GetDeliverabilityTestReportResponse' {} DeliverabilityTestReport
a -> GetDeliverabilityTestReportResponse
s {$sel:deliverabilityTestReport:GetDeliverabilityTestReportResponse' :: DeliverabilityTestReport
deliverabilityTestReport = DeliverabilityTestReport
a} :: GetDeliverabilityTestReportResponse)
getDeliverabilityTestReportResponse_overallPlacement :: Lens.Lens' GetDeliverabilityTestReportResponse PlacementStatistics
getDeliverabilityTestReportResponse_overallPlacement :: Lens' GetDeliverabilityTestReportResponse PlacementStatistics
getDeliverabilityTestReportResponse_overallPlacement = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDeliverabilityTestReportResponse' {PlacementStatistics
overallPlacement :: PlacementStatistics
$sel:overallPlacement:GetDeliverabilityTestReportResponse' :: GetDeliverabilityTestReportResponse -> PlacementStatistics
overallPlacement} -> PlacementStatistics
overallPlacement) (\s :: GetDeliverabilityTestReportResponse
s@GetDeliverabilityTestReportResponse' {} PlacementStatistics
a -> GetDeliverabilityTestReportResponse
s {$sel:overallPlacement:GetDeliverabilityTestReportResponse' :: PlacementStatistics
overallPlacement = PlacementStatistics
a} :: GetDeliverabilityTestReportResponse)
getDeliverabilityTestReportResponse_ispPlacements :: Lens.Lens' GetDeliverabilityTestReportResponse [IspPlacement]
getDeliverabilityTestReportResponse_ispPlacements :: Lens' GetDeliverabilityTestReportResponse [IspPlacement]
getDeliverabilityTestReportResponse_ispPlacements = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetDeliverabilityTestReportResponse' {[IspPlacement]
ispPlacements :: [IspPlacement]
$sel:ispPlacements:GetDeliverabilityTestReportResponse' :: GetDeliverabilityTestReportResponse -> [IspPlacement]
ispPlacements} -> [IspPlacement]
ispPlacements) (\s :: GetDeliverabilityTestReportResponse
s@GetDeliverabilityTestReportResponse' {} [IspPlacement]
a -> GetDeliverabilityTestReportResponse
s {$sel:ispPlacements:GetDeliverabilityTestReportResponse' :: [IspPlacement]
ispPlacements = [IspPlacement]
a} :: GetDeliverabilityTestReportResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance
Prelude.NFData
GetDeliverabilityTestReportResponse
where
rnf :: GetDeliverabilityTestReportResponse -> ()
rnf GetDeliverabilityTestReportResponse' {Int
[IspPlacement]
Maybe [Tag]
Maybe Text
DeliverabilityTestReport
PlacementStatistics
ispPlacements :: [IspPlacement]
overallPlacement :: PlacementStatistics
deliverabilityTestReport :: DeliverabilityTestReport
httpStatus :: Int
tags :: Maybe [Tag]
message :: Maybe Text
$sel:ispPlacements:GetDeliverabilityTestReportResponse' :: GetDeliverabilityTestReportResponse -> [IspPlacement]
$sel:overallPlacement:GetDeliverabilityTestReportResponse' :: GetDeliverabilityTestReportResponse -> PlacementStatistics
$sel:deliverabilityTestReport:GetDeliverabilityTestReportResponse' :: GetDeliverabilityTestReportResponse -> DeliverabilityTestReport
$sel:httpStatus:GetDeliverabilityTestReportResponse' :: GetDeliverabilityTestReportResponse -> Int
$sel:tags:GetDeliverabilityTestReportResponse' :: GetDeliverabilityTestReportResponse -> Maybe [Tag]
$sel:message:GetDeliverabilityTestReportResponse' :: GetDeliverabilityTestReportResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
message
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 DeliverabilityTestReport
deliverabilityTestReport
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf PlacementStatistics
overallPlacement
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [IspPlacement]
ispPlacements