summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-11-25 11:57:56 +0100
committerLudovic Courtès <ludo@gnu.org>2015-11-25 11:59:54 +0100
commitb9c7ed71b1c4110c3c8580f1bb8050c31324fa6a (patch)
treec880f2dfc2014a535722a4f011e3739b64f6f097
parent317714979788fee3e702541b39d89c123d7abdef (diff)
downloadpatches-b9c7ed71b1c4110c3c8580f1bb8050c31324fa6a.tar
patches-b9c7ed71b1c4110c3c8580f1bb8050c31324fa6a.tar.gz
services: dmd: Spawn a REPL upon failure to load a service definition.
Fixes <http://bugs.gnu.org/19779>. Reported by Mark H Weaver <mhw@netris.org>. * gnu/services/dmd.scm (dmd-configuration-file)[config]: Wrap 'primitive-load' calls in 'call-with-error-handling'.
-rw-r--r--gnu/services/dmd.scm8
1 files changed, 7 insertions, 1 deletions
diff --git a/gnu/services/dmd.scm b/gnu/services/dmd.scm
index 6f70f3d79b..545087acc9 100644
--- a/gnu/services/dmd.scm
+++ b/gnu/services/dmd.scm
@@ -223,7 +223,13 @@ stored."
(set! %load-compiled-path
(cons #$compiled %load-compiled-path)))
- (apply register-services (map primitive-load '#$files))
+ (use-modules (system repl error-handling))
+
+ ;; Arrange to spawn a REPL if loading one of FILES fails. This is
+ ;; better than a kernel panic.
+ (call-with-error-handling
+ (lambda ()
+ (apply register-services (map primitive-load '#$files))))
;; guix-daemon 0.6 aborts if 'PATH' is undefined, so work around it.
(setenv "PATH" "/run/current-system/profile/bin")