documentation and small bug fixes

2026-06-28 18:55:40 +02:00
parent b1b593896a
commit e538e8b180
7 changed files with 362 additions and 223 deletions
@@ -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)
         )