02/02: services: herd: Add missing newlines in error messages.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit f2d8faff040986e498575de889a22d16aa1037e5
Author: Ludovic Courtès <address@hidden>
Date:   Tue Feb 23 13:03:23 2016 +0100

    services: herd: Add missing newlines in error messages.
    
    * gnu/services/herd.scm (report-action-error): Add missing newlines in
    messages.
---
 gnu/services/herd.scm |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm
index a3a9bf0..9cb33a9 100644
--- a/gnu/services/herd.scm
+++ b/gnu/services/herd.scm
@@ -66,19 +66,19 @@ return the socket."
 command object."
   (match error
     (('error ('version 0 x ...) 'service-not-found service)
-     (report-error (_ "service '~a' could not be found")
+     (report-error (_ "service '~a' could not be found~%")
                    service))
     (('error ('version 0 x ...) 'action-not-found action service)
-     (report-error (_ "service '~a' does not have an action '~a'")
+     (report-error (_ "service '~a' does not have an action '~a'~%")
                    service action))
     (('error ('version 0 x ...) 'action-exception action service
              key (args ...))
      (report-error (_ "exception caught while executing '~a' \
-on service '~a':")
+on service '~a':~%")
                    action service)
      (print-exception (current-error-port) #f key args))
     (('error . _)
-     (report-error (_ "something went wrong: ~s")
+     (report-error (_ "something went wrong: ~s~%")
                    error))
     (#f                                           ;not an error
      #t)))