Fix duplicate params->query
This commit is contained in:
parent
7dff049ece
commit
d2765c2a78
1 changed files with 5 additions and 5 deletions
10
src/data.rkt
10
src/data.rkt
|
@ -57,11 +57,11 @@
|
||||||
(define res
|
(define res
|
||||||
(fandom-get-api
|
(fandom-get-api
|
||||||
wikiname
|
wikiname
|
||||||
(params->query '(("action" . "query")
|
'(("action" . "query")
|
||||||
("meta" . "siteinfo")
|
("meta" . "siteinfo")
|
||||||
("siprop" . "general|rightsinfo")
|
("siprop" . "general|rightsinfo")
|
||||||
("format" . "json")
|
("format" . "json")
|
||||||
("formatversion" . "2")))))
|
("formatversion" . "2"))))
|
||||||
(define data (easy:response-json res))
|
(define data (easy:response-json res))
|
||||||
(siteinfo^ (jp "/query/general/sitename" data)
|
(siteinfo^ (jp "/query/general/sitename" data)
|
||||||
(second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
|
(second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
|
||||||
|
|
Loading…
Reference in a new issue