summary refs log tree commit diff
path: root/gnu/services.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-07-11 00:47:03 +0200
committerLudovic Courtès <ludo@gnu.org>2017-07-11 00:48:50 +0200
commit638e9deaf8926f02cb7ee861914b8eee5a3463a3 (patch)
tree53463fe4a78ee2ca76c4da7a6c987591f2d23b62 /gnu/services.scm
parent0ca3d5568676937d65674415d292820668fce6a7 (diff)
downloadguix-638e9deaf8926f02cb7ee861914b8eee5a3463a3.tar.gz
services: Make error message less scary.
* gnu/services.scm (service-back-edges): Show the type name of SERVICE
instead of SERVICE in error message.
Diffstat (limited to 'gnu/services.scm')
-rw-r--r--gnu/services.scm5
1 files changed, 3 insertions, 2 deletions
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 @@ kernel."
                         (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