diff options
Diffstat (limited to 'src/scm/webid-oidc/serve.scm')
| -rw-r--r-- | src/scm/webid-oidc/serve.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/scm/webid-oidc/serve.scm b/src/scm/webid-oidc/serve.scm index 4f54495..c46ab8c 100644 --- a/src/scm/webid-oidc/serve.scm +++ b/src/scm/webid-oidc/serve.scm @@ -28,6 +28,8 @@ #:use-module (rdf rdf) #:use-module (turtle fromrdf) #:use-module (nquads fromrdf) + #:use-module (json) + #:use-module (jsonld) #:export ( convert @@ -66,6 +68,11 @@ (values request (rdf->nquads (make-rdf-dataset data-as-rdf '())))) + ((and (eq? request 'application/ld+json) data-as-rdf) + (values 'application/ld+json + (scm->json-string + (rdf->jsonld + (make-rdf-dataset data-as-rdf '()))))) ;; Add other conversion strategies here (else (try-satisfy (cdr accepts))))))) |