diff options
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) |