{-# 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.RAM.RejectResourceShareInvitation
(
RejectResourceShareInvitation (..),
newRejectResourceShareInvitation,
rejectResourceShareInvitation_clientToken,
rejectResourceShareInvitation_resourceShareInvitationArn,
RejectResourceShareInvitationResponse (..),
newRejectResourceShareInvitationResponse,
rejectResourceShareInvitationResponse_clientToken,
rejectResourceShareInvitationResponse_resourceShareInvitation,
rejectResourceShareInvitationResponse_httpStatus,
)
where
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 Amazonka.RAM.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data RejectResourceShareInvitation = RejectResourceShareInvitation'
{
RejectResourceShareInvitation -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
RejectResourceShareInvitation -> Text
resourceShareInvitationArn :: Prelude.Text
}
deriving (RejectResourceShareInvitation
-> RejectResourceShareInvitation -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RejectResourceShareInvitation
-> RejectResourceShareInvitation -> Bool
$c/= :: RejectResourceShareInvitation
-> RejectResourceShareInvitation -> Bool
== :: RejectResourceShareInvitation
-> RejectResourceShareInvitation -> Bool
$c== :: RejectResourceShareInvitation
-> RejectResourceShareInvitation -> Bool
Prelude.Eq, ReadPrec [RejectResourceShareInvitation]
ReadPrec RejectResourceShareInvitation
Int -> ReadS RejectResourceShareInvitation
ReadS [RejectResourceShareInvitation]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RejectResourceShareInvitation]
$creadListPrec :: ReadPrec [RejectResourceShareInvitation]
readPrec :: ReadPrec RejectResourceShareInvitation
$creadPrec :: ReadPrec RejectResourceShareInvitation
readList :: ReadS [RejectResourceShareInvitation]
$creadList :: ReadS [RejectResourceShareInvitation]
readsPrec :: Int -> ReadS RejectResourceShareInvitation
$creadsPrec :: Int -> ReadS RejectResourceShareInvitation
Prelude.Read, Int -> RejectResourceShareInvitation -> ShowS
[RejectResourceShareInvitation] -> ShowS
RejectResourceShareInvitation -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RejectResourceShareInvitation] -> ShowS
$cshowList :: [RejectResourceShareInvitation] -> ShowS
show :: RejectResourceShareInvitation -> String
$cshow :: RejectResourceShareInvitation -> String
showsPrec :: Int -> RejectResourceShareInvitation -> ShowS
$cshowsPrec :: Int -> RejectResourceShareInvitation -> ShowS
Prelude.Show, forall x.
Rep RejectResourceShareInvitation x
-> RejectResourceShareInvitation
forall x.
RejectResourceShareInvitation
-> Rep RejectResourceShareInvitation x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RejectResourceShareInvitation x
-> RejectResourceShareInvitation
$cfrom :: forall x.
RejectResourceShareInvitation
-> Rep RejectResourceShareInvitation x
Prelude.Generic)
newRejectResourceShareInvitation ::
Prelude.Text ->
RejectResourceShareInvitation
newRejectResourceShareInvitation :: Text -> RejectResourceShareInvitation
newRejectResourceShareInvitation
Text
pResourceShareInvitationArn_ =
RejectResourceShareInvitation'
{ $sel:clientToken:RejectResourceShareInvitation' :: Maybe Text
clientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:resourceShareInvitationArn:RejectResourceShareInvitation' :: Text
resourceShareInvitationArn =
Text
pResourceShareInvitationArn_
}
rejectResourceShareInvitation_clientToken :: Lens.Lens' RejectResourceShareInvitation (Prelude.Maybe Prelude.Text)
rejectResourceShareInvitation_clientToken :: Lens' RejectResourceShareInvitation (Maybe Text)
rejectResourceShareInvitation_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RejectResourceShareInvitation' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:RejectResourceShareInvitation' :: RejectResourceShareInvitation -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: RejectResourceShareInvitation
s@RejectResourceShareInvitation' {} Maybe Text
a -> RejectResourceShareInvitation
s {$sel:clientToken:RejectResourceShareInvitation' :: Maybe Text
clientToken = Maybe Text
a} :: RejectResourceShareInvitation)
rejectResourceShareInvitation_resourceShareInvitationArn :: Lens.Lens' RejectResourceShareInvitation Prelude.Text
rejectResourceShareInvitation_resourceShareInvitationArn :: Lens' RejectResourceShareInvitation Text
rejectResourceShareInvitation_resourceShareInvitationArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RejectResourceShareInvitation' {Text
resourceShareInvitationArn :: Text
$sel:resourceShareInvitationArn:RejectResourceShareInvitation' :: RejectResourceShareInvitation -> Text
resourceShareInvitationArn} -> Text
resourceShareInvitationArn) (\s :: RejectResourceShareInvitation
s@RejectResourceShareInvitation' {} Text
a -> RejectResourceShareInvitation
s {$sel:resourceShareInvitationArn:RejectResourceShareInvitation' :: Text
resourceShareInvitationArn = Text
a} :: RejectResourceShareInvitation)
instance
Core.AWSRequest
RejectResourceShareInvitation
where
type
AWSResponse RejectResourceShareInvitation =
RejectResourceShareInvitationResponse
request :: (Service -> Service)
-> RejectResourceShareInvitation
-> Request RejectResourceShareInvitation
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 RejectResourceShareInvitation
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse RejectResourceShareInvitation)))
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 Text
-> Maybe ResourceShareInvitation
-> Int
-> RejectResourceShareInvitationResponse
RejectResourceShareInvitationResponse'
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
"clientToken")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"resourceShareInvitation")
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
RejectResourceShareInvitation
where
hashWithSalt :: Int -> RejectResourceShareInvitation -> Int
hashWithSalt Int
_salt RejectResourceShareInvitation' {Maybe Text
Text
resourceShareInvitationArn :: Text
clientToken :: Maybe Text
$sel:resourceShareInvitationArn:RejectResourceShareInvitation' :: RejectResourceShareInvitation -> Text
$sel:clientToken:RejectResourceShareInvitation' :: RejectResourceShareInvitation -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
clientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
resourceShareInvitationArn
instance Prelude.NFData RejectResourceShareInvitation where
rnf :: RejectResourceShareInvitation -> ()
rnf RejectResourceShareInvitation' {Maybe Text
Text
resourceShareInvitationArn :: Text
clientToken :: Maybe Text
$sel:resourceShareInvitationArn:RejectResourceShareInvitation' :: RejectResourceShareInvitation -> Text
$sel:clientToken:RejectResourceShareInvitation' :: RejectResourceShareInvitation -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
resourceShareInvitationArn
instance Data.ToHeaders RejectResourceShareInvitation where
toHeaders :: RejectResourceShareInvitation -> 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.ToJSON RejectResourceShareInvitation where
toJSON :: RejectResourceShareInvitation -> Value
toJSON RejectResourceShareInvitation' {Maybe Text
Text
resourceShareInvitationArn :: Text
clientToken :: Maybe Text
$sel:resourceShareInvitationArn:RejectResourceShareInvitation' :: RejectResourceShareInvitation -> Text
$sel:clientToken:RejectResourceShareInvitation' :: RejectResourceShareInvitation -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"clientToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
clientToken,
forall a. a -> Maybe a
Prelude.Just
( Key
"resourceShareInvitationArn"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
resourceShareInvitationArn
)
]
)
instance Data.ToPath RejectResourceShareInvitation where
toPath :: RejectResourceShareInvitation -> ByteString
toPath =
forall a b. a -> b -> a
Prelude.const ByteString
"/rejectresourceshareinvitation"
instance Data.ToQuery RejectResourceShareInvitation where
toQuery :: RejectResourceShareInvitation -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data RejectResourceShareInvitationResponse = RejectResourceShareInvitationResponse'
{
RejectResourceShareInvitationResponse -> Maybe Text
clientToken :: Prelude.Maybe Prelude.Text,
RejectResourceShareInvitationResponse
-> Maybe ResourceShareInvitation
resourceShareInvitation :: Prelude.Maybe ResourceShareInvitation,
RejectResourceShareInvitationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (RejectResourceShareInvitationResponse
-> RejectResourceShareInvitationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RejectResourceShareInvitationResponse
-> RejectResourceShareInvitationResponse -> Bool
$c/= :: RejectResourceShareInvitationResponse
-> RejectResourceShareInvitationResponse -> Bool
== :: RejectResourceShareInvitationResponse
-> RejectResourceShareInvitationResponse -> Bool
$c== :: RejectResourceShareInvitationResponse
-> RejectResourceShareInvitationResponse -> Bool
Prelude.Eq, ReadPrec [RejectResourceShareInvitationResponse]
ReadPrec RejectResourceShareInvitationResponse
Int -> ReadS RejectResourceShareInvitationResponse
ReadS [RejectResourceShareInvitationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RejectResourceShareInvitationResponse]
$creadListPrec :: ReadPrec [RejectResourceShareInvitationResponse]
readPrec :: ReadPrec RejectResourceShareInvitationResponse
$creadPrec :: ReadPrec RejectResourceShareInvitationResponse
readList :: ReadS [RejectResourceShareInvitationResponse]
$creadList :: ReadS [RejectResourceShareInvitationResponse]
readsPrec :: Int -> ReadS RejectResourceShareInvitationResponse
$creadsPrec :: Int -> ReadS RejectResourceShareInvitationResponse
Prelude.Read, Int -> RejectResourceShareInvitationResponse -> ShowS
[RejectResourceShareInvitationResponse] -> ShowS
RejectResourceShareInvitationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RejectResourceShareInvitationResponse] -> ShowS
$cshowList :: [RejectResourceShareInvitationResponse] -> ShowS
show :: RejectResourceShareInvitationResponse -> String
$cshow :: RejectResourceShareInvitationResponse -> String
showsPrec :: Int -> RejectResourceShareInvitationResponse -> ShowS
$cshowsPrec :: Int -> RejectResourceShareInvitationResponse -> ShowS
Prelude.Show, forall x.
Rep RejectResourceShareInvitationResponse x
-> RejectResourceShareInvitationResponse
forall x.
RejectResourceShareInvitationResponse
-> Rep RejectResourceShareInvitationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RejectResourceShareInvitationResponse x
-> RejectResourceShareInvitationResponse
$cfrom :: forall x.
RejectResourceShareInvitationResponse
-> Rep RejectResourceShareInvitationResponse x
Prelude.Generic)
newRejectResourceShareInvitationResponse ::
Prelude.Int ->
RejectResourceShareInvitationResponse
newRejectResourceShareInvitationResponse :: Int -> RejectResourceShareInvitationResponse
newRejectResourceShareInvitationResponse Int
pHttpStatus_ =
RejectResourceShareInvitationResponse'
{ $sel:clientToken:RejectResourceShareInvitationResponse' :: Maybe Text
clientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:resourceShareInvitation:RejectResourceShareInvitationResponse' :: Maybe ResourceShareInvitation
resourceShareInvitation =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:RejectResourceShareInvitationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
rejectResourceShareInvitationResponse_clientToken :: Lens.Lens' RejectResourceShareInvitationResponse (Prelude.Maybe Prelude.Text)
rejectResourceShareInvitationResponse_clientToken :: Lens' RejectResourceShareInvitationResponse (Maybe Text)
rejectResourceShareInvitationResponse_clientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RejectResourceShareInvitationResponse' {Maybe Text
clientToken :: Maybe Text
$sel:clientToken:RejectResourceShareInvitationResponse' :: RejectResourceShareInvitationResponse -> Maybe Text
clientToken} -> Maybe Text
clientToken) (\s :: RejectResourceShareInvitationResponse
s@RejectResourceShareInvitationResponse' {} Maybe Text
a -> RejectResourceShareInvitationResponse
s {$sel:clientToken:RejectResourceShareInvitationResponse' :: Maybe Text
clientToken = Maybe Text
a} :: RejectResourceShareInvitationResponse)
rejectResourceShareInvitationResponse_resourceShareInvitation :: Lens.Lens' RejectResourceShareInvitationResponse (Prelude.Maybe ResourceShareInvitation)
rejectResourceShareInvitationResponse_resourceShareInvitation :: Lens'
RejectResourceShareInvitationResponse
(Maybe ResourceShareInvitation)
rejectResourceShareInvitationResponse_resourceShareInvitation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RejectResourceShareInvitationResponse' {Maybe ResourceShareInvitation
resourceShareInvitation :: Maybe ResourceShareInvitation
$sel:resourceShareInvitation:RejectResourceShareInvitationResponse' :: RejectResourceShareInvitationResponse
-> Maybe ResourceShareInvitation
resourceShareInvitation} -> Maybe ResourceShareInvitation
resourceShareInvitation) (\s :: RejectResourceShareInvitationResponse
s@RejectResourceShareInvitationResponse' {} Maybe ResourceShareInvitation
a -> RejectResourceShareInvitationResponse
s {$sel:resourceShareInvitation:RejectResourceShareInvitationResponse' :: Maybe ResourceShareInvitation
resourceShareInvitation = Maybe ResourceShareInvitation
a} :: RejectResourceShareInvitationResponse)
rejectResourceShareInvitationResponse_httpStatus :: Lens.Lens' RejectResourceShareInvitationResponse Prelude.Int
rejectResourceShareInvitationResponse_httpStatus :: Lens' RejectResourceShareInvitationResponse Int
rejectResourceShareInvitationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RejectResourceShareInvitationResponse' {Int
httpStatus :: Int
$sel:httpStatus:RejectResourceShareInvitationResponse' :: RejectResourceShareInvitationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: RejectResourceShareInvitationResponse
s@RejectResourceShareInvitationResponse' {} Int
a -> RejectResourceShareInvitationResponse
s {$sel:httpStatus:RejectResourceShareInvitationResponse' :: Int
httpStatus = Int
a} :: RejectResourceShareInvitationResponse)
instance
Prelude.NFData
RejectResourceShareInvitationResponse
where
rnf :: RejectResourceShareInvitationResponse -> ()
rnf RejectResourceShareInvitationResponse' {Int
Maybe Text
Maybe ResourceShareInvitation
httpStatus :: Int
resourceShareInvitation :: Maybe ResourceShareInvitation
clientToken :: Maybe Text
$sel:httpStatus:RejectResourceShareInvitationResponse' :: RejectResourceShareInvitationResponse -> Int
$sel:resourceShareInvitation:RejectResourceShareInvitationResponse' :: RejectResourceShareInvitationResponse
-> Maybe ResourceShareInvitation
$sel:clientToken:RejectResourceShareInvitationResponse' :: RejectResourceShareInvitationResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
clientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ResourceShareInvitation
resourceShareInvitation
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus