services: herd: Add missing newlines in error messages.

* gnu/services/herd.scm (report-action-error): Add missing newlines in
messages.
This commit is contained in:
Ludovic Courtès 2016-02-23 13:03:23 +01:00
parent 305b58c05c
commit f2d8faff04
1 changed files with 4 additions and 4 deletions

View File

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