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