diff options
| author | Arun Isaac | 2022-07-13 01:41:28 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-07-13 01:42:08 +0530 |
| commit | 43fa0d994241bf9b7f547c5bbc923cd3984247c2 (patch) | |
| tree | eeac8172ba0343377710d5ffdd0a1151537e9cc9 | |
| parent | 54b82e79fb586578dadd90c5d3853909a49b3156 (diff) | |
| download | tissue-43fa0d994241bf9b7f547c5bbc923cd3984247c2.tar.gz tissue-43fa0d994241bf9b7f547c5bbc923cd3984247c2.tar.lz tissue-43fa0d994241bf9b7f547c5bbc923cd3984247c2.zip | |
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.
| -rw-r--r-- | tissue/web/static.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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 |