diff options
Diffstat (limited to 'src/scm/webid-oidc/authorization-page.scm')
-rw-r--r-- | src/scm/webid-oidc/authorization-page.scm | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/src/scm/webid-oidc/authorization-page.scm b/src/scm/webid-oidc/authorization-page.scm deleted file mode 100644 index 536137e..0000000 --- a/src/scm/webid-oidc/authorization-page.scm +++ /dev/null @@ -1,56 +0,0 @@ -;; disfluid, implementation of the Solid specification -;; Copyright (C) 2020, 2021 Vivien Kraus - -;; This program is free software: you can redistribute it and/or modify -;; it under the terms of the GNU Affero General Public License as -;; published by the Free Software Foundation, either version 3 of the -;; License, or (at your option) any later version. - -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU Affero General Public License for more details. - -;; You should have received a copy of the GNU Affero General Public License -;; along with this program. If not, see <https://www.gnu.org/licenses/>. - -(define-module (webid-oidc authorization-page) - #:use-module (webid-oidc errors) - #:use-module ((webid-oidc web-i18n) #:prefix i18n:) - #:use-module ((webid-oidc authorization-page-unsafe) #:prefix unsafe:) - #:use-module (ice-9 string-fun) - #:use-module (ice-9 receive) - #:use-module (ice-9 threads) - #:declarative? #t - #:export - ( - - authorization-page - error-no-client-id - error-no-redirect-uri - error-application - redirection - - )) - -(define (authorization-page - locale credential-invalid? client-id post-uri) - (parameterize ((i18n:web-locale locale)) - (unsafe:authorization-page credential-invalid? - client-id post-uri))) - -(define (error-no-client-id locale) - (parameterize ((i18n:web-locale locale)) - (unsafe:error-no-client-id))) - -(define (error-no-redirect-uri locale) - (parameterize ((i18n:web-locale locale)) - (unsafe:error-no-redirect-uri))) - -(define (error-application locale error) - (parameterize ((i18n:web-locale locale)) - (unsafe:error-application error))) - -(define (redirection locale client-id uri) - (parameterize ((i18n:web-locale locale)) - (unsafe:redirection client-id uri))) |