{-# 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.CodeBuild.DescribeCodeCoverages
(
DescribeCodeCoverages (..),
newDescribeCodeCoverages,
describeCodeCoverages_maxLineCoveragePercentage,
describeCodeCoverages_maxResults,
describeCodeCoverages_minLineCoveragePercentage,
describeCodeCoverages_nextToken,
describeCodeCoverages_sortBy,
describeCodeCoverages_sortOrder,
describeCodeCoverages_reportArn,
DescribeCodeCoveragesResponse (..),
newDescribeCodeCoveragesResponse,
describeCodeCoveragesResponse_codeCoverages,
describeCodeCoveragesResponse_nextToken,
describeCodeCoveragesResponse_httpStatus,
)
where
import Amazonka.CodeBuild.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 DescribeCodeCoverages = DescribeCodeCoverages'
{
DescribeCodeCoverages -> Maybe Double
maxLineCoveragePercentage :: Prelude.Maybe Prelude.Double,
DescribeCodeCoverages -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
DescribeCodeCoverages -> Maybe Double
minLineCoveragePercentage :: Prelude.Maybe Prelude.Double,
DescribeCodeCoverages -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeCodeCoverages -> Maybe ReportCodeCoverageSortByType
sortBy :: Prelude.Maybe ReportCodeCoverageSortByType,
DescribeCodeCoverages -> Maybe SortOrderType
sortOrder :: Prelude.Maybe SortOrderType,
DescribeCodeCoverages -> Text
reportArn :: Prelude.Text
}
deriving (DescribeCodeCoverages -> DescribeCodeCoverages -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeCodeCoverages -> DescribeCodeCoverages -> Bool
$c/= :: DescribeCodeCoverages -> DescribeCodeCoverages -> Bool
== :: DescribeCodeCoverages -> DescribeCodeCoverages -> Bool
$c== :: DescribeCodeCoverages -> DescribeCodeCoverages -> Bool
Prelude.Eq, ReadPrec [DescribeCodeCoverages]
ReadPrec DescribeCodeCoverages
Int -> ReadS DescribeCodeCoverages
ReadS [DescribeCodeCoverages]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeCodeCoverages]
$creadListPrec :: ReadPrec [DescribeCodeCoverages]
readPrec :: ReadPrec DescribeCodeCoverages
$creadPrec :: ReadPrec DescribeCodeCoverages
readList :: ReadS [DescribeCodeCoverages]
$creadList :: ReadS [DescribeCodeCoverages]
readsPrec :: Int -> ReadS DescribeCodeCoverages
$creadsPrec :: Int -> ReadS DescribeCodeCoverages
Prelude.Read, Int -> DescribeCodeCoverages -> ShowS
[DescribeCodeCoverages] -> ShowS
DescribeCodeCoverages -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeCodeCoverages] -> ShowS
$cshowList :: [DescribeCodeCoverages] -> ShowS
show :: DescribeCodeCoverages -> String
$cshow :: DescribeCodeCoverages -> String
showsPrec :: Int -> DescribeCodeCoverages -> ShowS
$cshowsPrec :: Int -> DescribeCodeCoverages -> ShowS
Prelude.Show, forall x. Rep DescribeCodeCoverages x -> DescribeCodeCoverages
forall x. DescribeCodeCoverages -> Rep DescribeCodeCoverages x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeCodeCoverages x -> DescribeCodeCoverages
$cfrom :: forall x. DescribeCodeCoverages -> Rep DescribeCodeCoverages x
Prelude.Generic)
newDescribeCodeCoverages ::
Prelude.Text ->
DescribeCodeCoverages
newDescribeCodeCoverages :: Text -> DescribeCodeCoverages
newDescribeCodeCoverages Text
pReportArn_ =
DescribeCodeCoverages'
{ $sel:maxLineCoveragePercentage:DescribeCodeCoverages' :: Maybe Double
maxLineCoveragePercentage =
forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:DescribeCodeCoverages' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:minLineCoveragePercentage:DescribeCodeCoverages' :: Maybe Double
minLineCoveragePercentage = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeCodeCoverages' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:sortBy:DescribeCodeCoverages' :: Maybe ReportCodeCoverageSortByType
sortBy = forall a. Maybe a
Prelude.Nothing,
$sel:sortOrder:DescribeCodeCoverages' :: Maybe SortOrderType
sortOrder = forall a. Maybe a
Prelude.Nothing,
$sel:reportArn:DescribeCodeCoverages' :: Text
reportArn = Text
pReportArn_
}
describeCodeCoverages_maxLineCoveragePercentage :: Lens.Lens' DescribeCodeCoverages (Prelude.Maybe Prelude.Double)
describeCodeCoverages_maxLineCoveragePercentage :: Lens' DescribeCodeCoverages (Maybe Double)
describeCodeCoverages_maxLineCoveragePercentage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCodeCoverages' {Maybe Double
maxLineCoveragePercentage :: Maybe Double
$sel:maxLineCoveragePercentage:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Double
maxLineCoveragePercentage} -> Maybe Double
maxLineCoveragePercentage) (\s :: DescribeCodeCoverages
s@DescribeCodeCoverages' {} Maybe Double
a -> DescribeCodeCoverages
s {$sel:maxLineCoveragePercentage:DescribeCodeCoverages' :: Maybe Double
maxLineCoveragePercentage = Maybe Double
a} :: DescribeCodeCoverages)
describeCodeCoverages_maxResults :: Lens.Lens' DescribeCodeCoverages (Prelude.Maybe Prelude.Natural)
describeCodeCoverages_maxResults :: Lens' DescribeCodeCoverages (Maybe Natural)
describeCodeCoverages_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCodeCoverages' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: DescribeCodeCoverages
s@DescribeCodeCoverages' {} Maybe Natural
a -> DescribeCodeCoverages
s {$sel:maxResults:DescribeCodeCoverages' :: Maybe Natural
maxResults = Maybe Natural
a} :: DescribeCodeCoverages)
describeCodeCoverages_minLineCoveragePercentage :: Lens.Lens' DescribeCodeCoverages (Prelude.Maybe Prelude.Double)
describeCodeCoverages_minLineCoveragePercentage :: Lens' DescribeCodeCoverages (Maybe Double)
describeCodeCoverages_minLineCoveragePercentage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCodeCoverages' {Maybe Double
minLineCoveragePercentage :: Maybe Double
$sel:minLineCoveragePercentage:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Double
minLineCoveragePercentage} -> Maybe Double
minLineCoveragePercentage) (\s :: DescribeCodeCoverages
s@DescribeCodeCoverages' {} Maybe Double
a -> DescribeCodeCoverages
s {$sel:minLineCoveragePercentage:DescribeCodeCoverages' :: Maybe Double
minLineCoveragePercentage = Maybe Double
a} :: DescribeCodeCoverages)
describeCodeCoverages_nextToken :: Lens.Lens' DescribeCodeCoverages (Prelude.Maybe Prelude.Text)
describeCodeCoverages_nextToken :: Lens' DescribeCodeCoverages (Maybe Text)
describeCodeCoverages_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCodeCoverages' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeCodeCoverages
s@DescribeCodeCoverages' {} Maybe Text
a -> DescribeCodeCoverages
s {$sel:nextToken:DescribeCodeCoverages' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeCodeCoverages)
describeCodeCoverages_sortBy :: Lens.Lens' DescribeCodeCoverages (Prelude.Maybe ReportCodeCoverageSortByType)
describeCodeCoverages_sortBy :: Lens' DescribeCodeCoverages (Maybe ReportCodeCoverageSortByType)
describeCodeCoverages_sortBy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCodeCoverages' {Maybe ReportCodeCoverageSortByType
sortBy :: Maybe ReportCodeCoverageSortByType
$sel:sortBy:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe ReportCodeCoverageSortByType
sortBy} -> Maybe ReportCodeCoverageSortByType
sortBy) (\s :: DescribeCodeCoverages
s@DescribeCodeCoverages' {} Maybe ReportCodeCoverageSortByType
a -> DescribeCodeCoverages
s {$sel:sortBy:DescribeCodeCoverages' :: Maybe ReportCodeCoverageSortByType
sortBy = Maybe ReportCodeCoverageSortByType
a} :: DescribeCodeCoverages)
describeCodeCoverages_sortOrder :: Lens.Lens' DescribeCodeCoverages (Prelude.Maybe SortOrderType)
describeCodeCoverages_sortOrder :: Lens' DescribeCodeCoverages (Maybe SortOrderType)
describeCodeCoverages_sortOrder = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCodeCoverages' {Maybe SortOrderType
sortOrder :: Maybe SortOrderType
$sel:sortOrder:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe SortOrderType
sortOrder} -> Maybe SortOrderType
sortOrder) (\s :: DescribeCodeCoverages
s@DescribeCodeCoverages' {} Maybe SortOrderType
a -> DescribeCodeCoverages
s {$sel:sortOrder:DescribeCodeCoverages' :: Maybe SortOrderType
sortOrder = Maybe SortOrderType
a} :: DescribeCodeCoverages)
describeCodeCoverages_reportArn :: Lens.Lens' DescribeCodeCoverages Prelude.Text
describeCodeCoverages_reportArn :: Lens' DescribeCodeCoverages Text
describeCodeCoverages_reportArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCodeCoverages' {Text
reportArn :: Text
$sel:reportArn:DescribeCodeCoverages' :: DescribeCodeCoverages -> Text
reportArn} -> Text
reportArn) (\s :: DescribeCodeCoverages
s@DescribeCodeCoverages' {} Text
a -> DescribeCodeCoverages
s {$sel:reportArn:DescribeCodeCoverages' :: Text
reportArn = Text
a} :: DescribeCodeCoverages)
instance Core.AWSPager DescribeCodeCoverages where
page :: DescribeCodeCoverages
-> AWSResponse DescribeCodeCoverages -> Maybe DescribeCodeCoverages
page DescribeCodeCoverages
rq AWSResponse DescribeCodeCoverages
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeCodeCoverages
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeCodeCoveragesResponse (Maybe Text)
describeCodeCoveragesResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeCodeCoverages
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeCodeCoveragesResponse (Maybe [CodeCoverage])
describeCodeCoveragesResponse_codeCoverages
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ DescribeCodeCoverages
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeCodeCoverages (Maybe Text)
describeCodeCoverages_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeCodeCoverages
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeCodeCoveragesResponse (Maybe Text)
describeCodeCoveragesResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest DescribeCodeCoverages where
type
AWSResponse DescribeCodeCoverages =
DescribeCodeCoveragesResponse
request :: (Service -> Service)
-> DescribeCodeCoverages -> Request DescribeCodeCoverages
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeCodeCoverages
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeCodeCoverages)))
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 [CodeCoverage]
-> Maybe Text -> Int -> DescribeCodeCoveragesResponse
DescribeCodeCoveragesResponse'
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
"codeCoverages" 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.<*> (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))
)
instance Prelude.Hashable DescribeCodeCoverages where
hashWithSalt :: Int -> DescribeCodeCoverages -> Int
hashWithSalt Int
_salt DescribeCodeCoverages' {Maybe Double
Maybe Natural
Maybe Text
Maybe ReportCodeCoverageSortByType
Maybe SortOrderType
Text
reportArn :: Text
sortOrder :: Maybe SortOrderType
sortBy :: Maybe ReportCodeCoverageSortByType
nextToken :: Maybe Text
minLineCoveragePercentage :: Maybe Double
maxResults :: Maybe Natural
maxLineCoveragePercentage :: Maybe Double
$sel:reportArn:DescribeCodeCoverages' :: DescribeCodeCoverages -> Text
$sel:sortOrder:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe SortOrderType
$sel:sortBy:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe ReportCodeCoverageSortByType
$sel:nextToken:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Text
$sel:minLineCoveragePercentage:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Double
$sel:maxResults:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Natural
$sel:maxLineCoveragePercentage:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Double
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
maxLineCoveragePercentage
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
minLineCoveragePercentage
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ReportCodeCoverageSortByType
sortBy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SortOrderType
sortOrder
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
reportArn
instance Prelude.NFData DescribeCodeCoverages where
rnf :: DescribeCodeCoverages -> ()
rnf DescribeCodeCoverages' {Maybe Double
Maybe Natural
Maybe Text
Maybe ReportCodeCoverageSortByType
Maybe SortOrderType
Text
reportArn :: Text
sortOrder :: Maybe SortOrderType
sortBy :: Maybe ReportCodeCoverageSortByType
nextToken :: Maybe Text
minLineCoveragePercentage :: Maybe Double
maxResults :: Maybe Natural
maxLineCoveragePercentage :: Maybe Double
$sel:reportArn:DescribeCodeCoverages' :: DescribeCodeCoverages -> Text
$sel:sortOrder:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe SortOrderType
$sel:sortBy:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe ReportCodeCoverageSortByType
$sel:nextToken:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Text
$sel:minLineCoveragePercentage:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Double
$sel:maxResults:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Natural
$sel:maxLineCoveragePercentage:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Double
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Double
maxLineCoveragePercentage
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 Double
minLineCoveragePercentage
seq :: forall a b. a -> b -> b
`Prelude.seq` 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 ReportCodeCoverageSortByType
sortBy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe SortOrderType
sortOrder
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
reportArn
instance Data.ToHeaders DescribeCodeCoverages where
toHeaders :: DescribeCodeCoverages -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"CodeBuild_20161006.DescribeCodeCoverages" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DescribeCodeCoverages where
toJSON :: DescribeCodeCoverages -> Value
toJSON DescribeCodeCoverages' {Maybe Double
Maybe Natural
Maybe Text
Maybe ReportCodeCoverageSortByType
Maybe SortOrderType
Text
reportArn :: Text
sortOrder :: Maybe SortOrderType
sortBy :: Maybe ReportCodeCoverageSortByType
nextToken :: Maybe Text
minLineCoveragePercentage :: Maybe Double
maxResults :: Maybe Natural
maxLineCoveragePercentage :: Maybe Double
$sel:reportArn:DescribeCodeCoverages' :: DescribeCodeCoverages -> Text
$sel:sortOrder:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe SortOrderType
$sel:sortBy:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe ReportCodeCoverageSortByType
$sel:nextToken:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Text
$sel:minLineCoveragePercentage:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Double
$sel:maxResults:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Natural
$sel:maxLineCoveragePercentage:DescribeCodeCoverages' :: DescribeCodeCoverages -> Maybe Double
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"maxLineCoveragePercentage" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Double
maxLineCoveragePercentage,
(Key
"maxResults" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
maxResults,
(Key
"minLineCoveragePercentage" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Double
minLineCoveragePercentage,
(Key
"nextToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
nextToken,
(Key
"sortBy" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ReportCodeCoverageSortByType
sortBy,
(Key
"sortOrder" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SortOrderType
sortOrder,
forall a. a -> Maybe a
Prelude.Just (Key
"reportArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
reportArn)
]
)
instance Data.ToPath DescribeCodeCoverages where
toPath :: DescribeCodeCoverages -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeCodeCoverages where
toQuery :: DescribeCodeCoverages -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeCodeCoveragesResponse = DescribeCodeCoveragesResponse'
{
DescribeCodeCoveragesResponse -> Maybe [CodeCoverage]
codeCoverages :: Prelude.Maybe [CodeCoverage],
DescribeCodeCoveragesResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeCodeCoveragesResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeCodeCoveragesResponse
-> DescribeCodeCoveragesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeCodeCoveragesResponse
-> DescribeCodeCoveragesResponse -> Bool
$c/= :: DescribeCodeCoveragesResponse
-> DescribeCodeCoveragesResponse -> Bool
== :: DescribeCodeCoveragesResponse
-> DescribeCodeCoveragesResponse -> Bool
$c== :: DescribeCodeCoveragesResponse
-> DescribeCodeCoveragesResponse -> Bool
Prelude.Eq, ReadPrec [DescribeCodeCoveragesResponse]
ReadPrec DescribeCodeCoveragesResponse
Int -> ReadS DescribeCodeCoveragesResponse
ReadS [DescribeCodeCoveragesResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeCodeCoveragesResponse]
$creadListPrec :: ReadPrec [DescribeCodeCoveragesResponse]
readPrec :: ReadPrec DescribeCodeCoveragesResponse
$creadPrec :: ReadPrec DescribeCodeCoveragesResponse
readList :: ReadS [DescribeCodeCoveragesResponse]
$creadList :: ReadS [DescribeCodeCoveragesResponse]
readsPrec :: Int -> ReadS DescribeCodeCoveragesResponse
$creadsPrec :: Int -> ReadS DescribeCodeCoveragesResponse
Prelude.Read, Int -> DescribeCodeCoveragesResponse -> ShowS
[DescribeCodeCoveragesResponse] -> ShowS
DescribeCodeCoveragesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeCodeCoveragesResponse] -> ShowS
$cshowList :: [DescribeCodeCoveragesResponse] -> ShowS
show :: DescribeCodeCoveragesResponse -> String
$cshow :: DescribeCodeCoveragesResponse -> String
showsPrec :: Int -> DescribeCodeCoveragesResponse -> ShowS
$cshowsPrec :: Int -> DescribeCodeCoveragesResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeCodeCoveragesResponse x
-> DescribeCodeCoveragesResponse
forall x.
DescribeCodeCoveragesResponse
-> Rep DescribeCodeCoveragesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeCodeCoveragesResponse x
-> DescribeCodeCoveragesResponse
$cfrom :: forall x.
DescribeCodeCoveragesResponse
-> Rep DescribeCodeCoveragesResponse x
Prelude.Generic)
newDescribeCodeCoveragesResponse ::
Prelude.Int ->
DescribeCodeCoveragesResponse
newDescribeCodeCoveragesResponse :: Int -> DescribeCodeCoveragesResponse
newDescribeCodeCoveragesResponse Int
pHttpStatus_ =
DescribeCodeCoveragesResponse'
{ $sel:codeCoverages:DescribeCodeCoveragesResponse' :: Maybe [CodeCoverage]
codeCoverages =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeCodeCoveragesResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeCodeCoveragesResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeCodeCoveragesResponse_codeCoverages :: Lens.Lens' DescribeCodeCoveragesResponse (Prelude.Maybe [CodeCoverage])
describeCodeCoveragesResponse_codeCoverages :: Lens' DescribeCodeCoveragesResponse (Maybe [CodeCoverage])
describeCodeCoveragesResponse_codeCoverages = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCodeCoveragesResponse' {Maybe [CodeCoverage]
codeCoverages :: Maybe [CodeCoverage]
$sel:codeCoverages:DescribeCodeCoveragesResponse' :: DescribeCodeCoveragesResponse -> Maybe [CodeCoverage]
codeCoverages} -> Maybe [CodeCoverage]
codeCoverages) (\s :: DescribeCodeCoveragesResponse
s@DescribeCodeCoveragesResponse' {} Maybe [CodeCoverage]
a -> DescribeCodeCoveragesResponse
s {$sel:codeCoverages:DescribeCodeCoveragesResponse' :: Maybe [CodeCoverage]
codeCoverages = Maybe [CodeCoverage]
a} :: DescribeCodeCoveragesResponse) 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
describeCodeCoveragesResponse_nextToken :: Lens.Lens' DescribeCodeCoveragesResponse (Prelude.Maybe Prelude.Text)
describeCodeCoveragesResponse_nextToken :: Lens' DescribeCodeCoveragesResponse (Maybe Text)
describeCodeCoveragesResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCodeCoveragesResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeCodeCoveragesResponse' :: DescribeCodeCoveragesResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeCodeCoveragesResponse
s@DescribeCodeCoveragesResponse' {} Maybe Text
a -> DescribeCodeCoveragesResponse
s {$sel:nextToken:DescribeCodeCoveragesResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeCodeCoveragesResponse)
describeCodeCoveragesResponse_httpStatus :: Lens.Lens' DescribeCodeCoveragesResponse Prelude.Int
describeCodeCoveragesResponse_httpStatus :: Lens' DescribeCodeCoveragesResponse Int
describeCodeCoveragesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeCodeCoveragesResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeCodeCoveragesResponse' :: DescribeCodeCoveragesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeCodeCoveragesResponse
s@DescribeCodeCoveragesResponse' {} Int
a -> DescribeCodeCoveragesResponse
s {$sel:httpStatus:DescribeCodeCoveragesResponse' :: Int
httpStatus = Int
a} :: DescribeCodeCoveragesResponse)
instance Prelude.NFData DescribeCodeCoveragesResponse where
rnf :: DescribeCodeCoveragesResponse -> ()
rnf DescribeCodeCoveragesResponse' {Int
Maybe [CodeCoverage]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
codeCoverages :: Maybe [CodeCoverage]
$sel:httpStatus:DescribeCodeCoveragesResponse' :: DescribeCodeCoveragesResponse -> Int
$sel:nextToken:DescribeCodeCoveragesResponse' :: DescribeCodeCoveragesResponse -> Maybe Text
$sel:codeCoverages:DescribeCodeCoveragesResponse' :: DescribeCodeCoveragesResponse -> Maybe [CodeCoverage]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [CodeCoverage]
codeCoverages
seq :: forall a b. a -> b -> b
`Prelude.seq` 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