From ded10e28782f289ad3db15320bcf619ab4336876 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Mon, 9 Aug 2021 18:46:48 +0200 Subject: Switch to a more sensible error reporting system --- src/scm/webid-oidc/example-app.scm | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) (limited to 'src/scm/webid-oidc/example-app.scm') diff --git a/src/scm/webid-oidc/example-app.scm b/src/scm/webid-oidc/example-app.scm index d6ef2a0..24c4d8a 100644 --- a/src/scm/webid-oidc/example-app.scm +++ b/src/scm/webid-oidc/example-app.scm @@ -17,9 +17,9 @@ (define-module (webid-oidc example-app) #:use-module ((webid-oidc client) #:prefix client:) #:use-module ((webid-oidc client accounts) #:prefix client:) - #:use-module (webid-oidc errors) #:use-module ((webid-oidc cache) #:prefix cache:) #:use-module (webid-oidc dpop-proof) + #:use-module (webid-oidc web-i18n) #:use-module ((webid-oidc stubs) #:prefix stubs:) #:use-module ((webid-oidc refresh-token) #:prefix refresh:) #:use-module ((webid-oidc config) #:prefix cfg:) @@ -32,7 +32,6 @@ #:use-module (ice-9 optargs) #:use-module (ice-9 receive) #:use-module (srfi srfi-19) - #:use-module (ice-9 i18n) #:use-module (srfi srfi-26) #:use-module (ice-9 getopt-long) #:use-module (ice-9 suspendable-ports) @@ -40,14 +39,8 @@ #:use-module (ice-9 rdelim) #:use-module (ice-9 match) #:use-module (sxml simple) - #:use-module (rnrs bytevectors)) - -(define (G_ text) - (let ((out (gettext text))) - (if (string=? out text) - ;; No translation, disambiguate - (car (reverse (string-split text #\|))) - out))) + #:use-module (rnrs bytevectors) + #:declarative? #t) (define (main) (define (do-the-trick subject issuer) -- cgit v1.2.3