diff options
Diffstat (limited to 'src/scm/webid-oidc/resource-server.scm')
| -rw-r--r-- | src/scm/webid-oidc/resource-server.scm | 5 |
1 files changed, 4 insertions, 1 deletions
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) |