diff options
Diffstat (limited to 'copirate/modules/copirate-site.scm')
-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) |