diff options
author | Christopher Baines <mail@cbaines.net> | 2024-03-25 13:39:08 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-03-25 14:00:41 +0000 |
commit | 98135389e68d9872a82081d1dee7615bc8658257 (patch) | |
tree | 2c18af703b04dc665959073ddd43a81e25c65edb /nar-herder/database.scm | |
parent | 57ca998207b11f4f149470bfd20a159cf119bf49 (diff) | |
download | nar-herder-98135389e68d9872a82081d1dee7615bc8658257.tar nar-herder-98135389e68d9872a82081d1dee7615bc8658257.tar.gz |
Improve handling of cached narinfos when deleting
Diffstat (limited to 'nar-herder/database.scm')
-rw-r--r-- | nar-herder/database.scm | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/nar-herder/database.scm b/nar-herder/database.scm index 98c29d5..666c497 100644 --- a/nar-herder/database.scm +++ b/nar-herder/database.scm @@ -63,6 +63,7 @@ database-insert-cached-narinfo-file database-select-cached-narinfo-file-by-hash + database-select-cached-narinfo-file-by-narinfo-id-and-compression database-select-cached-narinfo-files-by-narinfo-id database-fold-cached-narinfo-files database-remove-cached-narinfo-file @@ -855,17 +856,6 @@ DELETE FROM narinfo_tags WHERE narinfo_id = :narinfo_id" (remove-narinfo-references db narinfo-id) (remove-tags db narinfo-id) - (for-each - (lambda (cached-details) - (database-remove-cached-narinfo-file - database - narinfo-id - (symbol->string - (assq-ref cached-details 'compression)))) - (database-select-cached-narinfo-files-by-narinfo-id - database - narinfo-id)) - (remove-narinfo-record db narinfo-id) #t) #f))))) |