From 43fa0d994241bf9b7f547c5bbc923cd3984247c2 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 13 Jul 2022 01:41:28 +0530
Subject: web: static: Do not log output directory name when building.

The output directory is usually a randomly named temporary
directory. Logging it is leaking an implementation detail.

* tissue/web/static.scm (build-website): Do not log output directory
name.
---
 tissue/web/static.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tissue/web/static.scm b/tissue/web/static.scm
index 90496cc..69a9d90 100644
--- a/tissue/web/static.scm
+++ b/tissue/web/static.scm
@@ -131,7 +131,7 @@ Log to LOG-PORT. When LOG-PORT is #f, do not log."
               (let ((output-file
                      (string-append output-directory "/" (file-name file))))
                 (when log-port
-                  (display output-file log-port)
+                  (display (file-name file) log-port)
                   (newline log-port))
                 (make-directories (dirname output-file))
                 (call-with-output-file output-file
-- 
cgit v1.2.3