{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE ImportQualifiedPost #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-name-shadowing #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Gogol.Vault.Matters.Undelete
(
VaultMattersUndeleteResource,
VaultMattersUndelete (..),
newVaultMattersUndelete,
)
where
import Gogol.Prelude qualified as Core
import Gogol.Vault.Types
type VaultMattersUndeleteResource =
"v1"
Core.:> "matters"
Core.:> Core.CaptureMode "matterId" "undelete" Core.Text
Core.:> Core.QueryParam "$.xgafv" Xgafv
Core.:> Core.QueryParam "access_token" Core.Text
Core.:> Core.QueryParam "callback" Core.Text
Core.:> Core.QueryParam "uploadType" Core.Text
Core.:> Core.QueryParam "upload_protocol" Core.Text
Core.:> Core.QueryParam "alt" Core.AltJSON
Core.:> Core.ReqBody '[Core.JSON] UndeleteMatterRequest
Core.:> Core.Post '[Core.JSON] Matter
data VaultMattersUndelete = VaultMattersUndelete
{
VaultMattersUndelete -> Maybe Xgafv
xgafv :: (Core.Maybe Xgafv),
VaultMattersUndelete -> Maybe Text
accessToken :: (Core.Maybe Core.Text),
VaultMattersUndelete -> Maybe Text
callback :: (Core.Maybe Core.Text),
VaultMattersUndelete -> Text
matterId :: Core.Text,
VaultMattersUndelete -> UndeleteMatterRequest
payload :: UndeleteMatterRequest,
VaultMattersUndelete -> Maybe Text
uploadType :: (Core.Maybe Core.Text),
VaultMattersUndelete -> Maybe Text
uploadProtocol :: (Core.Maybe Core.Text)
}
deriving (VaultMattersUndelete -> VaultMattersUndelete -> Bool
(VaultMattersUndelete -> VaultMattersUndelete -> Bool)
-> (VaultMattersUndelete -> VaultMattersUndelete -> Bool)
-> Eq VaultMattersUndelete
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: VaultMattersUndelete -> VaultMattersUndelete -> Bool
== :: VaultMattersUndelete -> VaultMattersUndelete -> Bool
$c/= :: VaultMattersUndelete -> VaultMattersUndelete -> Bool
/= :: VaultMattersUndelete -> VaultMattersUndelete -> Bool
Core.Eq, Int -> VaultMattersUndelete -> ShowS
[VaultMattersUndelete] -> ShowS
VaultMattersUndelete -> String
(Int -> VaultMattersUndelete -> ShowS)
-> (VaultMattersUndelete -> String)
-> ([VaultMattersUndelete] -> ShowS)
-> Show VaultMattersUndelete
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> VaultMattersUndelete -> ShowS
showsPrec :: Int -> VaultMattersUndelete -> ShowS
$cshow :: VaultMattersUndelete -> String
show :: VaultMattersUndelete -> String
$cshowList :: [VaultMattersUndelete] -> ShowS
showList :: [VaultMattersUndelete] -> ShowS
Core.Show, (forall x. VaultMattersUndelete -> Rep VaultMattersUndelete x)
-> (forall x. Rep VaultMattersUndelete x -> VaultMattersUndelete)
-> Generic VaultMattersUndelete
forall x. Rep VaultMattersUndelete x -> VaultMattersUndelete
forall x. VaultMattersUndelete -> Rep VaultMattersUndelete x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. VaultMattersUndelete -> Rep VaultMattersUndelete x
from :: forall x. VaultMattersUndelete -> Rep VaultMattersUndelete x
$cto :: forall x. Rep VaultMattersUndelete x -> VaultMattersUndelete
to :: forall x. Rep VaultMattersUndelete x -> VaultMattersUndelete
Core.Generic)
newVaultMattersUndelete ::
Core.Text ->
UndeleteMatterRequest ->
VaultMattersUndelete
newVaultMattersUndelete :: Text -> UndeleteMatterRequest -> VaultMattersUndelete
newVaultMattersUndelete Text
matterId UndeleteMatterRequest
payload =
VaultMattersUndelete
{ xgafv :: Maybe Xgafv
xgafv = Maybe Xgafv
forall a. Maybe a
Core.Nothing,
accessToken :: Maybe Text
accessToken = Maybe Text
forall a. Maybe a
Core.Nothing,
callback :: Maybe Text
callback = Maybe Text
forall a. Maybe a
Core.Nothing,
matterId :: Text
matterId = Text
matterId,
payload :: UndeleteMatterRequest
payload = UndeleteMatterRequest
payload,
uploadType :: Maybe Text
uploadType = Maybe Text
forall a. Maybe a
Core.Nothing,
uploadProtocol :: Maybe Text
uploadProtocol = Maybe Text
forall a. Maybe a
Core.Nothing
}
instance Core.GoogleRequest VaultMattersUndelete where
type Rs VaultMattersUndelete = Matter
type Scopes VaultMattersUndelete = '[Ediscovery'FullControl]
requestClient :: VaultMattersUndelete -> GClient (Rs VaultMattersUndelete)
requestClient VaultMattersUndelete {Maybe Text
Maybe Xgafv
Text
UndeleteMatterRequest
xgafv :: VaultMattersUndelete -> Maybe Xgafv
accessToken :: VaultMattersUndelete -> Maybe Text
callback :: VaultMattersUndelete -> Maybe Text
matterId :: VaultMattersUndelete -> Text
payload :: VaultMattersUndelete -> UndeleteMatterRequest
uploadType :: VaultMattersUndelete -> Maybe Text
uploadProtocol :: VaultMattersUndelete -> Maybe Text
xgafv :: Maybe Xgafv
accessToken :: Maybe Text
callback :: Maybe Text
matterId :: Text
payload :: UndeleteMatterRequest
uploadType :: Maybe Text
uploadProtocol :: Maybe Text
..} =
Text
-> Maybe Xgafv
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe AltJSON
-> UndeleteMatterRequest
-> ServiceConfig
-> GClient Matter
go
Text
matterId
Maybe Xgafv
xgafv
Maybe Text
accessToken
Maybe Text
callback
Maybe Text
uploadType
Maybe Text
uploadProtocol
(AltJSON -> Maybe AltJSON
forall a. a -> Maybe a
Core.Just AltJSON
Core.AltJSON)
UndeleteMatterRequest
payload
ServiceConfig
vaultService
where
go :: Fn VaultMattersUndeleteResource
go =
Proxy VaultMattersUndeleteResource
-> Request -> Fn VaultMattersUndeleteResource
forall {k} (fn :: k).
GoogleClient fn =>
Proxy fn -> Request -> Fn fn
Core.buildClient
(Proxy VaultMattersUndeleteResource
forall {k} (t :: k). Proxy t
Core.Proxy :: Core.Proxy VaultMattersUndeleteResource)
Request
forall a. Monoid a => a
Core.mempty