diff options
Diffstat (limited to 'src/scm/webid-oidc/errors.scm')
| -rw-r--r-- | src/scm/webid-oidc/errors.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/scm/webid-oidc/errors.scm b/src/scm/webid-oidc/errors.scm index 5f07644..fd5d9c6 100644 --- a/src/scm/webid-oidc/errors.scm +++ b/src/scm/webid-oidc/errors.scm @@ -1393,8 +1393,12 @@ (format #f (G_ "the client wants to create a resource at ~s, which is reserved for an auxiliary resource") (get 'path))) ((&forbidden) - (format #f (G_ "the operation on ~s by ~s is refused, because it’s not by ~s and the access control forbids the following mode of operation: ~s") - (get 'path) (uri->string (get 'user)) (uri->string (get 'owner)) + (format #f (G_ "the operation on ~s by ~a is refused, because it’s not by ~s and the access control forbids the following mode of operation: ~s") + (get 'path) + (if (get 'user) + (uri->string (get 'user)) + (G_ "an anonymous user")) + (uri->string (get 'owner)) (uri->string (get 'mode)))) ((&precondition-failed) (if (get 'real-etag) |