cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change normalise-database-values to normalise-values

Browse source 
As these values are not from the database, which is why they're not strings.
This commit is contained in:
Christopher Baines 2019-09-02 18:17:01 +02:00
parent 939b8b8bb6
commit 902560d56b
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guix-data-service/model/utils.scm
View file

@ -141,7 +141,7 @@
", ") ", ")
" RETURNING id")) " RETURNING id"))
(define (normalise-database-values data) (define (normalise-values data)
(map (match-lambda (map (match-lambda
((? boolean? b) ((? boolean? b)
(if b "t" "f")) (if b "t" "f"))
@ -160,7 +160,7 @@
first)) first))
(missing-entries (missing-entries
(filter (lambda (field-values) (filter (lambda (field-values)
(not (vhash-assoc (normalise-database-values field-values) (not (vhash-assoc (normalise-values field-values)
existing-entries))) existing-entries)))
data)) data))
(new-entries (new-entries
@ -174,7 +174,7 @@
(map (lambda (field-values) (map (lambda (field-values)
(cdr (cdr
(or (vhash-assoc (normalise-database-values field-values) (or (vhash-assoc (normalise-values field-values)
existing-entries) existing-entries)
(vhash-assoc field-values (vhash-assoc field-values
new-entries-lookup-vhash) new-entries-lookup-vhash)