From 122a6cad7d4a7520593d1dd0c16b3bb8094d7f5a Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 6 Jun 2018 17:14:18 +0200 Subject: database: Replace existing entries in Refs. * guix/store/database.scm (add-reference-sql): Add "OR REPLACE". --- guix/store/database.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'guix') diff --git a/guix/store/database.scm b/guix/store/database.scm index bfd2c36264..094dea3ec8 100644 --- a/guix/store/database.scm +++ b/guix/store/database.scm @@ -141,7 +141,7 @@ of course. Returns the row id of the row that was modified or inserted." (last-insert-row-id db))))) (define add-reference-sql - "INSERT INTO Refs (referrer, reference) VALUES (:referrer, :reference);") + "INSERT OR REPLACE INTO Refs (referrer, reference) VALUES (:referrer, :reference);") (define (add-references db referrer references) "REFERRER is the id of the referring store item, REFERENCES is a list -- cgit v1.2.3