{-# 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.ImportExport.GetStatus
-- 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)
--
-- This operation returns information about a job, including where the job
-- is in the processing pipeline, the status of the results, and the
-- signature value associated with the job. You can only return information
-- about jobs you own.
module Amazonka.ImportExport.GetStatus
  ( -- * Creating a Request
    GetStatus (..),
    newGetStatus,

    -- * Request Lenses
    getStatus_aPIVersion,
    getStatus_jobId,

    -- * Destructuring the Response
    GetStatusResponse (..),
    newGetStatusResponse,

    -- * Response Lenses
    getStatusResponse_carrier,
    getStatusResponse_trackingNumber,
    getStatusResponse_signature,
    getStatusResponse_jobType,
    getStatusResponse_jobId,
    getStatusResponse_signatureFileContents,
    getStatusResponse_errorCount,
    getStatusResponse_currentManifest,
    getStatusResponse_artifactList,
    getStatusResponse_logBucket,
    getStatusResponse_creationDate,
    getStatusResponse_progressCode,
    getStatusResponse_locationCode,
    getStatusResponse_logKey,
    getStatusResponse_locationMessage,
    getStatusResponse_progressMessage,
    getStatusResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import Amazonka.ImportExport.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

-- | Input structure for the GetStatus operation.
--
-- /See:/ 'newGetStatus' smart constructor.
data GetStatus = GetStatus'
  { GetStatus -> Maybe Text
aPIVersion :: Prelude.Maybe Prelude.Text,
    GetStatus -> Text
jobId :: Prelude.Text
  }
  deriving (GetStatus -> GetStatus -> Bool
(GetStatus -> GetStatus -> Bool)
-> (GetStatus -> GetStatus -> Bool) -> Eq GetStatus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetStatus -> GetStatus -> Bool
$c/= :: GetStatus -> GetStatus -> Bool
== :: GetStatus -> GetStatus -> Bool
$c== :: GetStatus -> GetStatus -> Bool
Prelude.Eq, ReadPrec [GetStatus]
ReadPrec GetStatus
Int -> ReadS GetStatus
ReadS [GetStatus]
(Int -> ReadS GetStatus)
-> ReadS [GetStatus]
-> ReadPrec GetStatus
-> ReadPrec [GetStatus]
-> Read GetStatus
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetStatus]
$creadListPrec :: ReadPrec [GetStatus]
readPrec :: ReadPrec GetStatus
$creadPrec :: ReadPrec GetStatus
readList :: ReadS [GetStatus]
$creadList :: ReadS [GetStatus]
readsPrec :: Int -> ReadS GetStatus
$creadsPrec :: Int -> ReadS GetStatus
Prelude.Read, Int -> GetStatus -> ShowS
[GetStatus] -> ShowS
GetStatus -> String
(Int -> GetStatus -> ShowS)
-> (GetStatus -> String)
-> ([GetStatus] -> ShowS)
-> Show GetStatus
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetStatus] -> ShowS
$cshowList :: [GetStatus] -> ShowS
show :: GetStatus -> String
$cshow :: GetStatus -> String
showsPrec :: Int -> GetStatus -> ShowS
$cshowsPrec :: Int -> GetStatus -> ShowS
Prelude.Show, (forall x. GetStatus -> Rep GetStatus x)
-> (forall x. Rep GetStatus x -> GetStatus) -> Generic GetStatus
forall x. Rep GetStatus x -> GetStatus
forall x. GetStatus -> Rep GetStatus x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetStatus x -> GetStatus
$cfrom :: forall x. GetStatus -> Rep GetStatus x
Prelude.Generic)

-- |
-- Create a value of 'GetStatus' 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:
--
-- 'aPIVersion', 'getStatus_aPIVersion' - Undocumented member.
--
-- 'jobId', 'getStatus_jobId' - Undocumented member.
newGetStatus ::
  -- | 'jobId'
  Prelude.Text ->
  GetStatus
newGetStatus :: Text -> GetStatus
newGetStatus Text
pJobId_ =
  GetStatus' :: Maybe Text -> Text -> GetStatus
GetStatus'
    { $sel:aPIVersion:GetStatus' :: Maybe Text
aPIVersion = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:jobId:GetStatus' :: Text
jobId = Text
pJobId_
    }

-- | Undocumented member.
getStatus_aPIVersion :: Lens.Lens' GetStatus (Prelude.Maybe Prelude.Text)
getStatus_aPIVersion :: (Maybe Text -> f (Maybe Text)) -> GetStatus -> f GetStatus
getStatus_aPIVersion = (GetStatus -> Maybe Text)
-> (GetStatus -> Maybe Text -> GetStatus)
-> Lens GetStatus GetStatus (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatus' {Maybe Text
aPIVersion :: Maybe Text
$sel:aPIVersion:GetStatus' :: GetStatus -> Maybe Text
aPIVersion} -> Maybe Text
aPIVersion) (\s :: GetStatus
s@GetStatus' {} Maybe Text
a -> GetStatus
s {$sel:aPIVersion:GetStatus' :: Maybe Text
aPIVersion = Maybe Text
a} :: GetStatus)

-- | Undocumented member.
getStatus_jobId :: Lens.Lens' GetStatus Prelude.Text
getStatus_jobId :: (Text -> f Text) -> GetStatus -> f GetStatus
getStatus_jobId = (GetStatus -> Text)
-> (GetStatus -> Text -> GetStatus)
-> Lens GetStatus GetStatus Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatus' {Text
jobId :: Text
$sel:jobId:GetStatus' :: GetStatus -> Text
jobId} -> Text
jobId) (\s :: GetStatus
s@GetStatus' {} Text
a -> GetStatus
s {$sel:jobId:GetStatus' :: Text
jobId = Text
a} :: GetStatus)

instance Core.AWSRequest GetStatus where
  type AWSResponse GetStatus = GetStatusResponse
  request :: GetStatus -> Request GetStatus
request = Service -> GetStatus -> Request GetStatus
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery Service
defaultService
  response :: Logger
-> Service
-> Proxy GetStatus
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetStatus)))
response =
    Text
-> (Int
    -> ResponseHeaders
    -> [Node]
    -> Either String (AWSResponse GetStatus))
-> Logger
-> Service
-> Proxy GetStatus
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse GetStatus)))
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
    -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
      Text
"GetStatusResult"
      ( \Int
s ResponseHeaders
h [Node]
x ->
          Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe JobType
-> Maybe Text
-> Maybe Text
-> Maybe Int
-> Maybe Text
-> Maybe [Artifact]
-> Maybe Text
-> Maybe ISO8601
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetStatusResponse
GetStatusResponse'
            (Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe JobType
 -> Maybe Text
 -> Maybe Text
 -> Maybe Int
 -> Maybe Text
 -> Maybe [Artifact]
 -> Maybe Text
 -> Maybe ISO8601
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Int
 -> GetStatusResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe JobType
      -> Maybe Text
      -> Maybe Text
      -> Maybe Int
      -> Maybe Text
      -> Maybe [Artifact]
      -> Maybe Text
      -> Maybe ISO8601
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Int
      -> GetStatusResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"Carrier")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe JobType
   -> Maybe Text
   -> Maybe Text
   -> Maybe Int
   -> Maybe Text
   -> Maybe [Artifact]
   -> Maybe Text
   -> Maybe ISO8601
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Int
   -> GetStatusResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe JobType
      -> Maybe Text
      -> Maybe Text
      -> Maybe Int
      -> Maybe Text
      -> Maybe [Artifact]
      -> Maybe Text
      -> Maybe ISO8601
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Int
      -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"TrackingNumber")
            Either
  String
  (Maybe Text
   -> Maybe JobType
   -> Maybe Text
   -> Maybe Text
   -> Maybe Int
   -> Maybe Text
   -> Maybe [Artifact]
   -> Maybe Text
   -> Maybe ISO8601
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Int
   -> GetStatusResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe JobType
      -> Maybe Text
      -> Maybe Text
      -> Maybe Int
      -> Maybe Text
      -> Maybe [Artifact]
      -> Maybe Text
      -> Maybe ISO8601
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Int
      -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"Signature")
            Either
  String
  (Maybe JobType
   -> Maybe Text
   -> Maybe Text
   -> Maybe Int
   -> Maybe Text
   -> Maybe [Artifact]
   -> Maybe Text
   -> Maybe ISO8601
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Int
   -> GetStatusResponse)
-> Either String (Maybe JobType)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe Int
      -> Maybe Text
      -> Maybe [Artifact]
      -> Maybe Text
      -> Maybe ISO8601
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Int
      -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe JobType)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"JobType")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe Int
   -> Maybe Text
   -> Maybe [Artifact]
   -> Maybe Text
   -> Maybe ISO8601
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Int
   -> GetStatusResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe Int
      -> Maybe Text
      -> Maybe [Artifact]
      -> Maybe Text
      -> Maybe ISO8601
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Int
      -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"JobId")
            Either
  String
  (Maybe Text
   -> Maybe Int
   -> Maybe Text
   -> Maybe [Artifact]
   -> Maybe Text
   -> Maybe ISO8601
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Int
   -> GetStatusResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Int
      -> Maybe Text
      -> Maybe [Artifact]
      -> Maybe Text
      -> Maybe ISO8601
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Int
      -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"SignatureFileContents")
            Either
  String
  (Maybe Int
   -> Maybe Text
   -> Maybe [Artifact]
   -> Maybe Text
   -> Maybe ISO8601
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Int
   -> GetStatusResponse)
-> Either String (Maybe Int)
-> Either
     String
     (Maybe Text
      -> Maybe [Artifact]
      -> Maybe Text
      -> Maybe ISO8601
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Int
      -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Int)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"ErrorCount")
            Either
  String
  (Maybe Text
   -> Maybe [Artifact]
   -> Maybe Text
   -> Maybe ISO8601
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Int
   -> GetStatusResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe [Artifact]
      -> Maybe Text
      -> Maybe ISO8601
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Int
      -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"CurrentManifest")
            Either
  String
  (Maybe [Artifact]
   -> Maybe Text
   -> Maybe ISO8601
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Int
   -> GetStatusResponse)
-> Either String (Maybe [Artifact])
-> Either
     String
     (Maybe Text
      -> Maybe ISO8601
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Int
      -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( [Node]
x [Node] -> Text -> Either String (Maybe [Node])
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"ArtifactList" Either String (Maybe [Node]) -> [Node] -> Either String [Node]
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ [Node]
forall a. Monoid a => a
Prelude.mempty
                            Either String [Node]
-> ([Node] -> Either String (Maybe [Artifact]))
-> Either String (Maybe [Artifact])
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= ([Node] -> Either String [Artifact])
-> [Node] -> Either String (Maybe [Artifact])
forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (Text -> [Node] -> Either String [Artifact]
forall a. FromXML a => Text -> [Node] -> Either String [a]
Core.parseXMLList Text
"member")
                        )
            Either
  String
  (Maybe Text
   -> Maybe ISO8601
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Int
   -> GetStatusResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe ISO8601
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Int
      -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"LogBucket")
            Either
  String
  (Maybe ISO8601
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Int
   -> GetStatusResponse)
-> Either String (Maybe ISO8601)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Int
      -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe ISO8601)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"CreationDate")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Int
   -> GetStatusResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Int
      -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"ProgressCode")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Int
   -> GetStatusResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe Text -> Maybe Text -> Int -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"LocationCode")
            Either
  String
  (Maybe Text
   -> Maybe Text -> Maybe Text -> Int -> GetStatusResponse)
-> Either String (Maybe Text)
-> Either
     String (Maybe Text -> Maybe Text -> Int -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"LogKey")
            Either
  String (Maybe Text -> Maybe Text -> Int -> GetStatusResponse)
-> Either String (Maybe Text)
-> Either String (Maybe Text -> Int -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"LocationMessage")
            Either String (Maybe Text -> Int -> GetStatusResponse)
-> Either String (Maybe Text)
-> Either String (Int -> GetStatusResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String (Maybe Text)
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Core..@? Text
"ProgressMessage")
            Either String (Int -> GetStatusResponse)
-> Either String Int -> Either String GetStatusResponse
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 GetStatus

instance Prelude.NFData GetStatus

instance Core.ToHeaders GetStatus where
  toHeaders :: GetStatus -> ResponseHeaders
toHeaders = ResponseHeaders -> GetStatus -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty

instance Core.ToPath GetStatus where
  toPath :: GetStatus -> ByteString
toPath = ByteString -> GetStatus -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance Core.ToQuery GetStatus where
  toQuery :: GetStatus -> QueryString
toQuery GetStatus' {Maybe Text
Text
jobId :: Text
aPIVersion :: Maybe Text
$sel:jobId:GetStatus' :: GetStatus -> Text
$sel:aPIVersion:GetStatus' :: GetStatus -> Maybe Text
..} =
    [QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ QueryString
"Operation=GetStatus",
        ByteString
"Action" ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: (ByteString
"GetStatus" :: Prelude.ByteString),
        ByteString
"Version"
          ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: (ByteString
"2010-06-01" :: Prelude.ByteString),
        ByteString
"APIVersion" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Maybe Text
aPIVersion,
        ByteString
"JobId" ByteString -> Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Core.=: Text
jobId
      ]

-- | Output structure for the GetStatus operation.
--
-- /See:/ 'newGetStatusResponse' smart constructor.
data GetStatusResponse = GetStatusResponse'
  { GetStatusResponse -> Maybe Text
carrier :: Prelude.Maybe Prelude.Text,
    GetStatusResponse -> Maybe Text
trackingNumber :: Prelude.Maybe Prelude.Text,
    GetStatusResponse -> Maybe Text
signature :: Prelude.Maybe Prelude.Text,
    GetStatusResponse -> Maybe JobType
jobType :: Prelude.Maybe JobType,
    GetStatusResponse -> Maybe Text
jobId :: Prelude.Maybe Prelude.Text,
    GetStatusResponse -> Maybe Text
signatureFileContents :: Prelude.Maybe Prelude.Text,
    GetStatusResponse -> Maybe Int
errorCount :: Prelude.Maybe Prelude.Int,
    GetStatusResponse -> Maybe Text
currentManifest :: Prelude.Maybe Prelude.Text,
    GetStatusResponse -> Maybe [Artifact]
artifactList :: Prelude.Maybe [Artifact],
    GetStatusResponse -> Maybe Text
logBucket :: Prelude.Maybe Prelude.Text,
    GetStatusResponse -> Maybe ISO8601
creationDate :: Prelude.Maybe Core.ISO8601,
    GetStatusResponse -> Maybe Text
progressCode :: Prelude.Maybe Prelude.Text,
    GetStatusResponse -> Maybe Text
locationCode :: Prelude.Maybe Prelude.Text,
    GetStatusResponse -> Maybe Text
logKey :: Prelude.Maybe Prelude.Text,
    GetStatusResponse -> Maybe Text
locationMessage :: Prelude.Maybe Prelude.Text,
    GetStatusResponse -> Maybe Text
progressMessage :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    GetStatusResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (GetStatusResponse -> GetStatusResponse -> Bool
(GetStatusResponse -> GetStatusResponse -> Bool)
-> (GetStatusResponse -> GetStatusResponse -> Bool)
-> Eq GetStatusResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetStatusResponse -> GetStatusResponse -> Bool
$c/= :: GetStatusResponse -> GetStatusResponse -> Bool
== :: GetStatusResponse -> GetStatusResponse -> Bool
$c== :: GetStatusResponse -> GetStatusResponse -> Bool
Prelude.Eq, ReadPrec [GetStatusResponse]
ReadPrec GetStatusResponse
Int -> ReadS GetStatusResponse
ReadS [GetStatusResponse]
(Int -> ReadS GetStatusResponse)
-> ReadS [GetStatusResponse]
-> ReadPrec GetStatusResponse
-> ReadPrec [GetStatusResponse]
-> Read GetStatusResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetStatusResponse]
$creadListPrec :: ReadPrec [GetStatusResponse]
readPrec :: ReadPrec GetStatusResponse
$creadPrec :: ReadPrec GetStatusResponse
readList :: ReadS [GetStatusResponse]
$creadList :: ReadS [GetStatusResponse]
readsPrec :: Int -> ReadS GetStatusResponse
$creadsPrec :: Int -> ReadS GetStatusResponse
Prelude.Read, Int -> GetStatusResponse -> ShowS
[GetStatusResponse] -> ShowS
GetStatusResponse -> String
(Int -> GetStatusResponse -> ShowS)
-> (GetStatusResponse -> String)
-> ([GetStatusResponse] -> ShowS)
-> Show GetStatusResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetStatusResponse] -> ShowS
$cshowList :: [GetStatusResponse] -> ShowS
show :: GetStatusResponse -> String
$cshow :: GetStatusResponse -> String
showsPrec :: Int -> GetStatusResponse -> ShowS
$cshowsPrec :: Int -> GetStatusResponse -> ShowS
Prelude.Show, (forall x. GetStatusResponse -> Rep GetStatusResponse x)
-> (forall x. Rep GetStatusResponse x -> GetStatusResponse)
-> Generic GetStatusResponse
forall x. Rep GetStatusResponse x -> GetStatusResponse
forall x. GetStatusResponse -> Rep GetStatusResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetStatusResponse x -> GetStatusResponse
$cfrom :: forall x. GetStatusResponse -> Rep GetStatusResponse x
Prelude.Generic)

-- |
-- Create a value of 'GetStatusResponse' 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:
--
-- 'carrier', 'getStatusResponse_carrier' - Undocumented member.
--
-- 'trackingNumber', 'getStatusResponse_trackingNumber' - Undocumented member.
--
-- 'signature', 'getStatusResponse_signature' - Undocumented member.
--
-- 'jobType', 'getStatusResponse_jobType' - Undocumented member.
--
-- 'jobId', 'getStatusResponse_jobId' - Undocumented member.
--
-- 'signatureFileContents', 'getStatusResponse_signatureFileContents' - Undocumented member.
--
-- 'errorCount', 'getStatusResponse_errorCount' - Undocumented member.
--
-- 'currentManifest', 'getStatusResponse_currentManifest' - Undocumented member.
--
-- 'artifactList', 'getStatusResponse_artifactList' - Undocumented member.
--
-- 'logBucket', 'getStatusResponse_logBucket' - Undocumented member.
--
-- 'creationDate', 'getStatusResponse_creationDate' - Undocumented member.
--
-- 'progressCode', 'getStatusResponse_progressCode' - Undocumented member.
--
-- 'locationCode', 'getStatusResponse_locationCode' - Undocumented member.
--
-- 'logKey', 'getStatusResponse_logKey' - Undocumented member.
--
-- 'locationMessage', 'getStatusResponse_locationMessage' - Undocumented member.
--
-- 'progressMessage', 'getStatusResponse_progressMessage' - Undocumented member.
--
-- 'httpStatus', 'getStatusResponse_httpStatus' - The response's http status code.
newGetStatusResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  GetStatusResponse
newGetStatusResponse :: Int -> GetStatusResponse
newGetStatusResponse Int
pHttpStatus_ =
  GetStatusResponse' :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe JobType
-> Maybe Text
-> Maybe Text
-> Maybe Int
-> Maybe Text
-> Maybe [Artifact]
-> Maybe Text
-> Maybe ISO8601
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetStatusResponse
GetStatusResponse'
    { $sel:carrier:GetStatusResponse' :: Maybe Text
carrier = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:trackingNumber:GetStatusResponse' :: Maybe Text
trackingNumber = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:signature:GetStatusResponse' :: Maybe Text
signature = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:jobType:GetStatusResponse' :: Maybe JobType
jobType = Maybe JobType
forall a. Maybe a
Prelude.Nothing,
      $sel:jobId:GetStatusResponse' :: Maybe Text
jobId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:signatureFileContents:GetStatusResponse' :: Maybe Text
signatureFileContents = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:errorCount:GetStatusResponse' :: Maybe Int
errorCount = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:currentManifest:GetStatusResponse' :: Maybe Text
currentManifest = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:artifactList:GetStatusResponse' :: Maybe [Artifact]
artifactList = Maybe [Artifact]
forall a. Maybe a
Prelude.Nothing,
      $sel:logBucket:GetStatusResponse' :: Maybe Text
logBucket = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:creationDate:GetStatusResponse' :: Maybe ISO8601
creationDate = Maybe ISO8601
forall a. Maybe a
Prelude.Nothing,
      $sel:progressCode:GetStatusResponse' :: Maybe Text
progressCode = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:locationCode:GetStatusResponse' :: Maybe Text
locationCode = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:logKey:GetStatusResponse' :: Maybe Text
logKey = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:locationMessage:GetStatusResponse' :: Maybe Text
locationMessage = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:progressMessage:GetStatusResponse' :: Maybe Text
progressMessage = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:GetStatusResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | Undocumented member.
getStatusResponse_carrier :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)
getStatusResponse_carrier :: (Maybe Text -> f (Maybe Text))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_carrier = (GetStatusResponse -> Maybe Text)
-> (GetStatusResponse -> Maybe Text -> GetStatusResponse)
-> Lens
     GetStatusResponse GetStatusResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe Text
carrier :: Maybe Text
$sel:carrier:GetStatusResponse' :: GetStatusResponse -> Maybe Text
carrier} -> Maybe Text
carrier) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe Text
a -> GetStatusResponse
s {$sel:carrier:GetStatusResponse' :: Maybe Text
carrier = Maybe Text
a} :: GetStatusResponse)

-- | Undocumented member.
getStatusResponse_trackingNumber :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)
getStatusResponse_trackingNumber :: (Maybe Text -> f (Maybe Text))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_trackingNumber = (GetStatusResponse -> Maybe Text)
-> (GetStatusResponse -> Maybe Text -> GetStatusResponse)
-> Lens
     GetStatusResponse GetStatusResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe Text
trackingNumber :: Maybe Text
$sel:trackingNumber:GetStatusResponse' :: GetStatusResponse -> Maybe Text
trackingNumber} -> Maybe Text
trackingNumber) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe Text
a -> GetStatusResponse
s {$sel:trackingNumber:GetStatusResponse' :: Maybe Text
trackingNumber = Maybe Text
a} :: GetStatusResponse)

-- | Undocumented member.
getStatusResponse_signature :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)
getStatusResponse_signature :: (Maybe Text -> f (Maybe Text))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_signature = (GetStatusResponse -> Maybe Text)
-> (GetStatusResponse -> Maybe Text -> GetStatusResponse)
-> Lens
     GetStatusResponse GetStatusResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe Text
signature :: Maybe Text
$sel:signature:GetStatusResponse' :: GetStatusResponse -> Maybe Text
signature} -> Maybe Text
signature) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe Text
a -> GetStatusResponse
s {$sel:signature:GetStatusResponse' :: Maybe Text
signature = Maybe Text
a} :: GetStatusResponse)

-- | Undocumented member.
getStatusResponse_jobType :: Lens.Lens' GetStatusResponse (Prelude.Maybe JobType)
getStatusResponse_jobType :: (Maybe JobType -> f (Maybe JobType))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_jobType = (GetStatusResponse -> Maybe JobType)
-> (GetStatusResponse -> Maybe JobType -> GetStatusResponse)
-> Lens
     GetStatusResponse GetStatusResponse (Maybe JobType) (Maybe JobType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe JobType
jobType :: Maybe JobType
$sel:jobType:GetStatusResponse' :: GetStatusResponse -> Maybe JobType
jobType} -> Maybe JobType
jobType) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe JobType
a -> GetStatusResponse
s {$sel:jobType:GetStatusResponse' :: Maybe JobType
jobType = Maybe JobType
a} :: GetStatusResponse)

-- | Undocumented member.
getStatusResponse_jobId :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)
getStatusResponse_jobId :: (Maybe Text -> f (Maybe Text))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_jobId = (GetStatusResponse -> Maybe Text)
-> (GetStatusResponse -> Maybe Text -> GetStatusResponse)
-> Lens
     GetStatusResponse GetStatusResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe Text
jobId :: Maybe Text
$sel:jobId:GetStatusResponse' :: GetStatusResponse -> Maybe Text
jobId} -> Maybe Text
jobId) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe Text
a -> GetStatusResponse
s {$sel:jobId:GetStatusResponse' :: Maybe Text
jobId = Maybe Text
a} :: GetStatusResponse)

-- | Undocumented member.
getStatusResponse_signatureFileContents :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)
getStatusResponse_signatureFileContents :: (Maybe Text -> f (Maybe Text))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_signatureFileContents = (GetStatusResponse -> Maybe Text)
-> (GetStatusResponse -> Maybe Text -> GetStatusResponse)
-> Lens
     GetStatusResponse GetStatusResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe Text
signatureFileContents :: Maybe Text
$sel:signatureFileContents:GetStatusResponse' :: GetStatusResponse -> Maybe Text
signatureFileContents} -> Maybe Text
signatureFileContents) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe Text
a -> GetStatusResponse
s {$sel:signatureFileContents:GetStatusResponse' :: Maybe Text
signatureFileContents = Maybe Text
a} :: GetStatusResponse)

-- | Undocumented member.
getStatusResponse_errorCount :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Int)
getStatusResponse_errorCount :: (Maybe Int -> f (Maybe Int))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_errorCount = (GetStatusResponse -> Maybe Int)
-> (GetStatusResponse -> Maybe Int -> GetStatusResponse)
-> Lens GetStatusResponse GetStatusResponse (Maybe Int) (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe Int
errorCount :: Maybe Int
$sel:errorCount:GetStatusResponse' :: GetStatusResponse -> Maybe Int
errorCount} -> Maybe Int
errorCount) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe Int
a -> GetStatusResponse
s {$sel:errorCount:GetStatusResponse' :: Maybe Int
errorCount = Maybe Int
a} :: GetStatusResponse)

-- | Undocumented member.
getStatusResponse_currentManifest :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)
getStatusResponse_currentManifest :: (Maybe Text -> f (Maybe Text))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_currentManifest = (GetStatusResponse -> Maybe Text)
-> (GetStatusResponse -> Maybe Text -> GetStatusResponse)
-> Lens
     GetStatusResponse GetStatusResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe Text
currentManifest :: Maybe Text
$sel:currentManifest:GetStatusResponse' :: GetStatusResponse -> Maybe Text
currentManifest} -> Maybe Text
currentManifest) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe Text
a -> GetStatusResponse
s {$sel:currentManifest:GetStatusResponse' :: Maybe Text
currentManifest = Maybe Text
a} :: GetStatusResponse)

-- | Undocumented member.
getStatusResponse_artifactList :: Lens.Lens' GetStatusResponse (Prelude.Maybe [Artifact])
getStatusResponse_artifactList :: (Maybe [Artifact] -> f (Maybe [Artifact]))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_artifactList = (GetStatusResponse -> Maybe [Artifact])
-> (GetStatusResponse -> Maybe [Artifact] -> GetStatusResponse)
-> Lens
     GetStatusResponse
     GetStatusResponse
     (Maybe [Artifact])
     (Maybe [Artifact])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe [Artifact]
artifactList :: Maybe [Artifact]
$sel:artifactList:GetStatusResponse' :: GetStatusResponse -> Maybe [Artifact]
artifactList} -> Maybe [Artifact]
artifactList) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe [Artifact]
a -> GetStatusResponse
s {$sel:artifactList:GetStatusResponse' :: Maybe [Artifact]
artifactList = Maybe [Artifact]
a} :: GetStatusResponse) ((Maybe [Artifact] -> f (Maybe [Artifact]))
 -> GetStatusResponse -> f GetStatusResponse)
-> ((Maybe [Artifact] -> f (Maybe [Artifact]))
    -> Maybe [Artifact] -> f (Maybe [Artifact]))
-> (Maybe [Artifact] -> f (Maybe [Artifact]))
-> GetStatusResponse
-> f GetStatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Artifact] [Artifact] [Artifact] [Artifact]
-> Iso
     (Maybe [Artifact])
     (Maybe [Artifact])
     (Maybe [Artifact])
     (Maybe [Artifact])
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 [Artifact] [Artifact] [Artifact] [Artifact]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Undocumented member.
getStatusResponse_logBucket :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)
getStatusResponse_logBucket :: (Maybe Text -> f (Maybe Text))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_logBucket = (GetStatusResponse -> Maybe Text)
-> (GetStatusResponse -> Maybe Text -> GetStatusResponse)
-> Lens
     GetStatusResponse GetStatusResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe Text
logBucket :: Maybe Text
$sel:logBucket:GetStatusResponse' :: GetStatusResponse -> Maybe Text
logBucket} -> Maybe Text
logBucket) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe Text
a -> GetStatusResponse
s {$sel:logBucket:GetStatusResponse' :: Maybe Text
logBucket = Maybe Text
a} :: GetStatusResponse)

-- | Undocumented member.
getStatusResponse_creationDate :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.UTCTime)
getStatusResponse_creationDate :: (Maybe UTCTime -> f (Maybe UTCTime))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_creationDate = (GetStatusResponse -> Maybe ISO8601)
-> (GetStatusResponse -> Maybe ISO8601 -> GetStatusResponse)
-> Lens
     GetStatusResponse GetStatusResponse (Maybe ISO8601) (Maybe ISO8601)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe ISO8601
creationDate :: Maybe ISO8601
$sel:creationDate:GetStatusResponse' :: GetStatusResponse -> Maybe ISO8601
creationDate} -> Maybe ISO8601
creationDate) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe ISO8601
a -> GetStatusResponse
s {$sel:creationDate:GetStatusResponse' :: Maybe ISO8601
creationDate = Maybe ISO8601
a} :: GetStatusResponse) ((Maybe ISO8601 -> f (Maybe ISO8601))
 -> GetStatusResponse -> f GetStatusResponse)
-> ((Maybe UTCTime -> f (Maybe UTCTime))
    -> Maybe ISO8601 -> f (Maybe ISO8601))
-> (Maybe UTCTime -> f (Maybe UTCTime))
-> GetStatusResponse
-> f GetStatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso ISO8601 ISO8601 UTCTime UTCTime
-> Iso
     (Maybe ISO8601) (Maybe ISO8601) (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 ISO8601 ISO8601 UTCTime UTCTime
forall (a :: Format). Iso' (Time a) UTCTime
Core._Time

-- | Undocumented member.
getStatusResponse_progressCode :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)
getStatusResponse_progressCode :: (Maybe Text -> f (Maybe Text))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_progressCode = (GetStatusResponse -> Maybe Text)
-> (GetStatusResponse -> Maybe Text -> GetStatusResponse)
-> Lens
     GetStatusResponse GetStatusResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe Text
progressCode :: Maybe Text
$sel:progressCode:GetStatusResponse' :: GetStatusResponse -> Maybe Text
progressCode} -> Maybe Text
progressCode) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe Text
a -> GetStatusResponse
s {$sel:progressCode:GetStatusResponse' :: Maybe Text
progressCode = Maybe Text
a} :: GetStatusResponse)

-- | Undocumented member.
getStatusResponse_locationCode :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)
getStatusResponse_locationCode :: (Maybe Text -> f (Maybe Text))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_locationCode = (GetStatusResponse -> Maybe Text)
-> (GetStatusResponse -> Maybe Text -> GetStatusResponse)
-> Lens
     GetStatusResponse GetStatusResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe Text
locationCode :: Maybe Text
$sel:locationCode:GetStatusResponse' :: GetStatusResponse -> Maybe Text
locationCode} -> Maybe Text
locationCode) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe Text
a -> GetStatusResponse
s {$sel:locationCode:GetStatusResponse' :: Maybe Text
locationCode = Maybe Text
a} :: GetStatusResponse)

-- | Undocumented member.
getStatusResponse_logKey :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)
getStatusResponse_logKey :: (Maybe Text -> f (Maybe Text))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_logKey = (GetStatusResponse -> Maybe Text)
-> (GetStatusResponse -> Maybe Text -> GetStatusResponse)
-> Lens
     GetStatusResponse GetStatusResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe Text
logKey :: Maybe Text
$sel:logKey:GetStatusResponse' :: GetStatusResponse -> Maybe Text
logKey} -> Maybe Text
logKey) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe Text
a -> GetStatusResponse
s {$sel:logKey:GetStatusResponse' :: Maybe Text
logKey = Maybe Text
a} :: GetStatusResponse)

-- | Undocumented member.
getStatusResponse_locationMessage :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)
getStatusResponse_locationMessage :: (Maybe Text -> f (Maybe Text))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_locationMessage = (GetStatusResponse -> Maybe Text)
-> (GetStatusResponse -> Maybe Text -> GetStatusResponse)
-> Lens
     GetStatusResponse GetStatusResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe Text
locationMessage :: Maybe Text
$sel:locationMessage:GetStatusResponse' :: GetStatusResponse -> Maybe Text
locationMessage} -> Maybe Text
locationMessage) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe Text
a -> GetStatusResponse
s {$sel:locationMessage:GetStatusResponse' :: Maybe Text
locationMessage = Maybe Text
a} :: GetStatusResponse)

-- | Undocumented member.
getStatusResponse_progressMessage :: Lens.Lens' GetStatusResponse (Prelude.Maybe Prelude.Text)
getStatusResponse_progressMessage :: (Maybe Text -> f (Maybe Text))
-> GetStatusResponse -> f GetStatusResponse
getStatusResponse_progressMessage = (GetStatusResponse -> Maybe Text)
-> (GetStatusResponse -> Maybe Text -> GetStatusResponse)
-> Lens
     GetStatusResponse GetStatusResponse (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetStatusResponse' {Maybe Text
progressMessage :: Maybe Text
$sel:progressMessage:GetStatusResponse' :: GetStatusResponse -> Maybe Text
progressMessage} -> Maybe Text
progressMessage) (\s :: GetStatusResponse
s@GetStatusResponse' {} Maybe Text
a -> GetStatusResponse
s {$sel:progressMessage:GetStatusResponse' :: Maybe Text
progressMessage = Maybe Text
a} :: GetStatusResponse)

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

instance Prelude.NFData GetStatusResponse