diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-12 15:51:45 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-12 18:51:30 +0200 |
| commit | 8f8fb9740ac9990e152f198e5247e67a8e8ee2f2 (patch) | |
| tree | 4ce584aa29ab08681ceaf5cf8e3a7062c695403f /src | |
| parent | 154b3e39b27dca9af420585bf89c02140238b230 (diff) | |
resource server: fix content negociation for PUT and POST
Diffstat (limited to 'src')
| -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) |