-
Notifications
You must be signed in to change notification settings - Fork 4
/
violatingSites.clj
33 lines (30 loc) · 1018 Bytes
/
violatingSites.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
(ns happygapi.adexperiencereport.violatingSites
"Ad Experience Report API: violatingSites.
Views Ad Experience Report data, and gets a list of sites that have a significant number of annoying ads.
See: https://developers.google.com/ad-experience-report/api/reference/rest/v1/violatingSites"
(:require [cheshire.core :as json]
[clj-http.client :as http]
[happy.util :as util]))
(defn list$
"https://developers.google.com/ad-experience-report/api/reference/rest/v1/violatingSites/list
Required parameters: none
Optional parameters: none
Lists sites that are failing in the Ad Experience Report on at least one
platform."
{:scopes nil}
[auth args]
{:pre [(util/has-keys? args #{})]}
(util/get-response
(http/get
(util/get-url
"https://adexperiencereport.googleapis.com/"
"v1/violatingSites"
#{}
args)
(merge-with
merge
{:throw-exceptions false,
:query-params args,
:accept :json,
:as :json}
auth))))