diff options
author | Christopher Baines <mail@cbaines.net> | 2021-12-13 14:45:02 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-12-13 14:45:02 +0000 |
commit | eda7486a51907e1a5bdb72da5135aa1c047eb30f (patch) | |
tree | 6881c75d27da5719c916b2c903b505804eeba0a3 /nar-herder/storage.scm | |
parent | e9a8e2e09508483f81e78d55781ef01cfc50efc1 (diff) | |
download | nar-herder-eda7486a51907e1a5bdb72da5135aa1c047eb30f.tar nar-herder-eda7486a51907e1a5bdb72da5135aa1c047eb30f.tar.gz |
Handle empty directories in index-storage
Diffstat (limited to 'nar-herder/storage.scm')
-rw-r--r-- | nar-herder/storage.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/nar-herder/storage.scm b/nar-herder/storage.scm index 96c84ed..a607624 100644 --- a/nar-herder/storage.scm +++ b/nar-herder/storage.scm @@ -80,10 +80,11 @@ children)) (let* ((lst - (match (third (file-system-tree storage-root)) - ((name stat children ...) + (match (file-system-tree storage-root) + ((_ _ (name stat children ...)) (get-file-strings (string-append "/" name) - children)))) + children)) + ((_ _) '()))) ; empty directory (hash-table (make-hash-table (length lst)))) |