diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-09-02 18:17:01 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-09-02 18:17:01 +0200 |
| commit | 902560d56bb111bb6b44989a0b3a8bdd36313090 (patch) | |
| tree | 95c0d8694c11e33f7a24620af2a2af0020c30c5f | |
| parent | 939b8b8bb61e63d194bbcfd6ee473f44c31d0262 (diff) | |
| download | data-service-902560d56bb111bb6b44989a0b3a8bdd36313090.tar data-service-902560d56bb111bb6b44989a0b3a8bdd36313090.tar.gz | |
Change normalise-database-values to normalise-values
As these values are not from the database, which is why they're not strings.
| -rw-r--r-- | guix-data-service/model/utils.scm | 6 |
1 files 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) |