From 99e06ec6d2e38abd28e2a3110676108de5700406 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Mon, 4 Oct 2021 22:42:55 +0200 Subject: gui: don’t create a thread for each http-request MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/scm/webid-oidc/client/gui.scm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'src/scm/webid-oidc') diff --git a/src/scm/webid-oidc/client/gui.scm b/src/scm/webid-oidc/client/gui.scm index be557bd..29bf556 100644 --- a/src/scm/webid-oidc/client/gui.scm +++ b/src/scm/webid-oidc/client/gui.scm @@ -37,6 +37,8 @@ #:use-module (webid-oidc client accounts) #:use-module ((webid-oidc client gui settings) #:prefix settings:) #:use-module ((webid-oidc client gui application) #:prefix app:) + #:use-module ((webid-oidc cache) #:prefix cache:) + #:use-module ((webid-oidc catalog) #:prefix catalog:) #:use-module (web uri) #:use-module (web response) #:use-module (rnrs bytevectors) @@ -67,4 +69,9 @@ main other))) (define (main) - (run app:application (command-line))) + (parameterize ((p:anonymous-http-request (@ (web client) http-request))) + (cache:use-cache + (lambda () + (catalog:use-catalog + (lambda () + (run app:application (command-line)))))))) -- cgit v1.2.3