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)))