module Network.Google.Resource.SafeBrowsing.FullHashes.Find
(
FullHashesFindResource
, fullHashesFind
, FullHashesFind
, fhfXgafv
, fhfUploadProtocol
, fhfPp
, fhfAccessToken
, fhfUploadType
, fhfPayload
, fhfBearerToken
, fhfCallback
) where
import Network.Google.Prelude
import Network.Google.SafeBrowsing.Types
type FullHashesFindResource =
"v4" :>
"fullHashes:find" :>
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] FindFullHashesRequest :>
Post '[JSON] FindFullHashesResponse
data FullHashesFind = FullHashesFind'
{ _fhfXgafv :: !(Maybe Text)
, _fhfUploadProtocol :: !(Maybe Text)
, _fhfPp :: !Bool
, _fhfAccessToken :: !(Maybe Text)
, _fhfUploadType :: !(Maybe Text)
, _fhfPayload :: !FindFullHashesRequest
, _fhfBearerToken :: !(Maybe Text)
, _fhfCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
fullHashesFind
:: FindFullHashesRequest
-> FullHashesFind
fullHashesFind pFhfPayload_ =
FullHashesFind'
{ _fhfXgafv = Nothing
, _fhfUploadProtocol = Nothing
, _fhfPp = True
, _fhfAccessToken = Nothing
, _fhfUploadType = Nothing
, _fhfPayload = pFhfPayload_
, _fhfBearerToken = Nothing
, _fhfCallback = Nothing
}
fhfXgafv :: Lens' FullHashesFind (Maybe Text)
fhfXgafv = lens _fhfXgafv (\ s a -> s{_fhfXgafv = a})
fhfUploadProtocol :: Lens' FullHashesFind (Maybe Text)
fhfUploadProtocol
= lens _fhfUploadProtocol
(\ s a -> s{_fhfUploadProtocol = a})
fhfPp :: Lens' FullHashesFind Bool
fhfPp = lens _fhfPp (\ s a -> s{_fhfPp = a})
fhfAccessToken :: Lens' FullHashesFind (Maybe Text)
fhfAccessToken
= lens _fhfAccessToken
(\ s a -> s{_fhfAccessToken = a})
fhfUploadType :: Lens' FullHashesFind (Maybe Text)
fhfUploadType
= lens _fhfUploadType
(\ s a -> s{_fhfUploadType = a})
fhfPayload :: Lens' FullHashesFind FindFullHashesRequest
fhfPayload
= lens _fhfPayload (\ s a -> s{_fhfPayload = a})
fhfBearerToken :: Lens' FullHashesFind (Maybe Text)
fhfBearerToken
= lens _fhfBearerToken
(\ s a -> s{_fhfBearerToken = a})
fhfCallback :: Lens' FullHashesFind (Maybe Text)
fhfCallback
= lens _fhfCallback (\ s a -> s{_fhfCallback = a})
instance GoogleRequest FullHashesFind where
type Rs FullHashesFind = FindFullHashesResponse
type Scopes FullHashesFind = '[]
requestClient FullHashesFind'{..}
= go _fhfXgafv _fhfUploadProtocol (Just _fhfPp)
_fhfAccessToken
_fhfUploadType
_fhfBearerToken
_fhfCallback
(Just AltJSON)
_fhfPayload
safeBrowsingService
where go
= buildClient (Proxy :: Proxy FullHashesFindResource)
mempty