02/03: services: Make error message less scary.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 638e9deaf8926f02cb7ee861914b8eee5a3463a3
Author: Ludovic Courtès <address@hidden>
Date:   Tue Jul 11 00:47:03 2017 +0200

    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(-)

diff --git a/gnu/services.scm b/gnu/services.scm
index 5c31474..8ef1ae7 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