Skip to content
Snippets Groups Projects
Commit f2d8faff authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

services: herd: Add missing newlines in error messages.

* gnu/services/herd.scm (report-action-error): Add missing newlines in
messages.
parent 305b58c0
No related branches found
No related tags found
No related merge requests found
...@@ -66,19 +66,19 @@ (define (report-action-error error) ...@@ -66,19 +66,19 @@ (define (report-action-error error)
command object." command object."
(match error (match error
(('error ('version 0 x ...) 'service-not-found service) (('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)) service))
(('error ('version 0 x ...) 'action-not-found action 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)) service action))
(('error ('version 0 x ...) 'action-exception action service (('error ('version 0 x ...) 'action-exception action service
key (args ...)) key (args ...))
(report-error (_ "exception caught while executing '~a' \ (report-error (_ "exception caught while executing '~a' \
on service '~a':") on service '~a':~%")
action service) action service)
(print-exception (current-error-port) #f key args)) (print-exception (current-error-port) #f key args))
(('error . _) (('error . _)
(report-error (_ "something went wrong: ~s") (report-error (_ "something went wrong: ~s~%")
error)) error))
(#f ;not an error (#f ;not an error
#t))) #t)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment