diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-09-29 10:45:46 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-09-29 10:45:46 +0100 |
| commit | 580900b0f4c295d8fc1633464a17a9de70747a77 (patch) | |
| tree | 7c05f566448d698176ddbdd0c2b8aeb532bcfb36 | |
| parent | 208122317aa87c4b168158eee36198c2b355825b (diff) | |
| download | data-service-580900b0f4c295d8fc1633464a17a9de70747a77.tar data-service-580900b0f4c295d8fc1633464a17a9de70747a77.tar.gz | |
Fail early if the inferior is #f
This happens when the repl can't be loaded for example.
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 0046cb4..11db7ca 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -773,6 +773,9 @@ WHERE job_id = $1" (open-inferior store-path)))))) (setenv "GUIX_LOCPATH" guix-locpath) ; restore GUIX_LOCPATH + (when (eq? inf #f) + (error "error: inferior is #f")) + ;; Normalise the locale for the inferior process (catch 'system-error |