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

Add a function to help parse PostgreSQL arrays

Browse source
This commit is contained in:
Christopher Baines 2019-11-09 20:27:14 +00:00
parent 04bb2d52bc
commit 4710d4e398
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -11,6 +11,7 @@
non-empty-string-or-false non-empty-string-or-false
exec-query->vhash exec-query->vhash
two-lists->vhash two-lists->vhash
parse-postgresql-array-string
deduplicate-strings deduplicate-strings
group-list-by-first-n-fields group-list-by-first-n-fields
insert-missing-data-and-return-all-ids)) insert-missing-data-and-return-all-ids))
@ -47,6 +48,15 @@
l1 l1
l2)) l2))
(define (parse-postgresql-array-string s)
(if (string=? s "{}")
'()
(string-split
(string-drop-right
(string-drop s 1)
1)
#\,)))
(define (deduplicate-strings strings) (define (deduplicate-strings strings)
(pair-fold (pair-fold
(lambda (pair result) (lambda (pair result)