diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-12 15:20:08 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-12 18:51:30 +0200 |
commit | 154b3e39b27dca9af420585bf89c02140238b230 (patch) | |
tree | 39130fb1ad63d1c4ae33df51d8b905d87734c687 /src/scm/webid-oidc/resource-server.scm | |
parent | 5554c9c698733120d1ea21b5bf50230cefcb7294 (diff) |
server: adjust to the new content API
Diffstat (limited to 'src/scm/webid-oidc/resource-server.scm')
-rw-r--r-- | src/scm/webid-oidc/resource-server.scm | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/src/scm/webid-oidc/resource-server.scm b/src/scm/webid-oidc/resource-server.scm index d22e2b7..3f5f92e 100644 --- a/src/scm/webid-oidc/resource-server.scm +++ b/src/scm/webid-oidc/resource-server.scm @@ -238,18 +238,19 @@ ((PUT) (receive (content-type content) (nonrdf-or-turtle server-uri request request-body) - (return - (build-response - #:headers - `((etag . (,(ldp:update server-uri owner user - (uri-path (request-uri request)) - (request-if-match request) - (request-if-none-match request) - content-type - content) - . #f)))) - "" - user))) + (let ((updated + (ldp:update server-uri owner user + (uri-path (request-uri request)) + (request-if-match request) + (request-if-none-match request) + content-type + content))) + (return + (build-response + #:headers + `((etag . (,(etag updated) . #f)))) + "" + user)))) ((POST) (receive (content-type content) (nonrdf-or-turtle server-uri request request-body) |