aboutsummaryrefslogtreecommitdiff
path: root/nar-herder/database.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-02-03 18:17:56 +0100
committerChristopher Baines <mail@cbaines.net>2023-02-03 18:17:56 +0100
commit1ac48476728dc37ab8a56b5c8ebe4a368e0a84a0 (patch)
treed511cf40d082ea3ec01de2434f0a0e7b5d7edb8d /nar-herder/database.scm
parent4d6754a4f0076d504a7341d3c53b536059b49543 (diff)
downloadnar-herder-1ac48476728dc37ab8a56b5c8ebe4a368e0a84a0.tar
nar-herder-1ac48476728dc37ab8a56b5c8ebe4a368e0a84a0.tar.gz
Remove the narinfo id from the narinfo_files query
As this is now an unused hack.
Diffstat (limited to 'nar-herder/database.scm')
-rw-r--r--nar-herder/database.scm7
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)