From 902560d56bb111bb6b44989a0b3a8bdd36313090 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 2 Sep 2019 18:17:01 +0200 Subject: Change normalise-database-values to normalise-values As these values are not from the database, which is why they're not strings. --- guix-data-service/model/utils.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/guix-data-service/model/utils.scm b/guix-data-service/model/utils.scm index 9ac5ff7..ac2a3f7 100644 --- a/guix-data-service/model/utils.scm +++ b/guix-data-service/model/utils.scm @@ -141,7 +141,7 @@ ", ") " RETURNING id")) - (define (normalise-database-values data) + (define (normalise-values data) (map (match-lambda ((? boolean? b) (if b "t" "f")) @@ -160,7 +160,7 @@ first)) (missing-entries (filter (lambda (field-values) - (not (vhash-assoc (normalise-database-values field-values) + (not (vhash-assoc (normalise-values field-values) existing-entries))) data)) (new-entries @@ -174,7 +174,7 @@ (map (lambda (field-values) (cdr - (or (vhash-assoc (normalise-database-values field-values) + (or (vhash-assoc (normalise-values field-values) existing-entries) (vhash-assoc field-values new-entries-lookup-vhash) -- cgit v1.2.3