Trying stuff

1 files changed, 11 insertions, 3 deletions

diff --git a/gn3-guile/web/webserver.scm b/gn3-guile/web/webserver.scm
index db9eb62..08e2412 100755
--- a/gn3-guile/web/webserver.scm
+++ b/gn3-guile/web/webserver.scm
@@ -102,7 +102,11 @@ SELECT DISTINCT ?species WHERE {
 (define-values (names res) (sparql-species-meta))
 (define table (get-rows names res))
 (define recs '())
-(compile-species recs table)
+(define h (compile-species recs table))
+(assoc "http://genenetwork.org/species_drosophila_melanogaster" h)
+(assoc-ref h "http://genenetwork.org/species_drosophila_melanogaster") ;; note switch!
+(define d (car h))
+(assoc-ref (list d) "http://genenetwork.org/species_drosophila_melanogaster")
 !#
 
 (define (sparql-species-meta)
@@ -184,9 +188,11 @@ SELECT ?species ?p ?o WHERE {
           (scm->json json port))))
 
 (define (render-json-string2 json)
-  (list '((content-type . (application/json)))
+  (list '((content-type . (text/plain)))
 	(lambda (port)
-	  (display "ThthEST" port))))
+	  ;; (display "ThthxST" port)
+	  (format port "~a" "foo")
+	  )))
   
 (define (controller request body)
   (match-lambda
@@ -194,6 +200,8 @@ SELECT ?species ?p ?o WHERE {
      (render-json info))
     (('GET "meh")
      (render-json-string2 "ITEST"))
+    (('HEAD "meh")
+     (render-json-string2 "ITEST"))
     (('GET "meta")
      (render-json info-meta))
     (('GET "version")