diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-25 15:04:05 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-09-25 15:04:05 +0200 |
| commit | b3abe0446b9829de5202cfa6227332586aafcc9e (patch) | |
| tree | 07547c62ab91541827bc573d5c18e2de77664051 /vkraus/services | |
| parent | a9e03ceb3b5a2b27465c800cf15856f91d11879e (diff) | |
Update package
Diffstat (limited to 'vkraus/services')
| -rw-r--r-- | vkraus/services/disfluid.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vkraus/services/disfluid.scm b/vkraus/services/disfluid.scm index e2bd3c6..ea09587 100644 --- a/vkraus/services/disfluid.scm +++ b/vkraus/services/disfluid.scm @@ -255,11 +255,11 @@ (define-method (document (cfg <disfluid-client-service-configuration>) (id <string>)) (format #f "Serve the public pages for ~a (~a)" - (uri->string (client-id id)) id)) + (uri->string (client-id cfg)) id)) (define-method (document (cfg <disfluid-full-server-configuration>) (id <string>)) (format #f "Run the Solid server ~a (~a)" - (uri->string (server-name id)) id)) + (uri->string (server-name cfg)) id)) (define-method (invocation (cfg <disfluid-configuration>) (id <string>)) ;; Return the program name, command and arguments |