aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-09-29 10:45:46 +0100
committerChristopher Baines <mail@cbaines.net>2019-09-29 10:45:46 +0100
commit580900b0f4c295d8fc1633464a17a9de70747a77 (patch)
tree7c05f566448d698176ddbdd0c2b8aeb532bcfb36 /guix-data-service
parent208122317aa87c4b168158eee36198c2b355825b (diff)
downloaddata-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.
Diffstat (limited to 'guix-data-service')
-rw-r--r--guix-data-service/jobs/load-new-guix-revision.scm3
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