{-# 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.CodeGuruProfiler.GetFindingsReportAccountSummary
(
GetFindingsReportAccountSummary (..),
newGetFindingsReportAccountSummary,
getFindingsReportAccountSummary_dailyReportsOnly,
getFindingsReportAccountSummary_maxResults,
getFindingsReportAccountSummary_nextToken,
GetFindingsReportAccountSummaryResponse (..),
newGetFindingsReportAccountSummaryResponse,
getFindingsReportAccountSummaryResponse_nextToken,
getFindingsReportAccountSummaryResponse_httpStatus,
getFindingsReportAccountSummaryResponse_reportSummaries,
)
where
import Amazonka.CodeGuruProfiler.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 GetFindingsReportAccountSummary = GetFindingsReportAccountSummary'
{
GetFindingsReportAccountSummary -> Maybe Bool
dailyReportsOnly :: Prelude.Maybe Prelude.Bool,
GetFindingsReportAccountSummary -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
GetFindingsReportAccountSummary -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text
}
deriving (GetFindingsReportAccountSummary
-> GetFindingsReportAccountSummary -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetFindingsReportAccountSummary
-> GetFindingsReportAccountSummary -> Bool
$c/= :: GetFindingsReportAccountSummary
-> GetFindingsReportAccountSummary -> Bool
== :: GetFindingsReportAccountSummary
-> GetFindingsReportAccountSummary -> Bool
$c== :: GetFindingsReportAccountSummary
-> GetFindingsReportAccountSummary -> Bool
Prelude.Eq, ReadPrec [GetFindingsReportAccountSummary]
ReadPrec GetFindingsReportAccountSummary
Int -> ReadS GetFindingsReportAccountSummary
ReadS [GetFindingsReportAccountSummary]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetFindingsReportAccountSummary]
$creadListPrec :: ReadPrec [GetFindingsReportAccountSummary]
readPrec :: ReadPrec GetFindingsReportAccountSummary
$creadPrec :: ReadPrec GetFindingsReportAccountSummary
readList :: ReadS [GetFindingsReportAccountSummary]
$creadList :: ReadS [GetFindingsReportAccountSummary]
readsPrec :: Int -> ReadS GetFindingsReportAccountSummary
$creadsPrec :: Int -> ReadS GetFindingsReportAccountSummary
Prelude.Read, Int -> GetFindingsReportAccountSummary -> ShowS
[GetFindingsReportAccountSummary] -> ShowS
GetFindingsReportAccountSummary -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetFindingsReportAccountSummary] -> ShowS
$cshowList :: [GetFindingsReportAccountSummary] -> ShowS
show :: GetFindingsReportAccountSummary -> String
$cshow :: GetFindingsReportAccountSummary -> String
showsPrec :: Int -> GetFindingsReportAccountSummary -> ShowS
$cshowsPrec :: Int -> GetFindingsReportAccountSummary -> ShowS
Prelude.Show, forall x.
Rep GetFindingsReportAccountSummary x
-> GetFindingsReportAccountSummary
forall x.
GetFindingsReportAccountSummary
-> Rep GetFindingsReportAccountSummary x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetFindingsReportAccountSummary x
-> GetFindingsReportAccountSummary
$cfrom :: forall x.
GetFindingsReportAccountSummary
-> Rep GetFindingsReportAccountSummary x
Prelude.Generic)
newGetFindingsReportAccountSummary ::
GetFindingsReportAccountSummary
newGetFindingsReportAccountSummary :: GetFindingsReportAccountSummary
newGetFindingsReportAccountSummary =
GetFindingsReportAccountSummary'
{ $sel:dailyReportsOnly:GetFindingsReportAccountSummary' :: Maybe Bool
dailyReportsOnly =
forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:GetFindingsReportAccountSummary' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:GetFindingsReportAccountSummary' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing
}
getFindingsReportAccountSummary_dailyReportsOnly :: Lens.Lens' GetFindingsReportAccountSummary (Prelude.Maybe Prelude.Bool)
getFindingsReportAccountSummary_dailyReportsOnly :: Lens' GetFindingsReportAccountSummary (Maybe Bool)
getFindingsReportAccountSummary_dailyReportsOnly = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetFindingsReportAccountSummary' {Maybe Bool
dailyReportsOnly :: Maybe Bool
$sel:dailyReportsOnly:GetFindingsReportAccountSummary' :: GetFindingsReportAccountSummary -> Maybe Bool
dailyReportsOnly} -> Maybe Bool
dailyReportsOnly) (\s :: GetFindingsReportAccountSummary
s@GetFindingsReportAccountSummary' {} Maybe Bool
a -> GetFindingsReportAccountSummary
s {$sel:dailyReportsOnly:GetFindingsReportAccountSummary' :: Maybe Bool
dailyReportsOnly = Maybe Bool
a} :: GetFindingsReportAccountSummary)
getFindingsReportAccountSummary_maxResults :: Lens.Lens' GetFindingsReportAccountSummary (Prelude.Maybe Prelude.Natural)
getFindingsReportAccountSummary_maxResults :: Lens' GetFindingsReportAccountSummary (Maybe Natural)
getFindingsReportAccountSummary_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetFindingsReportAccountSummary' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:GetFindingsReportAccountSummary' :: GetFindingsReportAccountSummary -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: GetFindingsReportAccountSummary
s@GetFindingsReportAccountSummary' {} Maybe Natural
a -> GetFindingsReportAccountSummary
s {$sel:maxResults:GetFindingsReportAccountSummary' :: Maybe Natural
maxResults = Maybe Natural
a} :: GetFindingsReportAccountSummary)
getFindingsReportAccountSummary_nextToken :: Lens.Lens' GetFindingsReportAccountSummary (Prelude.Maybe Prelude.Text)
getFindingsReportAccountSummary_nextToken :: Lens' GetFindingsReportAccountSummary (Maybe Text)
getFindingsReportAccountSummary_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetFindingsReportAccountSummary' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetFindingsReportAccountSummary' :: GetFindingsReportAccountSummary -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetFindingsReportAccountSummary
s@GetFindingsReportAccountSummary' {} Maybe Text
a -> GetFindingsReportAccountSummary
s {$sel:nextToken:GetFindingsReportAccountSummary' :: Maybe Text
nextToken = Maybe Text
a} :: GetFindingsReportAccountSummary)
instance
Core.AWSRequest
GetFindingsReportAccountSummary
where
type
AWSResponse GetFindingsReportAccountSummary =
GetFindingsReportAccountSummaryResponse
request :: (Service -> Service)
-> GetFindingsReportAccountSummary
-> Request GetFindingsReportAccountSummary
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 GetFindingsReportAccountSummary
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse GetFindingsReportAccountSummary)))
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
-> Int
-> [FindingsReportSummary]
-> GetFindingsReportAccountSummaryResponse
GetFindingsReportAccountSummaryResponse'
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
"nextToken")
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 (Maybe a)
Data..?> Key
"reportSummaries"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
)
instance
Prelude.Hashable
GetFindingsReportAccountSummary
where
hashWithSalt :: Int -> GetFindingsReportAccountSummary -> Int
hashWithSalt
Int
_salt
GetFindingsReportAccountSummary' {Maybe Bool
Maybe Natural
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
dailyReportsOnly :: Maybe Bool
$sel:nextToken:GetFindingsReportAccountSummary' :: GetFindingsReportAccountSummary -> Maybe Text
$sel:maxResults:GetFindingsReportAccountSummary' :: GetFindingsReportAccountSummary -> Maybe Natural
$sel:dailyReportsOnly:GetFindingsReportAccountSummary' :: GetFindingsReportAccountSummary -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dailyReportsOnly
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
instance
Prelude.NFData
GetFindingsReportAccountSummary
where
rnf :: GetFindingsReportAccountSummary -> ()
rnf GetFindingsReportAccountSummary' {Maybe Bool
Maybe Natural
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
dailyReportsOnly :: Maybe Bool
$sel:nextToken:GetFindingsReportAccountSummary' :: GetFindingsReportAccountSummary -> Maybe Text
$sel:maxResults:GetFindingsReportAccountSummary' :: GetFindingsReportAccountSummary -> Maybe Natural
$sel:dailyReportsOnly:GetFindingsReportAccountSummary' :: GetFindingsReportAccountSummary -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
dailyReportsOnly
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
instance
Data.ToHeaders
GetFindingsReportAccountSummary
where
toHeaders :: GetFindingsReportAccountSummary -> 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 GetFindingsReportAccountSummary where
toPath :: GetFindingsReportAccountSummary -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/internal/findingsReports"
instance Data.ToQuery GetFindingsReportAccountSummary where
toQuery :: GetFindingsReportAccountSummary -> QueryString
toQuery GetFindingsReportAccountSummary' {Maybe Bool
Maybe Natural
Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
dailyReportsOnly :: Maybe Bool
$sel:nextToken:GetFindingsReportAccountSummary' :: GetFindingsReportAccountSummary -> Maybe Text
$sel:maxResults:GetFindingsReportAccountSummary' :: GetFindingsReportAccountSummary -> Maybe Natural
$sel:dailyReportsOnly:GetFindingsReportAccountSummary' :: GetFindingsReportAccountSummary -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"dailyReportsOnly" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dailyReportsOnly,
ByteString
"maxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
ByteString
"nextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken
]
data GetFindingsReportAccountSummaryResponse = GetFindingsReportAccountSummaryResponse'
{
GetFindingsReportAccountSummaryResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
GetFindingsReportAccountSummaryResponse -> Int
httpStatus :: Prelude.Int,
GetFindingsReportAccountSummaryResponse -> [FindingsReportSummary]
reportSummaries :: [FindingsReportSummary]
}
deriving (GetFindingsReportAccountSummaryResponse
-> GetFindingsReportAccountSummaryResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetFindingsReportAccountSummaryResponse
-> GetFindingsReportAccountSummaryResponse -> Bool
$c/= :: GetFindingsReportAccountSummaryResponse
-> GetFindingsReportAccountSummaryResponse -> Bool
== :: GetFindingsReportAccountSummaryResponse
-> GetFindingsReportAccountSummaryResponse -> Bool
$c== :: GetFindingsReportAccountSummaryResponse
-> GetFindingsReportAccountSummaryResponse -> Bool
Prelude.Eq, ReadPrec [GetFindingsReportAccountSummaryResponse]
ReadPrec GetFindingsReportAccountSummaryResponse
Int -> ReadS GetFindingsReportAccountSummaryResponse
ReadS [GetFindingsReportAccountSummaryResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetFindingsReportAccountSummaryResponse]
$creadListPrec :: ReadPrec [GetFindingsReportAccountSummaryResponse]
readPrec :: ReadPrec GetFindingsReportAccountSummaryResponse
$creadPrec :: ReadPrec GetFindingsReportAccountSummaryResponse
readList :: ReadS [GetFindingsReportAccountSummaryResponse]
$creadList :: ReadS [GetFindingsReportAccountSummaryResponse]
readsPrec :: Int -> ReadS GetFindingsReportAccountSummaryResponse
$creadsPrec :: Int -> ReadS GetFindingsReportAccountSummaryResponse
Prelude.Read, Int -> GetFindingsReportAccountSummaryResponse -> ShowS
[GetFindingsReportAccountSummaryResponse] -> ShowS
GetFindingsReportAccountSummaryResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetFindingsReportAccountSummaryResponse] -> ShowS
$cshowList :: [GetFindingsReportAccountSummaryResponse] -> ShowS
show :: GetFindingsReportAccountSummaryResponse -> String
$cshow :: GetFindingsReportAccountSummaryResponse -> String
showsPrec :: Int -> GetFindingsReportAccountSummaryResponse -> ShowS
$cshowsPrec :: Int -> GetFindingsReportAccountSummaryResponse -> ShowS
Prelude.Show, forall x.
Rep GetFindingsReportAccountSummaryResponse x
-> GetFindingsReportAccountSummaryResponse
forall x.
GetFindingsReportAccountSummaryResponse
-> Rep GetFindingsReportAccountSummaryResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetFindingsReportAccountSummaryResponse x
-> GetFindingsReportAccountSummaryResponse
$cfrom :: forall x.
GetFindingsReportAccountSummaryResponse
-> Rep GetFindingsReportAccountSummaryResponse x
Prelude.Generic)
newGetFindingsReportAccountSummaryResponse ::
Prelude.Int ->
GetFindingsReportAccountSummaryResponse
newGetFindingsReportAccountSummaryResponse :: Int -> GetFindingsReportAccountSummaryResponse
newGetFindingsReportAccountSummaryResponse
Int
pHttpStatus_ =
GetFindingsReportAccountSummaryResponse'
{ $sel:nextToken:GetFindingsReportAccountSummaryResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetFindingsReportAccountSummaryResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:reportSummaries:GetFindingsReportAccountSummaryResponse' :: [FindingsReportSummary]
reportSummaries = forall a. Monoid a => a
Prelude.mempty
}
getFindingsReportAccountSummaryResponse_nextToken :: Lens.Lens' GetFindingsReportAccountSummaryResponse (Prelude.Maybe Prelude.Text)
getFindingsReportAccountSummaryResponse_nextToken :: Lens' GetFindingsReportAccountSummaryResponse (Maybe Text)
getFindingsReportAccountSummaryResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetFindingsReportAccountSummaryResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:GetFindingsReportAccountSummaryResponse' :: GetFindingsReportAccountSummaryResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: GetFindingsReportAccountSummaryResponse
s@GetFindingsReportAccountSummaryResponse' {} Maybe Text
a -> GetFindingsReportAccountSummaryResponse
s {$sel:nextToken:GetFindingsReportAccountSummaryResponse' :: Maybe Text
nextToken = Maybe Text
a} :: GetFindingsReportAccountSummaryResponse)
getFindingsReportAccountSummaryResponse_httpStatus :: Lens.Lens' GetFindingsReportAccountSummaryResponse Prelude.Int
getFindingsReportAccountSummaryResponse_httpStatus :: Lens' GetFindingsReportAccountSummaryResponse Int
getFindingsReportAccountSummaryResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetFindingsReportAccountSummaryResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetFindingsReportAccountSummaryResponse' :: GetFindingsReportAccountSummaryResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetFindingsReportAccountSummaryResponse
s@GetFindingsReportAccountSummaryResponse' {} Int
a -> GetFindingsReportAccountSummaryResponse
s {$sel:httpStatus:GetFindingsReportAccountSummaryResponse' :: Int
httpStatus = Int
a} :: GetFindingsReportAccountSummaryResponse)
getFindingsReportAccountSummaryResponse_reportSummaries :: Lens.Lens' GetFindingsReportAccountSummaryResponse [FindingsReportSummary]
getFindingsReportAccountSummaryResponse_reportSummaries :: Lens'
GetFindingsReportAccountSummaryResponse [FindingsReportSummary]
getFindingsReportAccountSummaryResponse_reportSummaries = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetFindingsReportAccountSummaryResponse' {[FindingsReportSummary]
reportSummaries :: [FindingsReportSummary]
$sel:reportSummaries:GetFindingsReportAccountSummaryResponse' :: GetFindingsReportAccountSummaryResponse -> [FindingsReportSummary]
reportSummaries} -> [FindingsReportSummary]
reportSummaries) (\s :: GetFindingsReportAccountSummaryResponse
s@GetFindingsReportAccountSummaryResponse' {} [FindingsReportSummary]
a -> GetFindingsReportAccountSummaryResponse
s {$sel:reportSummaries:GetFindingsReportAccountSummaryResponse' :: [FindingsReportSummary]
reportSummaries = [FindingsReportSummary]
a} :: GetFindingsReportAccountSummaryResponse) 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
GetFindingsReportAccountSummaryResponse
where
rnf :: GetFindingsReportAccountSummaryResponse -> ()
rnf GetFindingsReportAccountSummaryResponse' {Int
[FindingsReportSummary]
Maybe Text
reportSummaries :: [FindingsReportSummary]
httpStatus :: Int
nextToken :: Maybe Text
$sel:reportSummaries:GetFindingsReportAccountSummaryResponse' :: GetFindingsReportAccountSummaryResponse -> [FindingsReportSummary]
$sel:httpStatus:GetFindingsReportAccountSummaryResponse' :: GetFindingsReportAccountSummaryResponse -> Int
$sel:nextToken:GetFindingsReportAccountSummaryResponse' :: GetFindingsReportAccountSummaryResponse -> 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 Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [FindingsReportSummary]
reportSummaries