{-# 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.CloudControl.GetResourceRequestStatus
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Returns the current status of a resource operation request. For more
-- information, see
-- <https://docs.aws.amazon.com/cloudcontrolapi/latest/userguide/resource-operations-manage-requests.html#resource-operations-manage-requests-track Tracking the progress of resource operation requests>
-- in the /Amazon Web Services Cloud Control API User Guide/.
module Amazonka.CloudControl.GetResourceRequestStatus
  ( -- * Creating a Request
    GetResourceRequestStatus (..),
    newGetResourceRequestStatus,

    -- * Request Lenses
    getResourceRequestStatus_requestToken,

    -- * Destructuring the Response
    GetResourceRequestStatusResponse (..),
    newGetResourceRequestStatusResponse,

    -- * Response Lenses
    getResourceRequestStatusResponse_progressEvent,
    getResourceRequestStatusResponse_httpStatus,
  )
where

import Amazonka.CloudControl.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newGetResourceRequestStatus' smart constructor.
data GetResourceRequestStatus = GetResourceRequestStatus'
  { -- | A unique token used to track the progress of the resource operation
    -- request.
    --
    -- Request tokens are included in the @ProgressEvent@ type returned by a
    -- resource operation request.
    GetResourceRequestStatus -> Text
requestToken :: Prelude.Text
  }
  deriving (GetResourceRequestStatus -> GetResourceRequestStatus -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetResourceRequestStatus -> GetResourceRequestStatus -> Bool
$c/= :: GetResourceRequestStatus -> GetResourceRequestStatus -> Bool
== :: GetResourceRequestStatus -> GetResourceRequestStatus -> Bool
$c== :: GetResourceRequestStatus -> GetResourceRequestStatus -> Bool
Prelude.Eq, ReadPrec [GetResourceRequestStatus]
ReadPrec GetResourceRequestStatus
Int -> ReadS GetResourceRequestStatus
ReadS [GetResourceRequestStatus]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetResourceRequestStatus]
$creadListPrec :: ReadPrec [GetResourceRequestStatus]
readPrec :: ReadPrec GetResourceRequestStatus
$creadPrec :: ReadPrec GetResourceRequestStatus
readList :: ReadS [GetResourceRequestStatus]
$creadList :: ReadS [GetResourceRequestStatus]
readsPrec :: Int -> ReadS GetResourceRequestStatus
$creadsPrec :: Int -> ReadS GetResourceRequestStatus
Prelude.Read, Int -> GetResourceRequestStatus -> ShowS
[GetResourceRequestStatus] -> ShowS
GetResourceRequestStatus -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetResourceRequestStatus] -> ShowS
$cshowList :: [GetResourceRequestStatus] -> ShowS
show :: GetResourceRequestStatus -> String
$cshow :: GetResourceRequestStatus -> String
showsPrec :: Int -> GetResourceRequestStatus -> ShowS
$cshowsPrec :: Int -> GetResourceRequestStatus -> ShowS
Prelude.Show, forall x.
Rep GetResourceRequestStatus x -> GetResourceRequestStatus
forall x.
GetResourceRequestStatus -> Rep GetResourceRequestStatus x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetResourceRequestStatus x -> GetResourceRequestStatus
$cfrom :: forall x.
GetResourceRequestStatus -> Rep GetResourceRequestStatus x
Prelude.Generic)

-- |
-- Create a value of 'GetResourceRequestStatus' 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:
--
-- 'requestToken', 'getResourceRequestStatus_requestToken' - A unique token used to track the progress of the resource operation
-- request.
--
-- Request tokens are included in the @ProgressEvent@ type returned by a
-- resource operation request.
newGetResourceRequestStatus ::
  -- | 'requestToken'
  Prelude.Text ->
  GetResourceRequestStatus
newGetResourceRequestStatus :: Text -> GetResourceRequestStatus
newGetResourceRequestStatus Text
pRequestToken_ =
  GetResourceRequestStatus'
    { $sel:requestToken:GetResourceRequestStatus' :: Text
requestToken =
        Text
pRequestToken_
    }

-- | A unique token used to track the progress of the resource operation
-- request.
--
-- Request tokens are included in the @ProgressEvent@ type returned by a
-- resource operation request.
getResourceRequestStatus_requestToken :: Lens.Lens' GetResourceRequestStatus Prelude.Text
getResourceRequestStatus_requestToken :: Lens' GetResourceRequestStatus Text
getResourceRequestStatus_requestToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResourceRequestStatus' {Text
requestToken :: Text
$sel:requestToken:GetResourceRequestStatus' :: GetResourceRequestStatus -> Text
requestToken} -> Text
requestToken) (\s :: GetResourceRequestStatus
s@GetResourceRequestStatus' {} Text
a -> GetResourceRequestStatus
s {$sel:requestToken:GetResourceRequestStatus' :: Text
requestToken = Text
a} :: GetResourceRequestStatus)

instance Core.AWSRequest GetResourceRequestStatus where
  type
    AWSResponse GetResourceRequestStatus =
      GetResourceRequestStatusResponse
  request :: (Service -> Service)
-> GetResourceRequestStatus -> Request GetResourceRequestStatus
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 GetResourceRequestStatus
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse GetResourceRequestStatus)))
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 ProgressEvent -> Int -> GetResourceRequestStatusResponse
GetResourceRequestStatusResponse'
            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
"ProgressEvent")
            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 GetResourceRequestStatus where
  hashWithSalt :: Int -> GetResourceRequestStatus -> Int
hashWithSalt Int
_salt GetResourceRequestStatus' {Text
requestToken :: Text
$sel:requestToken:GetResourceRequestStatus' :: GetResourceRequestStatus -> Text
..} =
    Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
requestToken

instance Prelude.NFData GetResourceRequestStatus where
  rnf :: GetResourceRequestStatus -> ()
rnf GetResourceRequestStatus' {Text
requestToken :: Text
$sel:requestToken:GetResourceRequestStatus' :: GetResourceRequestStatus -> Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Text
requestToken

instance Data.ToHeaders GetResourceRequestStatus where
  toHeaders :: GetResourceRequestStatus -> 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
"CloudApiService.GetResourceRequestStatus" ::
                          Prelude.ByteString
                      ),
            HeaderName
"Content-Type"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToJSON GetResourceRequestStatus where
  toJSON :: GetResourceRequestStatus -> Value
toJSON GetResourceRequestStatus' {Text
requestToken :: Text
$sel:requestToken:GetResourceRequestStatus' :: GetResourceRequestStatus -> Text
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [forall a. a -> Maybe a
Prelude.Just (Key
"RequestToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
requestToken)]
      )

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

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

-- | /See:/ 'newGetResourceRequestStatusResponse' smart constructor.
data GetResourceRequestStatusResponse = GetResourceRequestStatusResponse'
  { -- | Represents the current status of the resource operation request.
    GetResourceRequestStatusResponse -> Maybe ProgressEvent
progressEvent :: Prelude.Maybe ProgressEvent,
    -- | The response's http status code.
    GetResourceRequestStatusResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (GetResourceRequestStatusResponse
-> GetResourceRequestStatusResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetResourceRequestStatusResponse
-> GetResourceRequestStatusResponse -> Bool
$c/= :: GetResourceRequestStatusResponse
-> GetResourceRequestStatusResponse -> Bool
== :: GetResourceRequestStatusResponse
-> GetResourceRequestStatusResponse -> Bool
$c== :: GetResourceRequestStatusResponse
-> GetResourceRequestStatusResponse -> Bool
Prelude.Eq, Int -> GetResourceRequestStatusResponse -> ShowS
[GetResourceRequestStatusResponse] -> ShowS
GetResourceRequestStatusResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetResourceRequestStatusResponse] -> ShowS
$cshowList :: [GetResourceRequestStatusResponse] -> ShowS
show :: GetResourceRequestStatusResponse -> String
$cshow :: GetResourceRequestStatusResponse -> String
showsPrec :: Int -> GetResourceRequestStatusResponse -> ShowS
$cshowsPrec :: Int -> GetResourceRequestStatusResponse -> ShowS
Prelude.Show, forall x.
Rep GetResourceRequestStatusResponse x
-> GetResourceRequestStatusResponse
forall x.
GetResourceRequestStatusResponse
-> Rep GetResourceRequestStatusResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetResourceRequestStatusResponse x
-> GetResourceRequestStatusResponse
$cfrom :: forall x.
GetResourceRequestStatusResponse
-> Rep GetResourceRequestStatusResponse x
Prelude.Generic)

-- |
-- Create a value of 'GetResourceRequestStatusResponse' 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:
--
-- 'progressEvent', 'getResourceRequestStatusResponse_progressEvent' - Represents the current status of the resource operation request.
--
-- 'httpStatus', 'getResourceRequestStatusResponse_httpStatus' - The response's http status code.
newGetResourceRequestStatusResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  GetResourceRequestStatusResponse
newGetResourceRequestStatusResponse :: Int -> GetResourceRequestStatusResponse
newGetResourceRequestStatusResponse Int
pHttpStatus_ =
  GetResourceRequestStatusResponse'
    { $sel:progressEvent:GetResourceRequestStatusResponse' :: Maybe ProgressEvent
progressEvent =
        forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:GetResourceRequestStatusResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | Represents the current status of the resource operation request.
getResourceRequestStatusResponse_progressEvent :: Lens.Lens' GetResourceRequestStatusResponse (Prelude.Maybe ProgressEvent)
getResourceRequestStatusResponse_progressEvent :: Lens' GetResourceRequestStatusResponse (Maybe ProgressEvent)
getResourceRequestStatusResponse_progressEvent = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetResourceRequestStatusResponse' {Maybe ProgressEvent
progressEvent :: Maybe ProgressEvent
$sel:progressEvent:GetResourceRequestStatusResponse' :: GetResourceRequestStatusResponse -> Maybe ProgressEvent
progressEvent} -> Maybe ProgressEvent
progressEvent) (\s :: GetResourceRequestStatusResponse
s@GetResourceRequestStatusResponse' {} Maybe ProgressEvent
a -> GetResourceRequestStatusResponse
s {$sel:progressEvent:GetResourceRequestStatusResponse' :: Maybe ProgressEvent
progressEvent = Maybe ProgressEvent
a} :: GetResourceRequestStatusResponse)

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

instance
  Prelude.NFData
    GetResourceRequestStatusResponse
  where
  rnf :: GetResourceRequestStatusResponse -> ()
rnf GetResourceRequestStatusResponse' {Int
Maybe ProgressEvent
httpStatus :: Int
progressEvent :: Maybe ProgressEvent
$sel:httpStatus:GetResourceRequestStatusResponse' :: GetResourceRequestStatusResponse -> Int
$sel:progressEvent:GetResourceRequestStatusResponse' :: GetResourceRequestStatusResponse -> Maybe ProgressEvent
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe ProgressEvent
progressEvent
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus