module Network.Google.Resource.SafeBrowsing.ThreatListUpdates.Fetch
(
ThreatListUpdatesFetchResource
, threatListUpdatesFetch
, ThreatListUpdatesFetch
, tlufXgafv
, tlufUploadProtocol
, tlufPp
, tlufAccessToken
, tlufUploadType
, tlufPayload
, tlufBearerToken
, tlufCallback
) where
import Network.Google.Prelude
import Network.Google.SafeBrowsing.Types
type ThreatListUpdatesFetchResource =
"v4" :>
"threatListUpdates:fetch" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] FetchThreatListUpdatesRequest :>
Post '[JSON] FetchThreatListUpdatesResponse
data ThreatListUpdatesFetch = ThreatListUpdatesFetch'
{ _tlufXgafv :: !(Maybe Text)
, _tlufUploadProtocol :: !(Maybe Text)
, _tlufPp :: !Bool
, _tlufAccessToken :: !(Maybe Text)
, _tlufUploadType :: !(Maybe Text)
, _tlufPayload :: !FetchThreatListUpdatesRequest
, _tlufBearerToken :: !(Maybe Text)
, _tlufCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
threatListUpdatesFetch
:: FetchThreatListUpdatesRequest
-> ThreatListUpdatesFetch
threatListUpdatesFetch pTlufPayload_ =
ThreatListUpdatesFetch'
{ _tlufXgafv = Nothing
, _tlufUploadProtocol = Nothing
, _tlufPp = True
, _tlufAccessToken = Nothing
, _tlufUploadType = Nothing
, _tlufPayload = pTlufPayload_
, _tlufBearerToken = Nothing
, _tlufCallback = Nothing
}
tlufXgafv :: Lens' ThreatListUpdatesFetch (Maybe Text)
tlufXgafv
= lens _tlufXgafv (\ s a -> s{_tlufXgafv = a})
tlufUploadProtocol :: Lens' ThreatListUpdatesFetch (Maybe Text)
tlufUploadProtocol
= lens _tlufUploadProtocol
(\ s a -> s{_tlufUploadProtocol = a})
tlufPp :: Lens' ThreatListUpdatesFetch Bool
tlufPp = lens _tlufPp (\ s a -> s{_tlufPp = a})
tlufAccessToken :: Lens' ThreatListUpdatesFetch (Maybe Text)
tlufAccessToken
= lens _tlufAccessToken
(\ s a -> s{_tlufAccessToken = a})
tlufUploadType :: Lens' ThreatListUpdatesFetch (Maybe Text)
tlufUploadType
= lens _tlufUploadType
(\ s a -> s{_tlufUploadType = a})
tlufPayload :: Lens' ThreatListUpdatesFetch FetchThreatListUpdatesRequest
tlufPayload
= lens _tlufPayload (\ s a -> s{_tlufPayload = a})
tlufBearerToken :: Lens' ThreatListUpdatesFetch (Maybe Text)
tlufBearerToken
= lens _tlufBearerToken
(\ s a -> s{_tlufBearerToken = a})
tlufCallback :: Lens' ThreatListUpdatesFetch (Maybe Text)
tlufCallback
= lens _tlufCallback (\ s a -> s{_tlufCallback = a})
instance GoogleRequest ThreatListUpdatesFetch where
type Rs ThreatListUpdatesFetch =
FetchThreatListUpdatesResponse
type Scopes ThreatListUpdatesFetch = '[]
requestClient ThreatListUpdatesFetch'{..}
= go _tlufXgafv _tlufUploadProtocol (Just _tlufPp)
_tlufAccessToken
_tlufUploadType
_tlufBearerToken
_tlufCallback
(Just AltJSON)
_tlufPayload
safeBrowsingService
where go
= buildClient
(Proxy :: Proxy ThreatListUpdatesFetchResource)
mempty