documentation and small bug fixes

private/file-walker.rkt

@@ -91,9 +91,11 @@
          (if (file-info-equal? info in-db)
              (hash-set! in-db 'file-db 'unchanged)
              (begin
+               (hash-set! in-db 'type (hash-ref info 'type))
                (hash-set! in-db 'file-db 'changed)
-               (hash-set! in-db 'size (hash-ref info 'size))
-               (hash-set! in-db 'mtime (hash-ref info 'mtime))))
+               (when (eq? (hash-ref info 'type #f) 'file)
+                 (hash-set! in-db 'size (hash-ref info 'size))
+                 (hash-set! in-db 'mtime (hash-ref info 'mtime)))))
          (hash-set! db-hash normalized-sub-path in-db)
          (values base-path path in-db)
          )

private/flac-handling.rkt

@@ -33,7 +33,12 @@
          (encoder-settings (hash 'target-sample-rate rate
                                  'compression-level 8))
          )
-    (with-handlers ([exn? (λ (e)
+    (with-handlers ([exn:break? (λ (e)
+                                  (err-am "Ctrl-c used")
+                                  (when (file-exists? tmp-file)
+                                    (delete-file tmp-file))
+                                  (raise e))]
+                    [exn? (λ (e)
                             (err-am (format "~a" e))
                             (when (file-exists? tmp-file)
                               (delete-file tmp-file))