aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-data-service/model/utils.scm10
1 files changed, 10 insertions, 0 deletions
diff --git a/guix-data-service/model/utils.scm b/guix-data-service/model/utils.scm
index 7798e74..a1cd432 100644
--- a/guix-data-service/model/utils.scm
+++ b/guix-data-service/model/utils.scm
@@ -11,6 +11,7 @@
non-empty-string-or-false
exec-query->vhash
two-lists->vhash
+ parse-postgresql-array-string
deduplicate-strings
group-list-by-first-n-fields
insert-missing-data-and-return-all-ids))
@@ -47,6 +48,15 @@
l1
l2))
+(define (parse-postgresql-array-string s)
+ (if (string=? s "{}")
+ '()
+ (string-split
+ (string-drop-right
+ (string-drop s 1)
+ 1)
+ #\,)))
+
(define (deduplicate-strings strings)
(pair-fold
(lambda (pair result)