{-# 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.NotifySpectrumUse
(
PawsNotifySpectrumUseResource
, pawsNotifySpectrumUse
, PawsNotifySpectrumUse
, pnsuPayload
) where
import Network.Google.Prelude
import Network.Google.Spectrum.Types
type PawsNotifySpectrumUseResource =
"spectrum" :>
"v1explorer" :>
"paws" :>
"notifySpectrumUse" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] PawsNotifySpectrumUseRequest :>
Post '[JSON] PawsNotifySpectrumUseResponse
-- | Notifies the database that the device has selected certain frequency
-- ranges for transmission. Only to be invoked when required by the
-- regulator. The Google Spectrum Database does not operate in domains that
-- require notification, so this always yields an UNIMPLEMENTED error.
--
-- /See:/ 'pawsNotifySpectrumUse' smart constructor.
newtype PawsNotifySpectrumUse = PawsNotifySpectrumUse'
{ _pnsuPayload :: PawsNotifySpectrumUseRequest
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'PawsNotifySpectrumUse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'pnsuPayload'
pawsNotifySpectrumUse
:: PawsNotifySpectrumUseRequest -- ^ 'pnsuPayload'
-> PawsNotifySpectrumUse
pawsNotifySpectrumUse pPnsuPayload_ =
PawsNotifySpectrumUse'
{ _pnsuPayload = pPnsuPayload_
}
-- | Multipart request metadata.
pnsuPayload :: Lens' PawsNotifySpectrumUse PawsNotifySpectrumUseRequest
pnsuPayload
= lens _pnsuPayload (\ s a -> s{_pnsuPayload = a})
instance GoogleRequest PawsNotifySpectrumUse where
type Rs PawsNotifySpectrumUse =
PawsNotifySpectrumUseResponse
type Scopes PawsNotifySpectrumUse = '[]
requestClient PawsNotifySpectrumUse'{..}
= go (Just AltJSON) _pnsuPayload spectrumService
where go
= buildClient
(Proxy :: Proxy PawsNotifySpectrumUseResource)
mempty