diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2023-05-11 22:03:20 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2023-05-11 22:03:20 +0200 |
commit | 8a79669aa1b66eb82be3ea1c6de7c42f2066c445 (patch) | |
tree | b940be0dc32098855ae174e186b0f908f8550ad5 | |
parent | b6e6bf04f0a36defe5160d14aef2480f8450de6c (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 8a54cb3..61083ba 100644 --- a/copirate/modules/copirate-site.scm +++ b/copirate/modules/copirate-site.scm @@ -48,6 +48,7 @@ (file-system-fold enter? leaf down up skip error #t ".")) (let ((enter? (lambda (name stat result) #t)) (leaf (lambda (name stat result) + (format (current-error-port) "Potentially midi file: ~s…\n" name) (when (string-prefix? "./" name) (set! name (substring name (string-length "./")))) (when (string-suffix? ".midi" name) |