From 8f8fb9740ac9990e152f198e5247e67a8e8ee2f2 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Tue, 12 Oct 2021 15:51:45 +0200 Subject: resource server: fix content negociation for PUT and POST --- src/scm/webid-oidc/resource-server.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/scm/webid-oidc/resource-server.scm b/src/scm/webid-oidc/resource-server.scm index 3f5f92e..3aa40c5 100644 --- a/src/scm/webid-oidc/resource-server.scm +++ b/src/scm/webid-oidc/resource-server.scm @@ -136,7 +136,10 @@ (convert '(text/turtle */*) server-uri (uri-path (request-uri request)) - (request-content-type request) + (match (request-content-type request) + ((or (? symbol? content-type) + ((? symbol? content-type) _ ...)) + content-type)) request-body)) (define (serve-get return path if-match if-none-match content-type content etag headers user) -- cgit v1.2.3