diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-14 14:23:51 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-19 11:32:00 +0200 |
| commit | a219bf64933d3313aebe0e5576b291e32e93d93f (patch) | |
| tree | cac1226f500dfbd5a7daf991bfc2b157846ad83d /src/scm/webid-oidc/errors.scm | |
| parent | 19915a8b5b2912d255a6850a5d8d796a4f9c7fc9 (diff) | |
server: add an exception for showing a message to the user
Diffstat (limited to 'src/scm/webid-oidc/errors.scm')
| -rw-r--r-- | src/scm/webid-oidc/errors.scm | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/scm/webid-oidc/errors.scm b/src/scm/webid-oidc/errors.scm index aabb6ea..6efc6c8 100644 --- a/src/scm/webid-oidc/errors.scm +++ b/src/scm/webid-oidc/errors.scm @@ -25,24 +25,9 @@ #:declarative? #t #:export ( - &message-for-the-user - make-message-for-the-user - message-for-the-user? - user-message - fail )) -;; A message to show the user is an XHTML paragraph or equivalent (as -;; sxml). A div is used to contain multiple messages. - -(define-exception-type - &message-for-the-user - &external-error - make-message-for-the-user - message-for-the-user? - (message user-message)) - (define (fail message) ;; Like error, but don’t do funny things when message is not a ;; string literal |