From 638e9deaf8926f02cb7ee861914b8eee5a3463a3 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 11 Jul 2017 00:47:03 +0200 Subject: services: Make error message less scary. * gnu/services.scm (service-back-edges): Show the type name of SERVICE instead of SERVICE in error message. --- gnu/services.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'gnu') diff --git a/gnu/services.scm b/gnu/services.scm index 5c314748da..8ef1ae7c77 100644 --- a/gnu/services.scm +++ b/gnu/services.scm @@ -624,9 +624,10 @@ (define (add-edge extension edges) (target-type target-type)) (&message (message - (format #f (G_ "no target of type '~a' for service ~s") + (format #f (G_ "no target of type '~a' for service '~a'") (service-type-name target-type) - service)))))) + (service-type-name + (service-kind service)))))))) (x (raise (condition (&ambiguous-target-service-error -- cgit v1.2.3