diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-09 18:46:48 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-08-13 01:06:38 +0200 |
| commit | ded10e28782f289ad3db15320bcf619ab4336876 (patch) | |
| tree | 32609fd9f1eb0d2f8a23105e09f193827d16a275 /src/scm/webid-oidc/catalog.scm | |
| parent | 7b62790238902e10edb83c07286cf0643b097997 (diff) | |
Switch to a more sensible error reporting system
Diffstat (limited to 'src/scm/webid-oidc/catalog.scm')
| -rw-r--r-- | src/scm/webid-oidc/catalog.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/scm/webid-oidc/catalog.scm b/src/scm/webid-oidc/catalog.scm index 11e0877..e12ebe6 100644 --- a/src/scm/webid-oidc/catalog.scm +++ b/src/scm/webid-oidc/catalog.scm @@ -1,4 +1,4 @@ -;; webid-oidc, implementation of the Solid specification +;; disfluid, implementation of the Solid specification ;; Copyright (C) 2020, 2021 Vivien Kraus ;; This program is free software: you can redistribute it and/or modify @@ -24,6 +24,8 @@ #:use-module (sxml match) #:use-module (ice-9 optargs) #:use-module (ice-9 receive) + #:use-module (webid-oidc web-i18n) + #:declarative? #t #:export (resolve-uri)) (define useful-namespaces @@ -161,7 +163,7 @@ (("." components ...) (with-absolute-relative-path defined components)) ((".." components ...) (match defined - (() (error "Invalid relative URI")) + (() (fail (G_ "invalid relative URI"))) ((dropped kept ...) (with-absolute-relative-path kept components)))) ((head components ...) @@ -240,7 +242,8 @@ (lambda (port) (xml->sxml port #:namespaces useful-namespaces)))) (else - (error (format #f "Unsupported delegate catalog URI scheme: ~s\n" (uri-scheme uri)))))) + (error (format #f (G_ "Unsupported delegate catalog URI scheme: ~s\n") + (uri-scheme uri)))))) (define* (resolve-uri uri #:key (http-get http-get)) (when (string? uri) |