diff options
| author | Pjotr Prins | 2023-07-26 10:24:02 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2023-07-26 10:24:02 +0200 |
| commit | b792ccbcd35eb503336252a0ae6d0e98ff865edb (patch) | |
| tree | 2f881e8a2c1ca4a4d1829eb28d2b0967e4ae18fc /gn3-guile/web | |
| parent | 161969e8dd9f87e309f9a6720726b6b88833b20f (diff) | |
| download | genenetwork3-b792ccbcd35eb503336252a0ae6d0e98ff865edb.tar.gz | |
fixes wikidata query
Diffstat (limited to 'gn3-guile/web')
| -rwxr-xr-x | gn3-guile/web/webserver.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gn3-guile/web/webserver.scm b/gn3-guile/web/webserver.scm index ef15091..d86fdc2 100755 --- a/gn3-guile/web/webserver.scm +++ b/gn3-guile/web/webserver.scm @@ -77,9 +77,9 @@ (define (sparql-exec2 endpoint-url query) "Execute raw SPARQL query returning response as a UTF8 string" + ; GET /sparql?query=SELECT%20DISTINCT%20%2A%20where%20%7B%0A%20%20wd%3AQ158695%20wdt%3AP225%20%3Fo%20.%0A%7D%20limit%205 HTTP/2 (bytevector->string (receive (response-status response-body) - (http-request (string-append endpoint-url "?query=" (uri-encode query) "")) - + (http-request (pk (string-append endpoint-url "?query=" (uri-encode query) ""))) response-body) "UTF-8")) (define (unpack field response) |