{-# 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.WorkDocs.AbortDocumentVersionUpload
(
AbortDocumentVersionUpload (..),
newAbortDocumentVersionUpload,
abortDocumentVersionUpload_authenticationToken,
abortDocumentVersionUpload_documentId,
abortDocumentVersionUpload_versionId,
AbortDocumentVersionUploadResponse (..),
newAbortDocumentVersionUploadResponse,
)
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 qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.WorkDocs.Types
data AbortDocumentVersionUpload = AbortDocumentVersionUpload'
{
AbortDocumentVersionUpload -> Maybe (Sensitive Text)
authenticationToken :: Prelude.Maybe (Data.Sensitive Prelude.Text),
AbortDocumentVersionUpload -> Text
documentId :: Prelude.Text,
AbortDocumentVersionUpload -> Text
versionId :: Prelude.Text
}
deriving (AbortDocumentVersionUpload -> AbortDocumentVersionUpload -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AbortDocumentVersionUpload -> AbortDocumentVersionUpload -> Bool
$c/= :: AbortDocumentVersionUpload -> AbortDocumentVersionUpload -> Bool
== :: AbortDocumentVersionUpload -> AbortDocumentVersionUpload -> Bool
$c== :: AbortDocumentVersionUpload -> AbortDocumentVersionUpload -> Bool
Prelude.Eq, Int -> AbortDocumentVersionUpload -> ShowS
[AbortDocumentVersionUpload] -> ShowS
AbortDocumentVersionUpload -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AbortDocumentVersionUpload] -> ShowS
$cshowList :: [AbortDocumentVersionUpload] -> ShowS
show :: AbortDocumentVersionUpload -> String
$cshow :: AbortDocumentVersionUpload -> String
showsPrec :: Int -> AbortDocumentVersionUpload -> ShowS
$cshowsPrec :: Int -> AbortDocumentVersionUpload -> ShowS
Prelude.Show, forall x.
Rep AbortDocumentVersionUpload x -> AbortDocumentVersionUpload
forall x.
AbortDocumentVersionUpload -> Rep AbortDocumentVersionUpload x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AbortDocumentVersionUpload x -> AbortDocumentVersionUpload
$cfrom :: forall x.
AbortDocumentVersionUpload -> Rep AbortDocumentVersionUpload x
Prelude.Generic)
newAbortDocumentVersionUpload ::
Prelude.Text ->
Prelude.Text ->
AbortDocumentVersionUpload
newAbortDocumentVersionUpload :: Text -> Text -> AbortDocumentVersionUpload
newAbortDocumentVersionUpload
Text
pDocumentId_
Text
pVersionId_ =
AbortDocumentVersionUpload'
{ $sel:authenticationToken:AbortDocumentVersionUpload' :: Maybe (Sensitive Text)
authenticationToken =
forall a. Maybe a
Prelude.Nothing,
$sel:documentId:AbortDocumentVersionUpload' :: Text
documentId = Text
pDocumentId_,
$sel:versionId:AbortDocumentVersionUpload' :: Text
versionId = Text
pVersionId_
}
abortDocumentVersionUpload_authenticationToken :: Lens.Lens' AbortDocumentVersionUpload (Prelude.Maybe Prelude.Text)
abortDocumentVersionUpload_authenticationToken :: Lens' AbortDocumentVersionUpload (Maybe Text)
abortDocumentVersionUpload_authenticationToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AbortDocumentVersionUpload' {Maybe (Sensitive Text)
authenticationToken :: Maybe (Sensitive Text)
$sel:authenticationToken:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Maybe (Sensitive Text)
authenticationToken} -> Maybe (Sensitive Text)
authenticationToken) (\s :: AbortDocumentVersionUpload
s@AbortDocumentVersionUpload' {} Maybe (Sensitive Text)
a -> AbortDocumentVersionUpload
s {$sel:authenticationToken:AbortDocumentVersionUpload' :: Maybe (Sensitive Text)
authenticationToken = Maybe (Sensitive Text)
a} :: AbortDocumentVersionUpload) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. 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 forall a. Iso' (Sensitive a) a
Data._Sensitive
abortDocumentVersionUpload_documentId :: Lens.Lens' AbortDocumentVersionUpload Prelude.Text
abortDocumentVersionUpload_documentId :: Lens' AbortDocumentVersionUpload Text
abortDocumentVersionUpload_documentId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AbortDocumentVersionUpload' {Text
documentId :: Text
$sel:documentId:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Text
documentId} -> Text
documentId) (\s :: AbortDocumentVersionUpload
s@AbortDocumentVersionUpload' {} Text
a -> AbortDocumentVersionUpload
s {$sel:documentId:AbortDocumentVersionUpload' :: Text
documentId = Text
a} :: AbortDocumentVersionUpload)
abortDocumentVersionUpload_versionId :: Lens.Lens' AbortDocumentVersionUpload Prelude.Text
abortDocumentVersionUpload_versionId :: Lens' AbortDocumentVersionUpload Text
abortDocumentVersionUpload_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AbortDocumentVersionUpload' {Text
versionId :: Text
$sel:versionId:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Text
versionId} -> Text
versionId) (\s :: AbortDocumentVersionUpload
s@AbortDocumentVersionUpload' {} Text
a -> AbortDocumentVersionUpload
s {$sel:versionId:AbortDocumentVersionUpload' :: Text
versionId = Text
a} :: AbortDocumentVersionUpload)
instance Core.AWSRequest AbortDocumentVersionUpload where
type
AWSResponse AbortDocumentVersionUpload =
AbortDocumentVersionUploadResponse
request :: (Service -> Service)
-> AbortDocumentVersionUpload -> Request AbortDocumentVersionUpload
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy AbortDocumentVersionUpload
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse AbortDocumentVersionUpload)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
AbortDocumentVersionUploadResponse
AbortDocumentVersionUploadResponse'
instance Prelude.Hashable AbortDocumentVersionUpload where
hashWithSalt :: Int -> AbortDocumentVersionUpload -> Int
hashWithSalt Int
_salt AbortDocumentVersionUpload' {Maybe (Sensitive Text)
Text
versionId :: Text
documentId :: Text
authenticationToken :: Maybe (Sensitive Text)
$sel:versionId:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Text
$sel:documentId:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Text
$sel:authenticationToken:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Maybe (Sensitive Text)
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
authenticationToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
documentId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
versionId
instance Prelude.NFData AbortDocumentVersionUpload where
rnf :: AbortDocumentVersionUpload -> ()
rnf AbortDocumentVersionUpload' {Maybe (Sensitive Text)
Text
versionId :: Text
documentId :: Text
authenticationToken :: Maybe (Sensitive Text)
$sel:versionId:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Text
$sel:documentId:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Text
$sel:authenticationToken:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Maybe (Sensitive Text)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
authenticationToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
documentId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
versionId
instance Data.ToHeaders AbortDocumentVersionUpload where
toHeaders :: AbortDocumentVersionUpload -> [Header]
toHeaders AbortDocumentVersionUpload' {Maybe (Sensitive Text)
Text
versionId :: Text
documentId :: Text
authenticationToken :: Maybe (Sensitive Text)
$sel:versionId:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Text
$sel:documentId:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Text
$sel:authenticationToken:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Maybe (Sensitive Text)
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Authentication" forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# Maybe (Sensitive Text)
authenticationToken,
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> [Header]
Data.=# (ByteString
"application/x-amz-json-1.1" :: Prelude.ByteString)
]
instance Data.ToPath AbortDocumentVersionUpload where
toPath :: AbortDocumentVersionUpload -> ByteString
toPath AbortDocumentVersionUpload' {Maybe (Sensitive Text)
Text
versionId :: Text
documentId :: Text
authenticationToken :: Maybe (Sensitive Text)
$sel:versionId:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Text
$sel:documentId:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Text
$sel:authenticationToken:AbortDocumentVersionUpload' :: AbortDocumentVersionUpload -> Maybe (Sensitive Text)
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/api/v1/documents/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
documentId,
ByteString
"/versions/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
versionId
]
instance Data.ToQuery AbortDocumentVersionUpload where
toQuery :: AbortDocumentVersionUpload -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data AbortDocumentVersionUploadResponse = AbortDocumentVersionUploadResponse'
{
}
deriving (AbortDocumentVersionUploadResponse
-> AbortDocumentVersionUploadResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AbortDocumentVersionUploadResponse
-> AbortDocumentVersionUploadResponse -> Bool
$c/= :: AbortDocumentVersionUploadResponse
-> AbortDocumentVersionUploadResponse -> Bool
== :: AbortDocumentVersionUploadResponse
-> AbortDocumentVersionUploadResponse -> Bool
$c== :: AbortDocumentVersionUploadResponse
-> AbortDocumentVersionUploadResponse -> Bool
Prelude.Eq, ReadPrec [AbortDocumentVersionUploadResponse]
ReadPrec AbortDocumentVersionUploadResponse
Int -> ReadS AbortDocumentVersionUploadResponse
ReadS [AbortDocumentVersionUploadResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AbortDocumentVersionUploadResponse]
$creadListPrec :: ReadPrec [AbortDocumentVersionUploadResponse]
readPrec :: ReadPrec AbortDocumentVersionUploadResponse
$creadPrec :: ReadPrec AbortDocumentVersionUploadResponse
readList :: ReadS [AbortDocumentVersionUploadResponse]
$creadList :: ReadS [AbortDocumentVersionUploadResponse]
readsPrec :: Int -> ReadS AbortDocumentVersionUploadResponse
$creadsPrec :: Int -> ReadS AbortDocumentVersionUploadResponse
Prelude.Read, Int -> AbortDocumentVersionUploadResponse -> ShowS
[AbortDocumentVersionUploadResponse] -> ShowS
AbortDocumentVersionUploadResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AbortDocumentVersionUploadResponse] -> ShowS
$cshowList :: [AbortDocumentVersionUploadResponse] -> ShowS
show :: AbortDocumentVersionUploadResponse -> String
$cshow :: AbortDocumentVersionUploadResponse -> String
showsPrec :: Int -> AbortDocumentVersionUploadResponse -> ShowS
$cshowsPrec :: Int -> AbortDocumentVersionUploadResponse -> ShowS
Prelude.Show, forall x.
Rep AbortDocumentVersionUploadResponse x
-> AbortDocumentVersionUploadResponse
forall x.
AbortDocumentVersionUploadResponse
-> Rep AbortDocumentVersionUploadResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep AbortDocumentVersionUploadResponse x
-> AbortDocumentVersionUploadResponse
$cfrom :: forall x.
AbortDocumentVersionUploadResponse
-> Rep AbortDocumentVersionUploadResponse x
Prelude.Generic)
newAbortDocumentVersionUploadResponse ::
AbortDocumentVersionUploadResponse
newAbortDocumentVersionUploadResponse :: AbortDocumentVersionUploadResponse
newAbortDocumentVersionUploadResponse =
AbortDocumentVersionUploadResponse
AbortDocumentVersionUploadResponse'
instance
Prelude.NFData
AbortDocumentVersionUploadResponse
where
rnf :: AbortDocumentVersionUploadResponse -> ()
rnf AbortDocumentVersionUploadResponse
_ = ()