diff options
Diffstat (limited to 'guix-data-service/model/utils.scm')
-rw-r--r-- | guix-data-service/model/utils.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/guix-data-service/model/utils.scm b/guix-data-service/model/utils.scm index 1ece31a..0ce9fea 100644 --- a/guix-data-service/model/utils.scm +++ b/guix-data-service/model/utils.scm @@ -5,6 +5,7 @@ #:use-module (squee) #:export (quote-string value->quoted-string-or-null + non-empty-string-or-false exec-query->vhash two-lists->vhash deduplicate-strings @@ -18,6 +19,13 @@ (string-append "$STR$" value "$STR$") "NULL")) +(define (non-empty-string-or-false s) + (if (string? s) + (if (string-null? s) + #f + s) + #f)) + (define (exec-query->vhash conn query field-function value-function) (fold (lambda (row result) (vhash-cons (field-function row) |