From ded10e28782f289ad3db15320bcf619ab4336876 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Mon, 9 Aug 2021 18:46:48 +0200
Subject: Switch to a more sensible error reporting system

---
 src/scm/webid-oidc/catalog.scm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src/scm/webid-oidc/catalog.scm')

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)
-- 
cgit v1.2.3