diff options
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))))) |