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
|
||||
(fandom-get-api
|
||||
wikiname
|
||||
(params->query '(("action" . "query")
|
||||
("meta" . "siteinfo")
|
||||
("siprop" . "general|rightsinfo")
|
||||
("format" . "json")
|
||||
("formatversion" . "2")))))
|
||||
'(("action" . "query")
|
||||
("meta" . "siteinfo")
|
||||
("siprop" . "general|rightsinfo")
|
||||
("format" . "json")
|
||||
("formatversion" . "2"))))
|
||||
(define data (easy:response-json res))
|
||||
(siteinfo^ (jp "/query/general/sitename" data)
|
||||
(second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
|
||||
|
|
Loading…
Reference in a new issue