From 4710d4e3983b48d41f56a9ac17b2ecf31af2a6dd Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 9 Nov 2019 20:27:14 +0000
Subject: Add a function to help parse PostgreSQL arrays

---
 guix-data-service/model/utils.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

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)
-- 
cgit v1.2.3