{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Spectrum.Paws.Register
(
PawsRegisterResource
, pawsRegister
, PawsRegister
, prPayload
) where
import Network.Google.Prelude
import Network.Google.Spectrum.Types
type PawsRegisterResource =
"spectrum" :>
"v1explorer" :>
"paws" :>
"register" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] PawsRegisterRequest :>
Post '[JSON] PawsRegisterResponse
-- | The Google Spectrum Database implements registration in the getSpectrum
-- method. As such this always returns an UNIMPLEMENTED error.
--
-- /See:/ 'pawsRegister' smart constructor.
newtype PawsRegister = PawsRegister'
{ _prPayload :: PawsRegisterRequest
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'PawsRegister' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'prPayload'
pawsRegister
:: PawsRegisterRequest -- ^ 'prPayload'
-> PawsRegister
pawsRegister pPrPayload_ =
PawsRegister'
{ _prPayload = pPrPayload_
}
-- | Multipart request metadata.
prPayload :: Lens' PawsRegister PawsRegisterRequest
prPayload
= lens _prPayload (\ s a -> s{_prPayload = a})
instance GoogleRequest PawsRegister where
type Rs PawsRegister = PawsRegisterResponse
type Scopes PawsRegister = '[]
requestClient PawsRegister'{..}
= go (Just AltJSON) _prPayload spectrumService
where go
= buildClient (Proxy :: Proxy PawsRegisterResource)
mempty