aboutsummaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-02-23 13:03:23 +0100
committerLudovic Courtès <ludo@gnu.org>2016-02-23 13:03:23 +0100
commitf2d8faff040986e498575de889a22d16aa1037e5 (patch)
tree33830e2843a08d5f448b222b98e08db901bd2a22 /gnu/services
parent305b58c05c6e04e165489373b2ab3355b64afebf (diff)
downloadguix-f2d8faff040986e498575de889a22d16aa1037e5.tar
guix-f2d8faff040986e498575de889a22d16aa1037e5.tar.gz
services: herd: Add missing newlines in error messages.
* gnu/services/herd.scm (report-action-error): Add missing newlines in messages.
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/herd.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/gnu/services/herd.scm b/gnu/services/herd.scm
index a3a9bf0230..9cb33a9fd0 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)))