~ruther/guix-local

f2d8faff040986e498575de889a22d16aa1037e5 — Ludovic Courtès 10 years ago 305b58c
services: herd: Add missing newlines in error messages.

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

M gnu/services/herd.scm
M gnu/services/herd.scm => gnu/services/herd.scm +4 -4
@@ 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)))