{-# 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.GetSpectrum
(
PawsGetSpectrumResource
, pawsGetSpectrum
, PawsGetSpectrum
, pgsPayload
) where
import Network.Google.Prelude
import Network.Google.Spectrum.Types
type PawsGetSpectrumResource =
"spectrum" :>
"v1explorer" :>
"paws" :>
"getSpectrum" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] PawsGetSpectrumRequest :>
Post '[JSON] PawsGetSpectrumResponse
-- | Requests information about the available spectrum for a device at a
-- location. Requests from a fixed-mode device must include owner
-- information so the device can be registered with the database.
--
-- /See:/ 'pawsGetSpectrum' smart constructor.
newtype PawsGetSpectrum = PawsGetSpectrum'
{ _pgsPayload :: PawsGetSpectrumRequest
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'PawsGetSpectrum' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'pgsPayload'
pawsGetSpectrum
:: PawsGetSpectrumRequest -- ^ 'pgsPayload'
-> PawsGetSpectrum
pawsGetSpectrum pPgsPayload_ =
PawsGetSpectrum'
{ _pgsPayload = pPgsPayload_
}
-- | Multipart request metadata.
pgsPayload :: Lens' PawsGetSpectrum PawsGetSpectrumRequest
pgsPayload
= lens _pgsPayload (\ s a -> s{_pgsPayload = a})
instance GoogleRequest PawsGetSpectrum where
type Rs PawsGetSpectrum = PawsGetSpectrumResponse
type Scopes PawsGetSpectrum = '[]
requestClient PawsGetSpectrum'{..}
= go (Just AltJSON) _pgsPayload spectrumService
where go
= buildClient
(Proxy :: Proxy PawsGetSpectrumResource)
mempty