nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gnu/services/herd.scm
View File

@ -66,19 +66,19 @@ return the socket."
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)))