diff options
Diffstat (limited to 'src/scm/webid-oidc/resource-server.scm')
-rw-r--r-- | src/scm/webid-oidc/resource-server.scm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/scm/webid-oidc/resource-server.scm b/src/scm/webid-oidc/resource-server.scm index 3aa40c5..c8c676a 100644 --- a/src/scm/webid-oidc/resource-server.scm +++ b/src/scm/webid-oidc/resource-server.scm @@ -241,6 +241,13 @@ ((PUT) (receive (content-type content) (nonrdf-or-turtle server-uri request request-body) + (unless content + (return + (build-response + #:code 400 + #:reason-phrase (W_ "Bad Request")) + "" + user)) (let ((updated (ldp:update server-uri owner user (uri-path (request-uri request)) @@ -257,6 +264,13 @@ ((POST) (receive (content-type content) (nonrdf-or-turtle server-uri request request-body) + (unless content + (return + (build-response + #:code 400 + #:reason-phrase (W_ "Bad Request")) + "" + user)) (let ((types (map target-iri (filter |