diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2023-05-11 22:01:42 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2023-05-11 22:01:52 +0200 |
| commit | b6e6bf04f0a36defe5160d14aef2480f8450de6c (patch) | |
| tree | c509ec9008ac65cf36c3e14456d0ae69859e051c | |
| parent | 8f2b84ca4ed6ce10934025c69ff8736a69f38378 (diff) | |
Debug conversion from midi
| -rw-r--r-- | copirate/modules/copirate-site.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/copirate/modules/copirate-site.scm b/copirate/modules/copirate-site.scm index 0689e07..8a54cb3 100644 --- a/copirate/modules/copirate-site.scm +++ b/copirate/modules/copirate-site.scm @@ -32,6 +32,7 @@ (let ((enter? (lambda (name stat result) #t)) (leaf (lambda (name stat result) (when (string-suffix? ".pdf" name) + (format (current-error-port) "PDF file: ~s…\n" name) (let ((miniature-name (string-append (substring name 0 (- (string-length name) (string-length ".pdf"))) |