{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.CloudControl.GetResourceRequestStatus
(
GetResourceRequestStatus (..),
newGetResourceRequestStatus,
getResourceRequestStatus_requestToken,
GetResourceRequestStatusResponse (..),
newGetResourceRequestStatusResponse,
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
data GetResourceRequestStatus = GetResourceRequestStatus'
{
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)
newGetResourceRequestStatus ::
Prelude.Text ->
GetResourceRequestStatus
newGetResourceRequestStatus :: Text -> GetResourceRequestStatus
newGetResourceRequestStatus Text
pRequestToken_ =
GetResourceRequestStatus'
{ $sel:requestToken:GetResourceRequestStatus' :: Text
requestToken =
Text
pRequestToken_
}
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
data GetResourceRequestStatusResponse = GetResourceRequestStatusResponse'
{
GetResourceRequestStatusResponse -> Maybe ProgressEvent
progressEvent :: Prelude.Maybe ProgressEvent,
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)
newGetResourceRequestStatusResponse ::
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_
}
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)
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