services: Make error message less scary.

* gnu/services.scm (service-back-edges): Show the type name of SERVICE instead of SERVICE in error message.
2017-07-11 00:47:03 +02:00 · 2017-07-11 00:47:03 +02:00 · 638e9deaf8
parent 0ca3d55686
commit 638e9deaf8
1 changed files with 3 additions and 2 deletions
--- 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