From b792ccbcd35eb503336252a0ae6d0e98ff865edb Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Wed, 26 Jul 2023 10:24:02 +0200
Subject: fixes wikidata query

---
 gn3-guile/web/webserver.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'gn3-guile/web')

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)
-- 
cgit v1.2.3