{-# 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.ConnectCampaigns.GetInstanceOnboardingJobStatus
(
GetInstanceOnboardingJobStatus (..),
newGetInstanceOnboardingJobStatus,
getInstanceOnboardingJobStatus_connectInstanceId,
GetInstanceOnboardingJobStatusResponse (..),
newGetInstanceOnboardingJobStatusResponse,
getInstanceOnboardingJobStatusResponse_connectInstanceOnboardingJobStatus,
getInstanceOnboardingJobStatusResponse_httpStatus,
)
where
import Amazonka.ConnectCampaigns.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 GetInstanceOnboardingJobStatus = GetInstanceOnboardingJobStatus'
{ GetInstanceOnboardingJobStatus -> Text
connectInstanceId :: Prelude.Text
}
deriving (GetInstanceOnboardingJobStatus
-> GetInstanceOnboardingJobStatus -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetInstanceOnboardingJobStatus
-> GetInstanceOnboardingJobStatus -> Bool
$c/= :: GetInstanceOnboardingJobStatus
-> GetInstanceOnboardingJobStatus -> Bool
== :: GetInstanceOnboardingJobStatus
-> GetInstanceOnboardingJobStatus -> Bool
$c== :: GetInstanceOnboardingJobStatus
-> GetInstanceOnboardingJobStatus -> Bool
Prelude.Eq, ReadPrec [GetInstanceOnboardingJobStatus]
ReadPrec GetInstanceOnboardingJobStatus
Int -> ReadS GetInstanceOnboardingJobStatus
ReadS [GetInstanceOnboardingJobStatus]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetInstanceOnboardingJobStatus]
$creadListPrec :: ReadPrec [GetInstanceOnboardingJobStatus]
readPrec :: ReadPrec GetInstanceOnboardingJobStatus
$creadPrec :: ReadPrec GetInstanceOnboardingJobStatus
readList :: ReadS [GetInstanceOnboardingJobStatus]
$creadList :: ReadS [GetInstanceOnboardingJobStatus]
readsPrec :: Int -> ReadS GetInstanceOnboardingJobStatus
$creadsPrec :: Int -> ReadS GetInstanceOnboardingJobStatus
Prelude.Read, Int -> GetInstanceOnboardingJobStatus -> ShowS
[GetInstanceOnboardingJobStatus] -> ShowS
GetInstanceOnboardingJobStatus -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetInstanceOnboardingJobStatus] -> ShowS
$cshowList :: [GetInstanceOnboardingJobStatus] -> ShowS
show :: GetInstanceOnboardingJobStatus -> String
$cshow :: GetInstanceOnboardingJobStatus -> String
showsPrec :: Int -> GetInstanceOnboardingJobStatus -> ShowS
$cshowsPrec :: Int -> GetInstanceOnboardingJobStatus -> ShowS
Prelude.Show, forall x.
Rep GetInstanceOnboardingJobStatus x
-> GetInstanceOnboardingJobStatus
forall x.
GetInstanceOnboardingJobStatus
-> Rep GetInstanceOnboardingJobStatus x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetInstanceOnboardingJobStatus x
-> GetInstanceOnboardingJobStatus
$cfrom :: forall x.
GetInstanceOnboardingJobStatus
-> Rep GetInstanceOnboardingJobStatus x
Prelude.Generic)
newGetInstanceOnboardingJobStatus ::
Prelude.Text ->
GetInstanceOnboardingJobStatus
newGetInstanceOnboardingJobStatus :: Text -> GetInstanceOnboardingJobStatus
newGetInstanceOnboardingJobStatus Text
pConnectInstanceId_ =
GetInstanceOnboardingJobStatus'
{ $sel:connectInstanceId:GetInstanceOnboardingJobStatus' :: Text
connectInstanceId =
Text
pConnectInstanceId_
}
getInstanceOnboardingJobStatus_connectInstanceId :: Lens.Lens' GetInstanceOnboardingJobStatus Prelude.Text
getInstanceOnboardingJobStatus_connectInstanceId :: Lens' GetInstanceOnboardingJobStatus Text
getInstanceOnboardingJobStatus_connectInstanceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetInstanceOnboardingJobStatus' {Text
connectInstanceId :: Text
$sel:connectInstanceId:GetInstanceOnboardingJobStatus' :: GetInstanceOnboardingJobStatus -> Text
connectInstanceId} -> Text
connectInstanceId) (\s :: GetInstanceOnboardingJobStatus
s@GetInstanceOnboardingJobStatus' {} Text
a -> GetInstanceOnboardingJobStatus
s {$sel:connectInstanceId:GetInstanceOnboardingJobStatus' :: Text
connectInstanceId = Text
a} :: GetInstanceOnboardingJobStatus)
instance
Core.AWSRequest
GetInstanceOnboardingJobStatus
where
type
AWSResponse GetInstanceOnboardingJobStatus =
GetInstanceOnboardingJobStatusResponse
request :: (Service -> Service)
-> GetInstanceOnboardingJobStatus
-> Request GetInstanceOnboardingJobStatus
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetInstanceOnboardingJobStatus
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse GetInstanceOnboardingJobStatus)))
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 InstanceOnboardingJobStatus
-> Int -> GetInstanceOnboardingJobStatusResponse
GetInstanceOnboardingJobStatusResponse'
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
"connectInstanceOnboardingJobStatus")
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
GetInstanceOnboardingJobStatus
where
hashWithSalt :: Int -> GetInstanceOnboardingJobStatus -> Int
hashWithSalt
Int
_salt
GetInstanceOnboardingJobStatus' {Text
connectInstanceId :: Text
$sel:connectInstanceId:GetInstanceOnboardingJobStatus' :: GetInstanceOnboardingJobStatus -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
connectInstanceId
instance
Prelude.NFData
GetInstanceOnboardingJobStatus
where
rnf :: GetInstanceOnboardingJobStatus -> ()
rnf GetInstanceOnboardingJobStatus' {Text
connectInstanceId :: Text
$sel:connectInstanceId:GetInstanceOnboardingJobStatus' :: GetInstanceOnboardingJobStatus -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
connectInstanceId
instance
Data.ToHeaders
GetInstanceOnboardingJobStatus
where
toHeaders :: GetInstanceOnboardingJobStatus -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath GetInstanceOnboardingJobStatus where
toPath :: GetInstanceOnboardingJobStatus -> ByteString
toPath GetInstanceOnboardingJobStatus' {Text
connectInstanceId :: Text
$sel:connectInstanceId:GetInstanceOnboardingJobStatus' :: GetInstanceOnboardingJobStatus -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/connect-instance/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
connectInstanceId,
ByteString
"/onboarding"
]
instance Data.ToQuery GetInstanceOnboardingJobStatus where
toQuery :: GetInstanceOnboardingJobStatus -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetInstanceOnboardingJobStatusResponse = GetInstanceOnboardingJobStatusResponse'
{ GetInstanceOnboardingJobStatusResponse
-> Maybe InstanceOnboardingJobStatus
connectInstanceOnboardingJobStatus :: Prelude.Maybe InstanceOnboardingJobStatus,
GetInstanceOnboardingJobStatusResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetInstanceOnboardingJobStatusResponse
-> GetInstanceOnboardingJobStatusResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetInstanceOnboardingJobStatusResponse
-> GetInstanceOnboardingJobStatusResponse -> Bool
$c/= :: GetInstanceOnboardingJobStatusResponse
-> GetInstanceOnboardingJobStatusResponse -> Bool
== :: GetInstanceOnboardingJobStatusResponse
-> GetInstanceOnboardingJobStatusResponse -> Bool
$c== :: GetInstanceOnboardingJobStatusResponse
-> GetInstanceOnboardingJobStatusResponse -> Bool
Prelude.Eq, ReadPrec [GetInstanceOnboardingJobStatusResponse]
ReadPrec GetInstanceOnboardingJobStatusResponse
Int -> ReadS GetInstanceOnboardingJobStatusResponse
ReadS [GetInstanceOnboardingJobStatusResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetInstanceOnboardingJobStatusResponse]
$creadListPrec :: ReadPrec [GetInstanceOnboardingJobStatusResponse]
readPrec :: ReadPrec GetInstanceOnboardingJobStatusResponse
$creadPrec :: ReadPrec GetInstanceOnboardingJobStatusResponse
readList :: ReadS [GetInstanceOnboardingJobStatusResponse]
$creadList :: ReadS [GetInstanceOnboardingJobStatusResponse]
readsPrec :: Int -> ReadS GetInstanceOnboardingJobStatusResponse
$creadsPrec :: Int -> ReadS GetInstanceOnboardingJobStatusResponse
Prelude.Read, Int -> GetInstanceOnboardingJobStatusResponse -> ShowS
[GetInstanceOnboardingJobStatusResponse] -> ShowS
GetInstanceOnboardingJobStatusResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetInstanceOnboardingJobStatusResponse] -> ShowS
$cshowList :: [GetInstanceOnboardingJobStatusResponse] -> ShowS
show :: GetInstanceOnboardingJobStatusResponse -> String
$cshow :: GetInstanceOnboardingJobStatusResponse -> String
showsPrec :: Int -> GetInstanceOnboardingJobStatusResponse -> ShowS
$cshowsPrec :: Int -> GetInstanceOnboardingJobStatusResponse -> ShowS
Prelude.Show, forall x.
Rep GetInstanceOnboardingJobStatusResponse x
-> GetInstanceOnboardingJobStatusResponse
forall x.
GetInstanceOnboardingJobStatusResponse
-> Rep GetInstanceOnboardingJobStatusResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetInstanceOnboardingJobStatusResponse x
-> GetInstanceOnboardingJobStatusResponse
$cfrom :: forall x.
GetInstanceOnboardingJobStatusResponse
-> Rep GetInstanceOnboardingJobStatusResponse x
Prelude.Generic)
newGetInstanceOnboardingJobStatusResponse ::
Prelude.Int ->
GetInstanceOnboardingJobStatusResponse
newGetInstanceOnboardingJobStatusResponse :: Int -> GetInstanceOnboardingJobStatusResponse
newGetInstanceOnboardingJobStatusResponse
Int
pHttpStatus_ =
GetInstanceOnboardingJobStatusResponse'
{ $sel:connectInstanceOnboardingJobStatus:GetInstanceOnboardingJobStatusResponse' :: Maybe InstanceOnboardingJobStatus
connectInstanceOnboardingJobStatus =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetInstanceOnboardingJobStatusResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getInstanceOnboardingJobStatusResponse_connectInstanceOnboardingJobStatus :: Lens.Lens' GetInstanceOnboardingJobStatusResponse (Prelude.Maybe InstanceOnboardingJobStatus)
getInstanceOnboardingJobStatusResponse_connectInstanceOnboardingJobStatus :: Lens'
GetInstanceOnboardingJobStatusResponse
(Maybe InstanceOnboardingJobStatus)
getInstanceOnboardingJobStatusResponse_connectInstanceOnboardingJobStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetInstanceOnboardingJobStatusResponse' {Maybe InstanceOnboardingJobStatus
connectInstanceOnboardingJobStatus :: Maybe InstanceOnboardingJobStatus
$sel:connectInstanceOnboardingJobStatus:GetInstanceOnboardingJobStatusResponse' :: GetInstanceOnboardingJobStatusResponse
-> Maybe InstanceOnboardingJobStatus
connectInstanceOnboardingJobStatus} -> Maybe InstanceOnboardingJobStatus
connectInstanceOnboardingJobStatus) (\s :: GetInstanceOnboardingJobStatusResponse
s@GetInstanceOnboardingJobStatusResponse' {} Maybe InstanceOnboardingJobStatus
a -> GetInstanceOnboardingJobStatusResponse
s {$sel:connectInstanceOnboardingJobStatus:GetInstanceOnboardingJobStatusResponse' :: Maybe InstanceOnboardingJobStatus
connectInstanceOnboardingJobStatus = Maybe InstanceOnboardingJobStatus
a} :: GetInstanceOnboardingJobStatusResponse)
getInstanceOnboardingJobStatusResponse_httpStatus :: Lens.Lens' GetInstanceOnboardingJobStatusResponse Prelude.Int
getInstanceOnboardingJobStatusResponse_httpStatus :: Lens' GetInstanceOnboardingJobStatusResponse Int
getInstanceOnboardingJobStatusResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetInstanceOnboardingJobStatusResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetInstanceOnboardingJobStatusResponse' :: GetInstanceOnboardingJobStatusResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetInstanceOnboardingJobStatusResponse
s@GetInstanceOnboardingJobStatusResponse' {} Int
a -> GetInstanceOnboardingJobStatusResponse
s {$sel:httpStatus:GetInstanceOnboardingJobStatusResponse' :: Int
httpStatus = Int
a} :: GetInstanceOnboardingJobStatusResponse)
instance
Prelude.NFData
GetInstanceOnboardingJobStatusResponse
where
rnf :: GetInstanceOnboardingJobStatusResponse -> ()
rnf GetInstanceOnboardingJobStatusResponse' {Int
Maybe InstanceOnboardingJobStatus
httpStatus :: Int
connectInstanceOnboardingJobStatus :: Maybe InstanceOnboardingJobStatus
$sel:httpStatus:GetInstanceOnboardingJobStatusResponse' :: GetInstanceOnboardingJobStatusResponse -> Int
$sel:connectInstanceOnboardingJobStatus:GetInstanceOnboardingJobStatusResponse' :: GetInstanceOnboardingJobStatusResponse
-> Maybe InstanceOnboardingJobStatus
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe InstanceOnboardingJobStatus
connectInstanceOnboardingJobStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus