diff options
| -rw-r--r-- | nar-herder/database.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/nar-herder/database.scm b/nar-herder/database.scm index c4d20f2..150286c 100644 --- a/nar-herder/database.scm +++ b/nar-herder/database.scm @@ -940,7 +940,7 @@ WHERE narinfo_files.url = :url" (sqlite-prepare db " -SELECT narinfo_files.size, narinfo_files.compression, narinfo_files.url, narinfos.id +SELECT narinfo_files.size, narinfo_files.compression, narinfo_files.url FROM narinfos INNER JOIN narinfo_files ON narinfos.id = narinfo_files.narinfo_id @@ -954,11 +954,10 @@ WHERE substr(narinfos.store_path, 12, 32) = :hash" (let ((result (sqlite-map (match-lambda - (#(size compression url narinfo-id) + (#(size compression url) `((size . ,size) (compression . ,compression) - (url . ,url) - (narinfo-id . ,narinfo-id)))) + (url . ,url)))) statement))) (sqlite-reset statement) |