10/19: database: Replace existing entries in Refs.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 122a6cad7d4a7520593d1dd0c16b3bb8094d7f5a
Author: Ludovic Courtès <address@hidden>
Date:   Wed Jun 6 17:14:18 2018 +0200

    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(-)

diff --git a/guix/store/database.scm b/guix/store/database.scm
index bfd2c36..094dea3 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