From c874d37425971d5bed76f53dc83610e2d2d40593 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Sat, 19 Jun 2021 10:54:43 +0200
Subject: Implement the GET, HEAD, OPTIONS methods for the server

---
 src/scm/webid-oidc/errors.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

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

diff --git a/src/scm/webid-oidc/errors.scm b/src/scm/webid-oidc/errors.scm
index 76ce8af..80a4f37 100644
--- a/src/scm/webid-oidc/errors.scm
+++ b/src/scm/webid-oidc/errors.scm
@@ -884,6 +884,20 @@
         path-not-found?
         path-not-found-path)
 
+(define-exception-type
+  &auxiliary-resource-absent
+  &external-error
+  make-auxiliary-resource-absent
+  auxiliary-resource-absent?
+  (path auxiliary-resource-absent-path)
+  (kind auxiliary-resource-absent-kind))
+
+(export &auxiliary-resource-absent
+        make-auxiliary-resource-absent
+        auxiliary-resource-absent?
+        auxiliary-resource-absent-path
+        auxiliary-resource-absent-kind)
+
 (define-exception-type
   &uri-slash-semantics-error
   &external-error
@@ -1336,6 +1350,9 @@
           ((&path-not-found)
            (format #f (G_ "no resource has been found to serve URI path ~s")
                    (get 'path)))
+          ((&auxiliary-resource-absent)
+           (format #f (G_ "the resource kind ~s is absent for the resource at ~s")
+                   (get 'kind') (get 'path)))
           ((&uri-slash-semantics-error)
            (format #f (G_ "no resource has been found to serve URI path ~s, but ~s exists")
                    (get 'path) (get 'expected-path)))
-- 
cgit v1.2.3