{-# 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.DeviceFarm.ListTestGridSessionArtifacts
(
ListTestGridSessionArtifacts (..),
newListTestGridSessionArtifacts,
listTestGridSessionArtifacts_maxResult,
listTestGridSessionArtifacts_nextToken,
listTestGridSessionArtifacts_type,
listTestGridSessionArtifacts_sessionArn,
ListTestGridSessionArtifactsResponse (..),
newListTestGridSessionArtifactsResponse,
listTestGridSessionArtifactsResponse_artifacts,
listTestGridSessionArtifactsResponse_nextToken,
listTestGridSessionArtifactsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DeviceFarm.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListTestGridSessionArtifacts = ListTestGridSessionArtifacts'
{
ListTestGridSessionArtifacts -> Maybe Natural
maxResult :: Prelude.Maybe Prelude.Natural,
ListTestGridSessionArtifacts -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListTestGridSessionArtifacts
-> Maybe TestGridSessionArtifactCategory
type' :: Prelude.Maybe TestGridSessionArtifactCategory,
ListTestGridSessionArtifacts -> Text
sessionArn :: Prelude.Text
}
deriving (ListTestGridSessionArtifacts
-> ListTestGridSessionArtifacts -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListTestGridSessionArtifacts
-> ListTestGridSessionArtifacts -> Bool
$c/= :: ListTestGridSessionArtifacts
-> ListTestGridSessionArtifacts -> Bool
== :: ListTestGridSessionArtifacts
-> ListTestGridSessionArtifacts -> Bool
$c== :: ListTestGridSessionArtifacts
-> ListTestGridSessionArtifacts -> Bool
Prelude.Eq, ReadPrec [ListTestGridSessionArtifacts]
ReadPrec ListTestGridSessionArtifacts
Int -> ReadS ListTestGridSessionArtifacts
ReadS [ListTestGridSessionArtifacts]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListTestGridSessionArtifacts]
$creadListPrec :: ReadPrec [ListTestGridSessionArtifacts]
readPrec :: ReadPrec ListTestGridSessionArtifacts
$creadPrec :: ReadPrec ListTestGridSessionArtifacts
readList :: ReadS [ListTestGridSessionArtifacts]
$creadList :: ReadS [ListTestGridSessionArtifacts]
readsPrec :: Int -> ReadS ListTestGridSessionArtifacts
$creadsPrec :: Int -> ReadS ListTestGridSessionArtifacts
Prelude.Read, Int -> ListTestGridSessionArtifacts -> ShowS
[ListTestGridSessionArtifacts] -> ShowS
ListTestGridSessionArtifacts -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListTestGridSessionArtifacts] -> ShowS
$cshowList :: [ListTestGridSessionArtifacts] -> ShowS
show :: ListTestGridSessionArtifacts -> String
$cshow :: ListTestGridSessionArtifacts -> String
showsPrec :: Int -> ListTestGridSessionArtifacts -> ShowS
$cshowsPrec :: Int -> ListTestGridSessionArtifacts -> ShowS
Prelude.Show, forall x.
Rep ListTestGridSessionArtifacts x -> ListTestGridSessionArtifacts
forall x.
ListTestGridSessionArtifacts -> Rep ListTestGridSessionArtifacts x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListTestGridSessionArtifacts x -> ListTestGridSessionArtifacts
$cfrom :: forall x.
ListTestGridSessionArtifacts -> Rep ListTestGridSessionArtifacts x
Prelude.Generic)
newListTestGridSessionArtifacts ::
Prelude.Text ->
ListTestGridSessionArtifacts
newListTestGridSessionArtifacts :: Text -> ListTestGridSessionArtifacts
newListTestGridSessionArtifacts Text
pSessionArn_ =
ListTestGridSessionArtifacts'
{ $sel:maxResult:ListTestGridSessionArtifacts' :: Maybe Natural
maxResult =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListTestGridSessionArtifacts' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:type':ListTestGridSessionArtifacts' :: Maybe TestGridSessionArtifactCategory
type' = forall a. Maybe a
Prelude.Nothing,
$sel:sessionArn:ListTestGridSessionArtifacts' :: Text
sessionArn = Text
pSessionArn_
}
listTestGridSessionArtifacts_maxResult :: Lens.Lens' ListTestGridSessionArtifacts (Prelude.Maybe Prelude.Natural)
listTestGridSessionArtifacts_maxResult :: Lens' ListTestGridSessionArtifacts (Maybe Natural)
listTestGridSessionArtifacts_maxResult = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTestGridSessionArtifacts' {Maybe Natural
maxResult :: Maybe Natural
$sel:maxResult:ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts -> Maybe Natural
maxResult} -> Maybe Natural
maxResult) (\s :: ListTestGridSessionArtifacts
s@ListTestGridSessionArtifacts' {} Maybe Natural
a -> ListTestGridSessionArtifacts
s {$sel:maxResult:ListTestGridSessionArtifacts' :: Maybe Natural
maxResult = Maybe Natural
a} :: ListTestGridSessionArtifacts)
listTestGridSessionArtifacts_nextToken :: Lens.Lens' ListTestGridSessionArtifacts (Prelude.Maybe Prelude.Text)
listTestGridSessionArtifacts_nextToken :: Lens' ListTestGridSessionArtifacts (Maybe Text)
listTestGridSessionArtifacts_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTestGridSessionArtifacts' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListTestGridSessionArtifacts
s@ListTestGridSessionArtifacts' {} Maybe Text
a -> ListTestGridSessionArtifacts
s {$sel:nextToken:ListTestGridSessionArtifacts' :: Maybe Text
nextToken = Maybe Text
a} :: ListTestGridSessionArtifacts)
listTestGridSessionArtifacts_type :: Lens.Lens' ListTestGridSessionArtifacts (Prelude.Maybe TestGridSessionArtifactCategory)
listTestGridSessionArtifacts_type :: Lens'
ListTestGridSessionArtifacts
(Maybe TestGridSessionArtifactCategory)
listTestGridSessionArtifacts_type = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTestGridSessionArtifacts' {Maybe TestGridSessionArtifactCategory
type' :: Maybe TestGridSessionArtifactCategory
$sel:type':ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts
-> Maybe TestGridSessionArtifactCategory
type'} -> Maybe TestGridSessionArtifactCategory
type') (\s :: ListTestGridSessionArtifacts
s@ListTestGridSessionArtifacts' {} Maybe TestGridSessionArtifactCategory
a -> ListTestGridSessionArtifacts
s {$sel:type':ListTestGridSessionArtifacts' :: Maybe TestGridSessionArtifactCategory
type' = Maybe TestGridSessionArtifactCategory
a} :: ListTestGridSessionArtifacts)
listTestGridSessionArtifacts_sessionArn :: Lens.Lens' ListTestGridSessionArtifacts Prelude.Text
listTestGridSessionArtifacts_sessionArn :: Lens' ListTestGridSessionArtifacts Text
listTestGridSessionArtifacts_sessionArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTestGridSessionArtifacts' {Text
sessionArn :: Text
$sel:sessionArn:ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts -> Text
sessionArn} -> Text
sessionArn) (\s :: ListTestGridSessionArtifacts
s@ListTestGridSessionArtifacts' {} Text
a -> ListTestGridSessionArtifacts
s {$sel:sessionArn:ListTestGridSessionArtifacts' :: Text
sessionArn = Text
a} :: ListTestGridSessionArtifacts)
instance Core.AWSRequest ListTestGridSessionArtifacts where
type
AWSResponse ListTestGridSessionArtifacts =
ListTestGridSessionArtifactsResponse
request :: (Service -> Service)
-> ListTestGridSessionArtifacts
-> Request ListTestGridSessionArtifacts
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 ListTestGridSessionArtifacts
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListTestGridSessionArtifacts)))
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 [TestGridSessionArtifact]
-> Maybe Text -> Int -> ListTestGridSessionArtifactsResponse
ListTestGridSessionArtifactsResponse'
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
"artifacts" 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
ListTestGridSessionArtifacts
where
hashWithSalt :: Int -> ListTestGridSessionArtifacts -> Int
hashWithSalt Int
_salt ListTestGridSessionArtifacts' {Maybe Natural
Maybe Text
Maybe TestGridSessionArtifactCategory
Text
sessionArn :: Text
type' :: Maybe TestGridSessionArtifactCategory
nextToken :: Maybe Text
maxResult :: Maybe Natural
$sel:sessionArn:ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts -> Text
$sel:type':ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts
-> Maybe TestGridSessionArtifactCategory
$sel:nextToken:ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts -> Maybe Text
$sel:maxResult:ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts -> Maybe Natural
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResult
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe TestGridSessionArtifactCategory
type'
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
sessionArn
instance Prelude.NFData ListTestGridSessionArtifacts where
rnf :: ListTestGridSessionArtifacts -> ()
rnf ListTestGridSessionArtifacts' {Maybe Natural
Maybe Text
Maybe TestGridSessionArtifactCategory
Text
sessionArn :: Text
type' :: Maybe TestGridSessionArtifactCategory
nextToken :: Maybe Text
maxResult :: Maybe Natural
$sel:sessionArn:ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts -> Text
$sel:type':ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts
-> Maybe TestGridSessionArtifactCategory
$sel:nextToken:ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts -> Maybe Text
$sel:maxResult:ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts -> Maybe Natural
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResult
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 TestGridSessionArtifactCategory
type'
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
sessionArn
instance Data.ToHeaders ListTestGridSessionArtifacts where
toHeaders :: ListTestGridSessionArtifacts -> 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
"DeviceFarm_20150623.ListTestGridSessionArtifacts" ::
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 ListTestGridSessionArtifacts where
toJSON :: ListTestGridSessionArtifacts -> Value
toJSON ListTestGridSessionArtifacts' {Maybe Natural
Maybe Text
Maybe TestGridSessionArtifactCategory
Text
sessionArn :: Text
type' :: Maybe TestGridSessionArtifactCategory
nextToken :: Maybe Text
maxResult :: Maybe Natural
$sel:sessionArn:ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts -> Text
$sel:type':ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts
-> Maybe TestGridSessionArtifactCategory
$sel:nextToken:ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts -> Maybe Text
$sel:maxResult:ListTestGridSessionArtifacts' :: ListTestGridSessionArtifacts -> Maybe Natural
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"maxResult" 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
maxResult,
(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
"type" 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 TestGridSessionArtifactCategory
type',
forall a. a -> Maybe a
Prelude.Just (Key
"sessionArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
sessionArn)
]
)
instance Data.ToPath ListTestGridSessionArtifacts where
toPath :: ListTestGridSessionArtifacts -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListTestGridSessionArtifacts where
toQuery :: ListTestGridSessionArtifacts -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListTestGridSessionArtifactsResponse = ListTestGridSessionArtifactsResponse'
{
ListTestGridSessionArtifactsResponse
-> Maybe [TestGridSessionArtifact]
artifacts :: Prelude.Maybe [TestGridSessionArtifact],
ListTestGridSessionArtifactsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListTestGridSessionArtifactsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListTestGridSessionArtifactsResponse
-> ListTestGridSessionArtifactsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListTestGridSessionArtifactsResponse
-> ListTestGridSessionArtifactsResponse -> Bool
$c/= :: ListTestGridSessionArtifactsResponse
-> ListTestGridSessionArtifactsResponse -> Bool
== :: ListTestGridSessionArtifactsResponse
-> ListTestGridSessionArtifactsResponse -> Bool
$c== :: ListTestGridSessionArtifactsResponse
-> ListTestGridSessionArtifactsResponse -> Bool
Prelude.Eq, Int -> ListTestGridSessionArtifactsResponse -> ShowS
[ListTestGridSessionArtifactsResponse] -> ShowS
ListTestGridSessionArtifactsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListTestGridSessionArtifactsResponse] -> ShowS
$cshowList :: [ListTestGridSessionArtifactsResponse] -> ShowS
show :: ListTestGridSessionArtifactsResponse -> String
$cshow :: ListTestGridSessionArtifactsResponse -> String
showsPrec :: Int -> ListTestGridSessionArtifactsResponse -> ShowS
$cshowsPrec :: Int -> ListTestGridSessionArtifactsResponse -> ShowS
Prelude.Show, forall x.
Rep ListTestGridSessionArtifactsResponse x
-> ListTestGridSessionArtifactsResponse
forall x.
ListTestGridSessionArtifactsResponse
-> Rep ListTestGridSessionArtifactsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListTestGridSessionArtifactsResponse x
-> ListTestGridSessionArtifactsResponse
$cfrom :: forall x.
ListTestGridSessionArtifactsResponse
-> Rep ListTestGridSessionArtifactsResponse x
Prelude.Generic)
newListTestGridSessionArtifactsResponse ::
Prelude.Int ->
ListTestGridSessionArtifactsResponse
newListTestGridSessionArtifactsResponse :: Int -> ListTestGridSessionArtifactsResponse
newListTestGridSessionArtifactsResponse Int
pHttpStatus_ =
ListTestGridSessionArtifactsResponse'
{ $sel:artifacts:ListTestGridSessionArtifactsResponse' :: Maybe [TestGridSessionArtifact]
artifacts =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListTestGridSessionArtifactsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListTestGridSessionArtifactsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listTestGridSessionArtifactsResponse_artifacts :: Lens.Lens' ListTestGridSessionArtifactsResponse (Prelude.Maybe [TestGridSessionArtifact])
listTestGridSessionArtifactsResponse_artifacts :: Lens'
ListTestGridSessionArtifactsResponse
(Maybe [TestGridSessionArtifact])
listTestGridSessionArtifactsResponse_artifacts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTestGridSessionArtifactsResponse' {Maybe [TestGridSessionArtifact]
artifacts :: Maybe [TestGridSessionArtifact]
$sel:artifacts:ListTestGridSessionArtifactsResponse' :: ListTestGridSessionArtifactsResponse
-> Maybe [TestGridSessionArtifact]
artifacts} -> Maybe [TestGridSessionArtifact]
artifacts) (\s :: ListTestGridSessionArtifactsResponse
s@ListTestGridSessionArtifactsResponse' {} Maybe [TestGridSessionArtifact]
a -> ListTestGridSessionArtifactsResponse
s {$sel:artifacts:ListTestGridSessionArtifactsResponse' :: Maybe [TestGridSessionArtifact]
artifacts = Maybe [TestGridSessionArtifact]
a} :: ListTestGridSessionArtifactsResponse) 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
listTestGridSessionArtifactsResponse_nextToken :: Lens.Lens' ListTestGridSessionArtifactsResponse (Prelude.Maybe Prelude.Text)
listTestGridSessionArtifactsResponse_nextToken :: Lens' ListTestGridSessionArtifactsResponse (Maybe Text)
listTestGridSessionArtifactsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTestGridSessionArtifactsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListTestGridSessionArtifactsResponse' :: ListTestGridSessionArtifactsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListTestGridSessionArtifactsResponse
s@ListTestGridSessionArtifactsResponse' {} Maybe Text
a -> ListTestGridSessionArtifactsResponse
s {$sel:nextToken:ListTestGridSessionArtifactsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListTestGridSessionArtifactsResponse)
listTestGridSessionArtifactsResponse_httpStatus :: Lens.Lens' ListTestGridSessionArtifactsResponse Prelude.Int
listTestGridSessionArtifactsResponse_httpStatus :: Lens' ListTestGridSessionArtifactsResponse Int
listTestGridSessionArtifactsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListTestGridSessionArtifactsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListTestGridSessionArtifactsResponse' :: ListTestGridSessionArtifactsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListTestGridSessionArtifactsResponse
s@ListTestGridSessionArtifactsResponse' {} Int
a -> ListTestGridSessionArtifactsResponse
s {$sel:httpStatus:ListTestGridSessionArtifactsResponse' :: Int
httpStatus = Int
a} :: ListTestGridSessionArtifactsResponse)
instance
Prelude.NFData
ListTestGridSessionArtifactsResponse
where
rnf :: ListTestGridSessionArtifactsResponse -> ()
rnf ListTestGridSessionArtifactsResponse' {Int
Maybe [TestGridSessionArtifact]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
artifacts :: Maybe [TestGridSessionArtifact]
$sel:httpStatus:ListTestGridSessionArtifactsResponse' :: ListTestGridSessionArtifactsResponse -> Int
$sel:nextToken:ListTestGridSessionArtifactsResponse' :: ListTestGridSessionArtifactsResponse -> Maybe Text
$sel:artifacts:ListTestGridSessionArtifactsResponse' :: ListTestGridSessionArtifactsResponse
-> Maybe [TestGridSessionArtifact]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [TestGridSessionArtifact]
artifacts
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