diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-11 12:42:13 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-11 16:50:26 +0200 |
| commit | c945e27465532d768cc6012c8737f4c74b59fd9e (patch) | |
| tree | a2b8adc512c0c79a73b9aea15ad0aebc3af946fa /src/scm/webid-oidc/resource-server.scm | |
| parent | 00071bbfc0e79970a70ef80e6e711a1700b1c773 (diff) | |
HTTP Link header: use GOOPS and document it
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 |