From 154b3e39b27dca9af420585bf89c02140238b230 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Tue, 12 Oct 2021 15:20:08 +0200 Subject: server: adjust to the new content API --- src/scm/webid-oidc/resource-server.scm | 25 +++++++++++++------------ 1 file changed, 13 insertions(+), 12 deletions(-) (limited to 'src/scm') 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) -- cgit v1.2.3