diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-09-05 13:53:51 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-09-05 16:07:23 +0200 |
| commit | 4c67160b92887cdfa07aa6dacc7aa7cfd6814d85 (patch) | |
| tree | 3d659600cd9cdd4d681ead6ce881a1dba9a91bed | |
| parent | 2b5594e5d4861c1a5c40bb12e72124e714351f54 (diff) | |
| download | data-service-4c67160b92887cdfa07aa6dacc7aa7cfd6814d85.tar data-service-4c67160b92887cdfa07aa6dacc7aa7cfd6814d85.tar.gz | |
Improve error handling for insert-missing-data-and-return-all-ids
| -rw-r--r-- | guix-data-service/model/utils.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-data-service/model/utils.scm b/guix-data-service/model/utils.scm index f569080..7798e74 100644 --- a/guix-data-service/model/utils.scm +++ b/guix-data-service/model/utils.scm @@ -161,9 +161,11 @@ (symbol->string s)) ((? string? s) s) - ((? null? s) + ((? null? n) ;; exec-query-with-null-handling specifies NULL values as '() - '())) + n) + (unknown + (error (simple-format #f "normalise-values: error: ~A\n" unknown)))) data)) (let* ((existing-entries |