{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.IoTDeviceAdvisor.GetSuiteRun
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Gets information about a Device Advisor test suite run.
module Amazonka.IoTDeviceAdvisor.GetSuiteRun
  ( -- * Creating a Request
    GetSuiteRun (..),
    newGetSuiteRun,

    -- * Request Lenses
    getSuiteRun_suiteDefinitionId,
    getSuiteRun_suiteRunId,

    -- * Destructuring the Response
    GetSuiteRunResponse (..),
    newGetSuiteRunResponse,

    -- * Response Lenses
    getSuiteRunResponse_status,
    getSuiteRunResponse_suiteRunConfiguration,
    getSuiteRunResponse_startTime,
    getSuiteRunResponse_suiteDefinitionId,
    getSuiteRunResponse_suiteDefinitionVersion,
    getSuiteRunResponse_errorReason,
    getSuiteRunResponse_testResult,
    getSuiteRunResponse_endTime,
    getSuiteRunResponse_suiteRunArn,
    getSuiteRunResponse_suiteRunId,
    getSuiteRunResponse_tags,
    getSuiteRunResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import Amazonka.IoTDeviceAdvisor.Types
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newGetSuiteRun' smart constructor.
data GetSuiteRun = GetSuiteRun'
  { -- | Suite definition Id for the test suite run.
    GetSuiteRun -> Text
suiteDefinitionId :: Prelude.Text,
    -- | Suite run Id for the test suite run.
    GetSuiteRun -> Text
suiteRunId :: Prelude.Text
  }
  deriving (GetSuiteRun -> GetSuiteRun -> Bool
(GetSuiteRun -> GetSuiteRun -> Bool)
-> (GetSuiteRun -> GetSuiteRun -> Bool) -> Eq GetSuiteRun
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSuiteRun -> GetSuiteRun -> Bool
$c/= :: GetSuiteRun -> GetSuiteRun -> Bool
== :: GetSuiteRun -> GetSuiteRun -> Bool
$c== :: GetSuiteRun -> GetSuiteRun -> Bool
Prelude.Eq, ReadPrec [GetSuiteRun]
ReadPrec GetSuiteRun
Int -> ReadS GetSuiteRun
ReadS [GetSuiteRun]
(Int -> ReadS GetSuiteRun)
-> ReadS [GetSuiteRun]
-> ReadPrec GetSuiteRun
-> ReadPrec [GetSuiteRun]
-> Read GetSuiteRun
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSuiteRun]
$creadListPrec :: ReadPrec [GetSuiteRun]
readPrec :: ReadPrec GetSuiteRun
$creadPrec :: ReadPrec GetSuiteRun
readList :: ReadS [GetSuiteRun]
$creadList :: ReadS [GetSuiteRun]
readsPrec :: Int -> ReadS GetSuiteRun
$creadsPrec :: Int -> ReadS GetSuiteRun
Prelude.Read, Int -> GetSuiteRun -> ShowS
[GetSuiteRun] -> ShowS
GetSuiteRun -> String
(Int -> GetSuiteRun -> ShowS)
-> (GetSuiteRun -> String)
-> ([GetSuiteRun] -> ShowS)
-> Show GetSuiteRun
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSuiteRun] -> ShowS
$cshowList :: [GetSuiteRun] -> ShowS
show :: GetSuiteRun -> String
$cshow :: GetSuiteRun -> String
showsPrec :: Int -> GetSuiteRun -> ShowS
$cshowsPrec :: Int -> GetSuiteRun -> ShowS
Prelude.Show, (forall x. GetSuiteRun -> Rep GetSuiteRun x)
-> (forall x. Rep GetSuiteRun x -> GetSuiteRun)
-> Generic GetSuiteRun
forall x. Rep GetSuiteRun x -> GetSuiteRun
forall x. GetSuiteRun -> Rep GetSuiteRun x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetSuiteRun x -> GetSuiteRun
$cfrom :: forall x. GetSuiteRun -> Rep GetSuiteRun x
Prelude.Generic)

-- |
-- Create a value of 'GetSuiteRun' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'suiteDefinitionId', 'getSuiteRun_suiteDefinitionId' - Suite definition Id for the test suite run.
--
-- 'suiteRunId', 'getSuiteRun_suiteRunId' - Suite run Id for the test suite run.
newGetSuiteRun ::
  -- | 'suiteDefinitionId'
  Prelude.Text ->
  -- | 'suiteRunId'
  Prelude.Text ->
  GetSuiteRun
newGetSuiteRun :: Text -> Text -> GetSuiteRun
newGetSuiteRun Text
pSuiteDefinitionId_ Text
pSuiteRunId_ =
  GetSuiteRun' :: Text -> Text -> GetSuiteRun
GetSuiteRun'
    { $sel:suiteDefinitionId:GetSuiteRun' :: Text
suiteDefinitionId =
        Text
pSuiteDefinitionId_,
      $sel:suiteRunId:GetSuiteRun' :: Text
suiteRunId = Text
pSuiteRunId_
    }

-- | Suite definition Id for the test suite run.
getSuiteRun_suiteDefinitionId :: Lens.Lens' GetSuiteRun Prelude.Text
getSuiteRun_suiteDefinitionId :: (Text -> f Text) -> GetSuiteRun -> f GetSuiteRun
getSuiteRun_suiteDefinitionId = (GetSuiteRun -> Text)
-> (GetSuiteRun -> Text -> GetSuiteRun)
-> Lens GetSuiteRun GetSuiteRun Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteRun' {Text
suiteDefinitionId :: Text
$sel:suiteDefinitionId:GetSuiteRun' :: GetSuiteRun -> Text
suiteDefinitionId} -> Text
suiteDefinitionId) (\s :: GetSuiteRun
s@GetSuiteRun' {} Text
a -> GetSuiteRun
s {$sel:suiteDefinitionId:GetSuiteRun' :: Text
suiteDefinitionId = Text
a} :: GetSuiteRun)

-- | Suite run Id for the test suite run.
getSuiteRun_suiteRunId :: Lens.Lens' GetSuiteRun Prelude.Text
getSuiteRun_suiteRunId :: (Text -> f Text) -> GetSuiteRun -> f GetSuiteRun
getSuiteRun_suiteRunId = (GetSuiteRun -> Text)
-> (GetSuiteRun -> Text -> GetSuiteRun)
-> Lens GetSuiteRun GetSuiteRun Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteRun' {Text
suiteRunId :: Text
$sel:suiteRunId:GetSuiteRun' :: GetSuiteRun -> Text
suiteRunId} -> Text
suiteRunId) (\s :: GetSuiteRun
s@GetSuiteRun' {} Text
a -> GetSuiteRun
s {$sel:suiteRunId:GetSuiteRun' :: Text
suiteRunId = Text
a} :: GetSuiteRun)

instance Core.AWSRequest GetSuiteRun where
  type AWSResponse GetSuiteRun = GetSuiteRunResponse
  request :: GetSuiteRun -> Request GetSuiteRun
request = Service -> GetSuiteRun -> Request GetSuiteRun
forall a. ToRequest a => Service -> a -> Request a
Request.get Service
defaultService
  response :: Logger
-> Service
-> Proxy GetSuiteRun
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetSuiteRun)))
response =
    (Int
 -> ResponseHeaders
 -> Object
 -> Either String (AWSResponse GetSuiteRun))
-> Logger
-> Service
-> Proxy GetSuiteRun
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetSuiteRun)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
      ( \Int
s ResponseHeaders
h Object
x ->
          Maybe SuiteRunStatus
-> Maybe SuiteRunConfiguration
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe TestResult
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe (HashMap Text Text)
-> Int
-> GetSuiteRunResponse
GetSuiteRunResponse'
            (Maybe SuiteRunStatus
 -> Maybe SuiteRunConfiguration
 -> Maybe POSIX
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe TestResult
 -> Maybe POSIX
 -> Maybe Text
 -> Maybe Text
 -> Maybe (HashMap Text Text)
 -> Int
 -> GetSuiteRunResponse)
-> Either String (Maybe SuiteRunStatus)
-> Either
     String
     (Maybe SuiteRunConfiguration
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe TestResult
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSuiteRunResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Either String (Maybe SuiteRunStatus)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"status")
            Either
  String
  (Maybe SuiteRunConfiguration
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe TestResult
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSuiteRunResponse)
-> Either String (Maybe SuiteRunConfiguration)
-> Either
     String
     (Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe TestResult
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSuiteRunResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe SuiteRunConfiguration)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"suiteRunConfiguration")
            Either
  String
  (Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe TestResult
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSuiteRunResponse)
-> Either String (Maybe POSIX)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe TestResult
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSuiteRunResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"startTime")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe TestResult
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSuiteRunResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe TestResult
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSuiteRunResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"suiteDefinitionId")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe TestResult
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSuiteRunResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe TestResult
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSuiteRunResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"suiteDefinitionVersion")
            Either
  String
  (Maybe Text
   -> Maybe TestResult
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSuiteRunResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe TestResult
      -> Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSuiteRunResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"errorReason")
            Either
  String
  (Maybe TestResult
   -> Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSuiteRunResponse)
-> Either String (Maybe TestResult)
-> Either
     String
     (Maybe POSIX
      -> Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSuiteRunResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe TestResult)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"testResult")
            Either
  String
  (Maybe POSIX
   -> Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSuiteRunResponse)
-> Either String (Maybe POSIX)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Int
      -> GetSuiteRunResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe POSIX)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"endTime")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Int
   -> GetSuiteRunResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe (HashMap Text Text) -> Int -> GetSuiteRunResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"suiteRunArn")
            Either
  String
  (Maybe Text
   -> Maybe (HashMap Text Text) -> Int -> GetSuiteRunResponse)
-> Either String (Maybe Text)
-> Either
     String (Maybe (HashMap Text Text) -> Int -> GetSuiteRunResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"suiteRunId")
            Either
  String (Maybe (HashMap Text Text) -> Int -> GetSuiteRunResponse)
-> Either String (Maybe (HashMap Text Text))
-> Either String (Int -> GetSuiteRunResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe (Maybe (HashMap Text Text)))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"tags" Either String (Maybe (Maybe (HashMap Text Text)))
-> Maybe (HashMap Text Text)
-> Either String (Maybe (HashMap Text Text))
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe (HashMap Text Text)
forall a. Monoid a => a
Prelude.mempty)
            Either String (Int -> GetSuiteRunResponse)
-> Either String Int -> Either String GetSuiteRunResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable GetSuiteRun

instance Prelude.NFData GetSuiteRun

instance Core.ToHeaders GetSuiteRun where
  toHeaders :: GetSuiteRun -> ResponseHeaders
toHeaders =
    ResponseHeaders -> GetSuiteRun -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const
      ( [ResponseHeaders] -> ResponseHeaders
forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"Content-Type"
              HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Core.ToPath GetSuiteRun where
  toPath :: GetSuiteRun -> ByteString
toPath GetSuiteRun' {Text
suiteRunId :: Text
suiteDefinitionId :: Text
$sel:suiteRunId:GetSuiteRun' :: GetSuiteRun -> Text
$sel:suiteDefinitionId:GetSuiteRun' :: GetSuiteRun -> Text
..} =
    [ByteString] -> ByteString
forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ ByteString
"/suiteDefinitions/",
        Text -> ByteString
forall a. ToByteString a => a -> ByteString
Core.toBS Text
suiteDefinitionId,
        ByteString
"/suiteRuns/",
        Text -> ByteString
forall a. ToByteString a => a -> ByteString
Core.toBS Text
suiteRunId
      ]

instance Core.ToQuery GetSuiteRun where
  toQuery :: GetSuiteRun -> QueryString
toQuery = QueryString -> GetSuiteRun -> QueryString
forall a b. a -> b -> a
Prelude.const QueryString
forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newGetSuiteRunResponse' smart constructor.
data GetSuiteRunResponse = GetSuiteRunResponse'
  { -- | Status for the test suite run.
    GetSuiteRunResponse -> Maybe SuiteRunStatus
status :: Prelude.Maybe SuiteRunStatus,
    -- | Suite run configuration for the test suite run.
    GetSuiteRunResponse -> Maybe SuiteRunConfiguration
suiteRunConfiguration :: Prelude.Maybe SuiteRunConfiguration,
    -- | Date (in Unix epoch time) when the test suite run was started.
    GetSuiteRunResponse -> Maybe POSIX
startTime :: Prelude.Maybe Core.POSIX,
    -- | Suite definition Id for the test suite run.
    GetSuiteRunResponse -> Maybe Text
suiteDefinitionId :: Prelude.Maybe Prelude.Text,
    -- | Suite definition version for the test suite run.
    GetSuiteRunResponse -> Maybe Text
suiteDefinitionVersion :: Prelude.Maybe Prelude.Text,
    -- | Error reason for any test suite run failure.
    GetSuiteRunResponse -> Maybe Text
errorReason :: Prelude.Maybe Prelude.Text,
    -- | Test results for the test suite run.
    GetSuiteRunResponse -> Maybe TestResult
testResult :: Prelude.Maybe TestResult,
    -- | Date (in Unix epoch time) when the test suite run ended.
    GetSuiteRunResponse -> Maybe POSIX
endTime :: Prelude.Maybe Core.POSIX,
    -- | The ARN of the suite run.
    GetSuiteRunResponse -> Maybe Text
suiteRunArn :: Prelude.Maybe Prelude.Text,
    -- | Suite run Id for the test suite run.
    GetSuiteRunResponse -> Maybe Text
suiteRunId :: Prelude.Maybe Prelude.Text,
    -- | The tags attached to the suite run.
    GetSuiteRunResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | The response's http status code.
    GetSuiteRunResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (GetSuiteRunResponse -> GetSuiteRunResponse -> Bool
(GetSuiteRunResponse -> GetSuiteRunResponse -> Bool)
-> (GetSuiteRunResponse -> GetSuiteRunResponse -> Bool)
-> Eq GetSuiteRunResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetSuiteRunResponse -> GetSuiteRunResponse -> Bool
$c/= :: GetSuiteRunResponse -> GetSuiteRunResponse -> Bool
== :: GetSuiteRunResponse -> GetSuiteRunResponse -> Bool
$c== :: GetSuiteRunResponse -> GetSuiteRunResponse -> Bool
Prelude.Eq, ReadPrec [GetSuiteRunResponse]
ReadPrec GetSuiteRunResponse
Int -> ReadS GetSuiteRunResponse
ReadS [GetSuiteRunResponse]
(Int -> ReadS GetSuiteRunResponse)
-> ReadS [GetSuiteRunResponse]
-> ReadPrec GetSuiteRunResponse
-> ReadPrec [GetSuiteRunResponse]
-> Read GetSuiteRunResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetSuiteRunResponse]
$creadListPrec :: ReadPrec [GetSuiteRunResponse]
readPrec :: ReadPrec GetSuiteRunResponse
$creadPrec :: ReadPrec GetSuiteRunResponse
readList :: ReadS [GetSuiteRunResponse]
$creadList :: ReadS [GetSuiteRunResponse]
readsPrec :: Int -> ReadS GetSuiteRunResponse
$creadsPrec :: Int -> ReadS GetSuiteRunResponse
Prelude.Read, Int -> GetSuiteRunResponse -> ShowS
[GetSuiteRunResponse] -> ShowS
GetSuiteRunResponse -> String
(Int -> GetSuiteRunResponse -> ShowS)
-> (GetSuiteRunResponse -> String)
-> ([GetSuiteRunResponse] -> ShowS)
-> Show GetSuiteRunResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetSuiteRunResponse] -> ShowS
$cshowList :: [GetSuiteRunResponse] -> ShowS
show :: GetSuiteRunResponse -> String
$cshow :: GetSuiteRunResponse -> String
showsPrec :: Int -> GetSuiteRunResponse -> ShowS
$cshowsPrec :: Int -> GetSuiteRunResponse -> ShowS
Prelude.Show, (forall x. GetSuiteRunResponse -> Rep GetSuiteRunResponse x)
-> (forall x. Rep GetSuiteRunResponse x -> GetSuiteRunResponse)
-> Generic GetSuiteRunResponse
forall x. Rep GetSuiteRunResponse x -> GetSuiteRunResponse
forall x. GetSuiteRunResponse -> Rep GetSuiteRunResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetSuiteRunResponse x -> GetSuiteRunResponse
$cfrom :: forall x. GetSuiteRunResponse -> Rep GetSuiteRunResponse x
Prelude.Generic)

-- |
-- Create a value of 'GetSuiteRunResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'status', 'getSuiteRunResponse_status' - Status for the test suite run.
--
-- 'suiteRunConfiguration', 'getSuiteRunResponse_suiteRunConfiguration' - Suite run configuration for the test suite run.
--
-- 'startTime', 'getSuiteRunResponse_startTime' - Date (in Unix epoch time) when the test suite run was started.
--
-- 'suiteDefinitionId', 'getSuiteRunResponse_suiteDefinitionId' - Suite definition Id for the test suite run.
--
-- 'suiteDefinitionVersion', 'getSuiteRunResponse_suiteDefinitionVersion' - Suite definition version for the test suite run.
--
-- 'errorReason', 'getSuiteRunResponse_errorReason' - Error reason for any test suite run failure.
--
-- 'testResult', 'getSuiteRunResponse_testResult' - Test results for the test suite run.
--
-- 'endTime', 'getSuiteRunResponse_endTime' - Date (in Unix epoch time) when the test suite run ended.
--
-- 'suiteRunArn', 'getSuiteRunResponse_suiteRunArn' - The ARN of the suite run.
--
-- 'suiteRunId', 'getSuiteRunResponse_suiteRunId' - Suite run Id for the test suite run.
--
-- 'tags', 'getSuiteRunResponse_tags' - The tags attached to the suite run.
--
-- 'httpStatus', 'getSuiteRunResponse_httpStatus' - The response's http status code.
newGetSuiteRunResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  GetSuiteRunResponse
newGetSuiteRunResponse :: Int -> GetSuiteRunResponse
newGetSuiteRunResponse Int
pHttpStatus_ =
  GetSuiteRunResponse' :: Maybe SuiteRunStatus
-> Maybe SuiteRunConfiguration
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe TestResult
-> Maybe POSIX
-> Maybe Text
-> Maybe Text
-> Maybe (HashMap Text Text)
-> Int
-> GetSuiteRunResponse
GetSuiteRunResponse'
    { $sel:status:GetSuiteRunResponse' :: Maybe SuiteRunStatus
status = Maybe SuiteRunStatus
forall a. Maybe a
Prelude.Nothing,
      $sel:suiteRunConfiguration:GetSuiteRunResponse' :: Maybe SuiteRunConfiguration
suiteRunConfiguration = Maybe SuiteRunConfiguration
forall a. Maybe a
Prelude.Nothing,
      $sel:startTime:GetSuiteRunResponse' :: Maybe POSIX
startTime = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
      $sel:suiteDefinitionId:GetSuiteRunResponse' :: Maybe Text
suiteDefinitionId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:suiteDefinitionVersion:GetSuiteRunResponse' :: Maybe Text
suiteDefinitionVersion = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:errorReason:GetSuiteRunResponse' :: Maybe Text
errorReason = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:testResult:GetSuiteRunResponse' :: Maybe TestResult
testResult = Maybe TestResult
forall a. Maybe a
Prelude.Nothing,
      $sel:endTime:GetSuiteRunResponse' :: Maybe POSIX
endTime = Maybe POSIX
forall a. Maybe a
Prelude.Nothing,
      $sel:suiteRunArn:GetSuiteRunResponse' :: Maybe Text
suiteRunArn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:suiteRunId:GetSuiteRunResponse' :: Maybe Text
suiteRunId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:tags:GetSuiteRunResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:GetSuiteRunResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | Status for the test suite run.
getSuiteRunResponse_status :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe SuiteRunStatus)
getSuiteRunResponse_status :: (Maybe SuiteRunStatus -> f (Maybe SuiteRunStatus))
-> GetSuiteRunResponse -> f GetSuiteRunResponse
getSuiteRunResponse_status = (GetSuiteRunResponse -> Maybe SuiteRunStatus)
-> (GetSuiteRunResponse
    -> Maybe SuiteRunStatus -> GetSuiteRunResponse)
-> Lens
     GetSuiteRunResponse
     GetSuiteRunResponse
     (Maybe SuiteRunStatus)
     (Maybe SuiteRunStatus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteRunResponse' {Maybe SuiteRunStatus
status :: Maybe SuiteRunStatus
$sel:status:GetSuiteRunResponse' :: GetSuiteRunResponse -> Maybe SuiteRunStatus
status} -> Maybe SuiteRunStatus
status) (\s :: GetSuiteRunResponse
s@GetSuiteRunResponse' {} Maybe SuiteRunStatus
a -> GetSuiteRunResponse
s {$sel:status:GetSuiteRunResponse' :: Maybe SuiteRunStatus
status = Maybe SuiteRunStatus
a} :: GetSuiteRunResponse)

-- | Suite run configuration for the test suite run.
getSuiteRunResponse_suiteRunConfiguration :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe SuiteRunConfiguration)
getSuiteRunResponse_suiteRunConfiguration :: (Maybe SuiteRunConfiguration -> f (Maybe SuiteRunConfiguration))
-> GetSuiteRunResponse -> f GetSuiteRunResponse
getSuiteRunResponse_suiteRunConfiguration = (GetSuiteRunResponse -> Maybe SuiteRunConfiguration)
-> (GetSuiteRunResponse
    -> Maybe SuiteRunConfiguration -> GetSuiteRunResponse)
-> Lens
     GetSuiteRunResponse
     GetSuiteRunResponse
     (Maybe SuiteRunConfiguration)
     (Maybe SuiteRunConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteRunResponse' {Maybe SuiteRunConfiguration
suiteRunConfiguration :: Maybe SuiteRunConfiguration
$sel:suiteRunConfiguration:GetSuiteRunResponse' :: GetSuiteRunResponse -> Maybe SuiteRunConfiguration
suiteRunConfiguration} -> Maybe SuiteRunConfiguration
suiteRunConfiguration) (\s :: GetSuiteRunResponse
s@GetSuiteRunResponse' {} Maybe SuiteRunConfiguration
a -> GetSuiteRunResponse
s {$sel:suiteRunConfiguration:GetSuiteRunResponse' :: Maybe SuiteRunConfiguration
suiteRunConfiguration = Maybe SuiteRunConfiguration
a} :: GetSuiteRunResponse)

-- | Date (in Unix epoch time) when the test suite run was started.
getSuiteRunResponse_startTime :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.UTCTime)
getSuiteRunResponse_startTime :: (Maybe UTCTime -> f (Maybe UTCTime))
-> GetSuiteRunResponse -> f GetSuiteRunResponse
getSuiteRunResponse_startTime = (GetSuiteRunResponse -> Maybe POSIX)
-> (GetSuiteRunResponse -> Maybe POSIX -> GetSuiteRunResponse)
-> Lens
     GetSuiteRunResponse GetSuiteRunResponse (Maybe POSIX) (Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteRunResponse' {Maybe POSIX
startTime :: Maybe POSIX
$sel:startTime:GetSuiteRunResponse' :: GetSuiteRunResponse -> Maybe POSIX
startTime} -> Maybe POSIX
startTime) (\s :: GetSuiteRunResponse
s@GetSuiteRunResponse' {} Maybe POSIX
a -> GetSuiteRunResponse
s {$sel:startTime:GetSuiteRunResponse' :: Maybe POSIX
startTime = Maybe POSIX
a} :: GetSuiteRunResponse) ((Maybe POSIX -> f (Maybe POSIX))
 -> GetSuiteRunResponse -> f GetSuiteRunResponse)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
    -> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> GetSuiteRunResponse
-> f GetSuiteRunResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
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 AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time

-- | Suite definition Id for the test suite run.
getSuiteRunResponse_suiteDefinitionId :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text)
getSuiteRunResponse_suiteDefinitionId :: (Maybe Text -> f (Maybe Text))
-> GetSuiteRunResponse -> f GetSuiteRunResponse
getSuiteRunResponse_suiteDefinitionId = (GetSuiteRunResponse -> Maybe Text)
-> (GetSuiteRunResponse -> Maybe Text -> GetSuiteRunResponse)
-> Lens
     GetSuiteRunResponse GetSuiteRunResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteRunResponse' {Maybe Text
suiteDefinitionId :: Maybe Text
$sel:suiteDefinitionId:GetSuiteRunResponse' :: GetSuiteRunResponse -> Maybe Text
suiteDefinitionId} -> Maybe Text
suiteDefinitionId) (\s :: GetSuiteRunResponse
s@GetSuiteRunResponse' {} Maybe Text
a -> GetSuiteRunResponse
s {$sel:suiteDefinitionId:GetSuiteRunResponse' :: Maybe Text
suiteDefinitionId = Maybe Text
a} :: GetSuiteRunResponse)

-- | Suite definition version for the test suite run.
getSuiteRunResponse_suiteDefinitionVersion :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text)
getSuiteRunResponse_suiteDefinitionVersion :: (Maybe Text -> f (Maybe Text))
-> GetSuiteRunResponse -> f GetSuiteRunResponse
getSuiteRunResponse_suiteDefinitionVersion = (GetSuiteRunResponse -> Maybe Text)
-> (GetSuiteRunResponse -> Maybe Text -> GetSuiteRunResponse)
-> Lens
     GetSuiteRunResponse GetSuiteRunResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteRunResponse' {Maybe Text
suiteDefinitionVersion :: Maybe Text
$sel:suiteDefinitionVersion:GetSuiteRunResponse' :: GetSuiteRunResponse -> Maybe Text
suiteDefinitionVersion} -> Maybe Text
suiteDefinitionVersion) (\s :: GetSuiteRunResponse
s@GetSuiteRunResponse' {} Maybe Text
a -> GetSuiteRunResponse
s {$sel:suiteDefinitionVersion:GetSuiteRunResponse' :: Maybe Text
suiteDefinitionVersion = Maybe Text
a} :: GetSuiteRunResponse)

-- | Error reason for any test suite run failure.
getSuiteRunResponse_errorReason :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text)
getSuiteRunResponse_errorReason :: (Maybe Text -> f (Maybe Text))
-> GetSuiteRunResponse -> f GetSuiteRunResponse
getSuiteRunResponse_errorReason = (GetSuiteRunResponse -> Maybe Text)
-> (GetSuiteRunResponse -> Maybe Text -> GetSuiteRunResponse)
-> Lens
     GetSuiteRunResponse GetSuiteRunResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteRunResponse' {Maybe Text
errorReason :: Maybe Text
$sel:errorReason:GetSuiteRunResponse' :: GetSuiteRunResponse -> Maybe Text
errorReason} -> Maybe Text
errorReason) (\s :: GetSuiteRunResponse
s@GetSuiteRunResponse' {} Maybe Text
a -> GetSuiteRunResponse
s {$sel:errorReason:GetSuiteRunResponse' :: Maybe Text
errorReason = Maybe Text
a} :: GetSuiteRunResponse)

-- | Test results for the test suite run.
getSuiteRunResponse_testResult :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe TestResult)
getSuiteRunResponse_testResult :: (Maybe TestResult -> f (Maybe TestResult))
-> GetSuiteRunResponse -> f GetSuiteRunResponse
getSuiteRunResponse_testResult = (GetSuiteRunResponse -> Maybe TestResult)
-> (GetSuiteRunResponse -> Maybe TestResult -> GetSuiteRunResponse)
-> Lens
     GetSuiteRunResponse
     GetSuiteRunResponse
     (Maybe TestResult)
     (Maybe TestResult)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteRunResponse' {Maybe TestResult
testResult :: Maybe TestResult
$sel:testResult:GetSuiteRunResponse' :: GetSuiteRunResponse -> Maybe TestResult
testResult} -> Maybe TestResult
testResult) (\s :: GetSuiteRunResponse
s@GetSuiteRunResponse' {} Maybe TestResult
a -> GetSuiteRunResponse
s {$sel:testResult:GetSuiteRunResponse' :: Maybe TestResult
testResult = Maybe TestResult
a} :: GetSuiteRunResponse)

-- | Date (in Unix epoch time) when the test suite run ended.
getSuiteRunResponse_endTime :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.UTCTime)
getSuiteRunResponse_endTime :: (Maybe UTCTime -> f (Maybe UTCTime))
-> GetSuiteRunResponse -> f GetSuiteRunResponse
getSuiteRunResponse_endTime = (GetSuiteRunResponse -> Maybe POSIX)
-> (GetSuiteRunResponse -> Maybe POSIX -> GetSuiteRunResponse)
-> Lens
     GetSuiteRunResponse GetSuiteRunResponse (Maybe POSIX) (Maybe POSIX)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteRunResponse' {Maybe POSIX
endTime :: Maybe POSIX
$sel:endTime:GetSuiteRunResponse' :: GetSuiteRunResponse -> Maybe POSIX
endTime} -> Maybe POSIX
endTime) (\s :: GetSuiteRunResponse
s@GetSuiteRunResponse' {} Maybe POSIX
a -> GetSuiteRunResponse
s {$sel:endTime:GetSuiteRunResponse' :: Maybe POSIX
endTime = Maybe POSIX
a} :: GetSuiteRunResponse) ((Maybe POSIX -> f (Maybe POSIX))
 -> GetSuiteRunResponse -> f GetSuiteRunResponse)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
    -> Maybe POSIX -> f (Maybe POSIX))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> GetSuiteRunResponse
-> f GetSuiteRunResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso POSIX POSIX UTCTime UTCTime
-> Iso (Maybe POSIX) (Maybe POSIX) (Maybe UTCTime) (Maybe UTCTime)
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 AnIso POSIX POSIX UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time

-- | The ARN of the suite run.
getSuiteRunResponse_suiteRunArn :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text)
getSuiteRunResponse_suiteRunArn :: (Maybe Text -> f (Maybe Text))
-> GetSuiteRunResponse -> f GetSuiteRunResponse
getSuiteRunResponse_suiteRunArn = (GetSuiteRunResponse -> Maybe Text)
-> (GetSuiteRunResponse -> Maybe Text -> GetSuiteRunResponse)
-> Lens
     GetSuiteRunResponse GetSuiteRunResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteRunResponse' {Maybe Text
suiteRunArn :: Maybe Text
$sel:suiteRunArn:GetSuiteRunResponse' :: GetSuiteRunResponse -> Maybe Text
suiteRunArn} -> Maybe Text
suiteRunArn) (\s :: GetSuiteRunResponse
s@GetSuiteRunResponse' {} Maybe Text
a -> GetSuiteRunResponse
s {$sel:suiteRunArn:GetSuiteRunResponse' :: Maybe Text
suiteRunArn = Maybe Text
a} :: GetSuiteRunResponse)

-- | Suite run Id for the test suite run.
getSuiteRunResponse_suiteRunId :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe Prelude.Text)
getSuiteRunResponse_suiteRunId :: (Maybe Text -> f (Maybe Text))
-> GetSuiteRunResponse -> f GetSuiteRunResponse
getSuiteRunResponse_suiteRunId = (GetSuiteRunResponse -> Maybe Text)
-> (GetSuiteRunResponse -> Maybe Text -> GetSuiteRunResponse)
-> Lens
     GetSuiteRunResponse GetSuiteRunResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteRunResponse' {Maybe Text
suiteRunId :: Maybe Text
$sel:suiteRunId:GetSuiteRunResponse' :: GetSuiteRunResponse -> Maybe Text
suiteRunId} -> Maybe Text
suiteRunId) (\s :: GetSuiteRunResponse
s@GetSuiteRunResponse' {} Maybe Text
a -> GetSuiteRunResponse
s {$sel:suiteRunId:GetSuiteRunResponse' :: Maybe Text
suiteRunId = Maybe Text
a} :: GetSuiteRunResponse)

-- | The tags attached to the suite run.
getSuiteRunResponse_tags :: Lens.Lens' GetSuiteRunResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
getSuiteRunResponse_tags :: (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> GetSuiteRunResponse -> f GetSuiteRunResponse
getSuiteRunResponse_tags = (GetSuiteRunResponse -> Maybe (HashMap Text Text))
-> (GetSuiteRunResponse
    -> Maybe (HashMap Text Text) -> GetSuiteRunResponse)
-> Lens
     GetSuiteRunResponse
     GetSuiteRunResponse
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteRunResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:GetSuiteRunResponse' :: GetSuiteRunResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: GetSuiteRunResponse
s@GetSuiteRunResponse' {} Maybe (HashMap Text Text)
a -> GetSuiteRunResponse
s {$sel:tags:GetSuiteRunResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: GetSuiteRunResponse) ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
 -> GetSuiteRunResponse -> f GetSuiteRunResponse)
-> ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
    -> Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> GetSuiteRunResponse
-> f GetSuiteRunResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
-> Iso
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
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 AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The response's http status code.
getSuiteRunResponse_httpStatus :: Lens.Lens' GetSuiteRunResponse Prelude.Int
getSuiteRunResponse_httpStatus :: (Int -> f Int) -> GetSuiteRunResponse -> f GetSuiteRunResponse
getSuiteRunResponse_httpStatus = (GetSuiteRunResponse -> Int)
-> (GetSuiteRunResponse -> Int -> GetSuiteRunResponse)
-> Lens GetSuiteRunResponse GetSuiteRunResponse Int Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetSuiteRunResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetSuiteRunResponse' :: GetSuiteRunResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetSuiteRunResponse
s@GetSuiteRunResponse' {} Int
a -> GetSuiteRunResponse
s {$sel:httpStatus:GetSuiteRunResponse' :: Int
httpStatus = Int
a} :: GetSuiteRunResponse)

instance Prelude.NFData GetSuiteRunResponse