diff options
Diffstat (limited to 'src/scm/webid-oidc/resource-server.scm')
| -rw-r--r-- | src/scm/webid-oidc/resource-server.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/resource-server.scm b/src/scm/webid-oidc/resource-server.scm index d035ec4..989abd9 100644 --- a/src/scm/webid-oidc/resource-server.scm +++ b/src/scm/webid-oidc/resource-server.scm @@ -247,10 +247,10 @@ (receive (content-type content) (nonrdf-or-turtle server-uri request request-body) (let ((types - (map car + (map target-iri (filter (lambda (link) - (equal? (assq-ref link 'rel) "type")) + (equal? (relation-type link) "type")) (request-links request))))) (return (build-response |